• Miércoles 15 de Enero de 2025, 05:19

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - DiabloRojo

Páginas: 1 2 [3] 4 5 ... 9
51
Visual Basic 6.0 e inferiores / Image Combo
« en: Jueves 25 de Mayo de 2006, 23:09 »
Hola amigos del foro.
Pues como dicen el título y la descripción de éste mensaje :(  no puedo localizar el control imagecombo en el VB. Tengo VB6.0 con SP5. Lo busco en los common controls (en todas las versiones) y nada :(.
Dónde lo puedo encontrar?


Saludos a todos y gracias de antemano por sus respuestas.


DiabloRojo

52
Visual Basic 6.0 e inferiores / Re: Insert Into Excel A Access
« en: Jueves 18 de Mayo de 2006, 15:41 »
Hola jdemarest.
Pues la sintaxis del INSERT es:
Código: Text
  1.  
  2. INSERT (<GrupoDeCaMpos>) VALUES (<GrupoDeValores>)
  3.  
  4.  
y la verdad entre tantas líneas no veo el "VALUES". Prueba a ver si es eso...


Saludos


DiabloRojo

53
Visual Basic 6.0 e inferiores / Re: Aporte
« en: Miércoles 17 de Mayo de 2006, 14:33 »
Me uno al pedido. Mi mail es diablorojomail y es de gmail ;-).

Saludos


DiabloRojo

54
Visual Basic 6.0 e inferiores / Re: Ayuda Con Funcion
« en: Martes 16 de Mayo de 2006, 15:44 »
Bueno, por algo dicen que todos los caminos conducen a Roma. Aquí otra solución pero usando un timer (creo, a la vista del código enviado por Soultaker, me compliqué la vida :nosweat:). Lo dicho, usé un timer con la propiedad interval en 100 y usé este código:

Código: Text
  1.  
  2. Private Sub Timer1_Timer()
  3.     Dim ctrl As Control
  4.    
  5.     If TypeOf Form1.ActiveControl Is TextBox Then
  6.        For Each ctrl In Form1.Controls
  7.           If TypeOf ctrl Is TextBox Then
  8.              If Form1.ActiveControl.Name = ctrl.Name Then
  9.                 ctrl.BackColor = vbBlue
  10.              Else
  11.                 ctrl.BackColor = vbWhite
  12.              End If
  13.           End If
  14.        Next
  15.     Else
  16.        For Each ctrl In Form1.Controls
  17.           If TypeOf ctrl Is TextBox Then
  18.              ctrl.BackColor = vbWhite
  19.           End If
  20.        Next
  21.     End If
  22. End Sub
  23.  
  24.  

Es que no me podía quedar sin mandarlo :rolleyes: Jejejeje...


Saludos


DiabloRojo

55
Visual Basic 6.0 e inferiores / Re: Ayuda Con Funcion
« en: Lunes 15 de Mayo de 2006, 18:52 »
Hola m@gnus.
Revisa en la ayuda del VB la función TypeOf que sirve para averiguar qué tipo de control es un control específico que se pasa como parámetro. Ciertamente ningún control cuenta con la propiedad "ControlType".
Disculpa que no coloque un ejemplo pero la verdad en este momento no recuerdo cómo se usa la función ni tengo el VB para probar.


Saludos y suerte


DiabloRojo

56
Visual Basic 6.0 e inferiores / Re: Ayuda Con Vb Y Autocad
« en: Miércoles 10 de Mayo de 2006, 01:44 »
Para este tipo de cosas ademas del foro un buscador es tu mejor amigo (yo uso google). Aquí te paso algo que encontré en la web:
Link1.-Ejemplo
Link2.-Ocx

Espero te sean de utilidad.

Saludos


DiabloRojo.

57
Visual Basic 6.0 e inferiores / Re: Dos Formularios Activos
« en: Miércoles 3 de Mayo de 2006, 22:28 »
Gracias por tomarte el tiempo para responder a mi post Jose.
Tienes toda la razón, no está muy claro lo que quiero lograr... y la verdad no sé muy bien cómo explicarlo de otra forma :(. Hago otro intento: Cuando un formulario pierde el foco su barra de título se pone un poco mas clara (digamos que se pone grisacea). Pues, es precisamente eso lo que deseo evitar que se vea que perdió el foco.
De todas maneras buscando por la web encontré esto que creo se parece a lo que deseo hacer: link.

Pero me gustaría hallar una manera más fácil de hacerlo y sin usar una DLL.

Saludos


DiabloRojo

58
Visual Basic 6.0 e inferiores / Dos Formularios Activos
« en: Miércoles 3 de Mayo de 2006, 18:36 »
Hola amigos del foro.
Pues como dice el título de mi post quisiera saber si es posible tener dos formularios activos (o sea que los dos posean el foco) al mismo tiempo tal como ocurre con los formularios MDI y sus respectivos hijos.
No sé si se entiende bien mi pregunta....  

Saludos

DiabloRojo.

59
Redes y Comunicaciones / Re: Ebook Sql Server 2000
« en: Jueves 27 de Abril de 2006, 15:46 »
En efecto el link anterior no funciona. Modificaron la pág. Prueben acá:
Nuevo enlace
Revisen la sección "Manuales".


Saludos.


DiabloRojo

60
Visual Basic para principiantes / Re: Datagrid
« en: Jueves 13 de Abril de 2006, 15:44 »
Hola kapricorniana.
Lamento que no te haya sido útil. Sólo me queda decirte que plantees o replantees la pregunta de otra forma para saber exactamente qué es lo que estás buscando.

Saludos.


DiabloRojo.

61
Visual Basic para principiantes / Re: Datagrid
« en: Miércoles 12 de Abril de 2006, 21:14 »
La verdad no sé qué pasa... lo mando por aquí a ver...

Este era el cuerpo del mensaje que te enviaba:
Citar
Hola Kapricorniana.
Revisé el correo el lunes y recibí tu mail. Lamentablemente la base de datos que me pasas parece ser de sqlserver2000 el cual no poseo. De todas formas traté de hacer un ejemplo utilizando access. Usé tu idea de hacer una especie de "borrado lógico". Comentarios sobre el ejemplo:
-No hago validaciones así que ten cuidado con lo que ingresas.
-Agrego datos utilizando recordsets. Esta no es la forma más adecuada de agregar datos (no me quise complicar con instrucciones sql).
-No logro que al momento de agregar pedidos se actualice el datagrid1 del formulario frmPedidos :-S por lo tanto debes cerrar y volver a abrir el formulario.
-El código no es consistente. De un formulario a otro hago lo mismo de maneras distintas ;-)
-La mayor parte del código no está comentado.

Bueno, aparte de los comentarios anteriores espero que te sea de utilidad.

Saludos.


DiabloRojo

Te recuerdo y a los amigos que bajen el ejemplo que lo hice al vuelo y muchas cosas no están hechas de la mejor manera...

DiabloRojo.

62
Visual Basic para principiantes / Re: Datagrid
« en: Martes 11 de Abril de 2006, 04:48 »
Hola Kapricorniana.
Te mandé nuevamente el ejemplo.

Saludos

DiabloRojo.

63
Visual Basic para principiantes / Re: Datagrid
« en: Miércoles 5 de Abril de 2006, 23:34 »
Qué tal Kapricorniana?
Te mandé un pequeño ejemplo al mail capricorniana1977@... está hecho rápido y tiene sus defectos pero al menos muestra que lo que te propones hacer es válido. Recibí tu mail pero lamento decirte que no pude acceder a la base de datos. El ejemplo está en Access.

Espero que te sea de utilidad. Si te sirve dime para postearlo al foro.


DiabloRojo.


Se me olvidaba... uso la referencia al ADO 2.5

64
Visual Basic para principiantes / Re: Datagrid
« en: Sábado 1 de Abril de 2006, 02:42 »
Hola kapricorniana.
Pásame la estructura de tus tablas y la consulta sql que usas para llenar el datagrid al correo fieldsoflight@gmail.com. A ver que podemos hacer...

Saludos


DiabloRojo

65
Visual Basic para principiantes / Re: Datagrid
« en: Jueves 30 de Marzo de 2006, 14:35 »
Hola Kapricorniana.
No especificas bien si ya puedes agregar y modificar...
Pero creo que la idea sería que en tu consulta para llenar el datagrid te trajeras los campos claves de las tablas que usas, luego, con estas claves, puedes realizar las operaciones de agregar y modificar trabajando directamente sobre cada tabla involucrada.
Para eliminar tus tablas (aquí no estoy seguro si deberían ser todas o sólo una) deberían tener un campo llave (que tu llamas estado). En todo caso la eliminación realmente funcionaría como una modificación a éste campo(s) en tu(s) tabla(s).
Al menos eso es lo que se me ocurre... Si puedes colocar las estructuras de tus tablas e indicar las relaciones tal vez alguien con más experiencia en bases de datos pueda ayudarte mejor.

Espero que te sea de utilidad mi comentario.

Saludos.


DiabloRojo

66
Visual Basic 6.0 e inferiores / Re: Problema Con La Función Circle
« en: Miércoles 29 de Marzo de 2006, 16:29 »
Hola.
Ya probaste colocando la propiedad AutoRedraw del Form a True?.

Saludos.


DiabloRojo

67
Visual Basic 6.0 e inferiores / Re: Recuperar El Nombre Del Campo
« en: Viernes 10 de Marzo de 2006, 19:53 »
Hola pmike. Pues me quedé con la duda después de enviar el post anterior y me puse a revisar en el VB. Lamentablemente no es la respuesta correcta o al menos en mi compu no funciona (últimamente he tenido problemas con ella). Dando y dando llegué a esto:

Código: Text
  1.  
  2. Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  3.    On Error Resume Next
  4.    'Muestra el contenido de la cabecera de la columna
  5.    Text1.Text = Adodc1.Recordset.Fields(DataGrid1.ColContaining(X)).Name
  6.    'Establece la celda activa del grid
  7.    DataGrid1.Col = DataGrid1.ColContaining(X)
  8.    DataGrid1.Row = DataGrid1.RowContaining(Y)
  9.    'Muestra el contenido de la celda activa
  10.    Text2.Text = DataGrid1.Text
  11. End Sub
  12.  
  13.  

Creé un pequeño proyecto que consta de 2 textbox, 1 datagrid y 1 adodc. El On Error Resume Next es por si el usuario hace click en los encabezados de columna. Ahora sí, espero que sea lo que andas buscando.

Saludos


DiabloRojo.

68
Visual Basic 6.0 e inferiores / Re: Recuperar El Nombre Del Campo
« en: Viernes 10 de Marzo de 2006, 18:07 »
Supongo que lo que deseas es devolver el nombre de la columna. Hace un buen rato que no trabajo con el datagrid pero creo que puedes obtener ese valor capturando el valor de la columna y asignando 0 al valor de la fila. Algo así:

Código: Text
  1.  
  2. Private Sub Datagrid1_Click()
  3.    Dim ColActual as Integer
  4.    Dim NombreCampo as String
  5.    '
  6.    'Capturas
  7.    ColActual=Datagrid1.Col
  8.    '
  9.    'Estableces la celda activa
  10.    Datagrid1.Col=ColActual
  11.    DataGrid1.Row=0
  12.    '
  13.    NombreCampo=DataGrid1.Text
  14. End
  15.  
  16.  

Mummmm... escribiendo el código me doy cuenta que no necesitas capturar la columna actual (pues esta no cambiará) lo único que necesitas es establecer la propiedad row a 0 (cero) para ubicarte en la primera fila (que asumo es fija y contiene los nombres de los campos).

Espero que sea lo que buscas.

Saludos.


DiabloRojo

69
Visual Basic 6.0 e inferiores / Re: No Me Funciona Este Código
« en: Viernes 10 de Marzo de 2006, 01:49 »
Ok cpmario. Muchas gracias por tus comentarios pondré en práctica lo que me comentas sobre el timer.

Saludos


DiabloRojo

70
Visual Basic 6.0 e inferiores / Re: No Me Funciona Este Código
« en: Jueves 9 de Marzo de 2006, 14:19 »
Hola cpmario. No había tenido tiempo para responder... con las modificaciones que me propones... se puede saber en tiempo real si el usuario a cambiado la resolución de la pantalla?

Saludos.


DiabloRojo

71
Visual Basic 6.0 e inferiores / Re: No Me Funciona Este Código
« en: Martes 7 de Marzo de 2006, 21:30 »
Hola cpmario. Gracias por tu pronta respuesta. Te comento que el control SysInfo es un activeX de VB que puedes añadir en la sección de componentes de tu proyecto. De éste sólo uso el evento DisplayChanged para averiguar la resolución que toma la pantalla y a partir de ésta hacer los cambios al form. Lamentablemente en mi equipo no funciona :( . Pienso que tal vez sea mi máquina... De cualquier forma si hay alguna sugerencia o alguien tiene algún otro modo de averiguar la resolución de la pantalla y de cambiar el tamaño del form en consecuencia le estaré muy agradecido.

Nuevamente cpmario muchas gracias por responder a este post.


DiabloRojo

72
Visual Basic 6.0 e inferiores / No Me Funciona Este Código
« en: Martes 7 de Marzo de 2006, 13:53 »
Hola. Qué tal amigos del foro?
Les comento que estoy tratando de lograr que el formulario principal de una aplicación que estoy desarrollando modifique su tamaño (propiedades Height y Width) y posición (Left y Top) de acuerdo a la resolución de pantalla que elija un usuario. Para este propósito utilizo un control SysInfo que detecta el momento en que se elige otra resolución de pantalla. No sé que estoy haciendo mal pero este código no me resulta, es decir, no cambia ni el tamaño del form ni cambia su posición en la pantalla. Este es el código que estoy empleando:


Código: Text
  1.  
  2. Private Sub SysInfo1_DisplayChanged()
  3.    Dim miwidth As Long
  4.    Dim miheight As Long
  5.    
  6.    Text1.Text = SysInfo1.WorkAreaTop
  7.    Text2.Text = SysInfo1.WorkAreaLeft
  8.    Text3.Text = SysInfo1.WorkAreaHeight
  9.    Text4.Text = SysInfo1.WorkAreaWidth
  10.    '
  11.    'Calculamos la resolución
  12.    miwidth = Screen.Width / 15
  13.    miheight = Screen.Height / 15
  14.    '
  15.    'esto no actualiza el tamaño del form :-S
  16.    If ((miwidth = 800) And (miheight = 600)) Then
  17.       Me.Width = SysInfo1.WorkAreaWidth
  18.       Me.Height = SysInfo1.WorkAreaHeight
  19.       Me.Left = 0
  20.       Me.Top = 0
  21.    ElseIf ((miwidth > 800) And (miheight > 600)) Then
  22.       Me.Width = (Screen.Width * 0.75) 'el ancho es el 75% del ancho de la pantalla
  23.       Me.Height = (Screen.Height * 0.75) 'el largo es el 75% de la pantalla
  24.       Me.Left = (Screen.Width - Me.Width) / 2 ' Centra el form horizontalmente
  25.       Me.Top = (Screen.Height - Me.Height) / 2 'Centra el form verticalmente
  26.    ElseIf ((miwidth < 800) And (miheight < 600)) Then
  27.       MsgBox "resolución no soportada por la aplicación"
  28.    End If
  29. End Sub
  30.  
  31.  

Alguien sabe qué está pasando? Hay una mejor manera de hacer lo que pretendo?

De antemano agradezco a todos su ayuda.


DiabloRojo

73
Visual Basic 6.0 e inferiores / Re: Sumar, Restar Y Volver Sumar Horas??
« en: Viernes 27 de Enero de 2006, 13:34 »
Mummm... no sé... trata utilizando las funciones DateAdd y DateDiff del vb. Tal vez sirvan para tus propósitos.

Saludos.

DiabloRojo.

74
Visual Basic 6.0 e inferiores / Re: Progress Bar Y Datareport
« en: Viernes 9 de Diciembre de 2005, 17:07 »
Podrías intentar verificando cuando el valor del value sea igual a la propiedad max del progressbar.

Saludos.

75
Visual Basic 6.0 e inferiores / Re: Cadena De Caracteres Ayudaaa
« en: Martes 1 de Noviembre de 2005, 17:17 »
Hola.
Me llamó la atención tanto la pregunta como las respuestas de este hilo. Así que me puse a probar y esto fue lo que salió:

Código: Text
  1.  
  2. Private Function CalcularDigito(num As String) As String
  3.    Dim VarTemp As String
  4.    Dim i As Integer
  5.    '
  6.    DoEvents
  7.    If (Not (IsNumeric(num))) Then
  8.       Err.Raise 1001, , "Argumento no válido. La función sólo acepta valores numéricos."
  9.       Exit Function
  10.    End If
  11.    '
  12.    If (Len(num) = 1) Then
  13.        CalcularDigito = num
  14.    Else
  15.       VarTemp = 0
  16.       For i = 1 To Len(num)
  17.          VarTemp = Trim(Str(Val(VarTemp) + Val(Mid(num, i, 1))))
  18.       Next
  19.       CalcularDigito = CalcularDigito(VarTemp)
  20.    End If
  21. End Function
  22.  
  23.  


Como vez es una función recursiva (se llama a sí misma) y como resultado devuelve un único dígito. No sé si era eso lo que buscabas...

Saludos.


DiabloRojo.

Páginas: 1 2 [3] 4 5 ... 9