Programación General > Visual Basic 6.0 e inferiores

 Desafio!!!!

(1/2) > >>

vbmc_2004:
HOLA!!

Amigos tengo una inquietud, se las comento tengo un combo en donde muestro valores de una tabla, en este combo muestro los código de los productos, pero lo que quiero es a medida que despliego el combo me muestre en algo así como el “TOOLTIPTEXT” que me indique el nombre del producto que acompaña al codigo se entiende???? no lo he intentado hacer me podrían dar una reseña de cómo lo podría hacerlo  OJO no necesariamente deberia ser el TOOLTIPTEXT creo que podría mastrarlos en un “label” ojala entiendan la pregunta!!!


Chau chau y gracias :comp:

Atondo:
algo asi es de lo que yo hablaba...dejando oculto el combo2 solo se mirara el combo1 y el label....Prueba esto... espero te sirva...

Private Sub Combo1_GotFocus()
 Timer1.Interval = 1
End Sub

Private Sub Combo1_LostFocus()
 Timer1.Interval = 0
End Sub

Private Sub Form_Load()
 Combo1.AddItem "Primero"
 Combo1.AddItem "segundo"
 Combo2.AddItem "Tooltiptext Primero"
 Combo2.AddItem "tooltiptext segundo"
End Sub

Private Sub Timer1_Timer()
 Combo2.ListIndex = Combo1.ListIndex
 Label1.Caption = Combo2.Text
End Sub

hitman47:
hola no entiendo muy bien pero creo q puede servirT
--- Código: Text --- Private Sub Combo1_Click()Dim cad$cad$ = Combo1.TextSelect Case cad$Case "codigo1"Label1.Caption = "Azucar"Case "codigo2"Label1.Caption = "sal"Case "codigo3"Label1.Caption = "pimienta"End SelectEnd Sub Private Sub Form_Load()'necesitas un combo box y un labelCombo1.Text = "codigo1"Combo1.AddItem ("codigo1")Combo1.AddItem ("codigo2")Combo1.AddItem ("codigo3")Label1.Caption = "Azucar"End Sub  ESE ES UNO Y EL OTRO


--- Código: Text --- Private Sub Combo1_Click()Dim cad$cad$ = Combo1.TextSelect Case cad$Case "codigo1"Combo1.ToolTipText = "Azucar"Case "codigo2"Combo1.ToolTipText = "sal"Case "codigo3"Combo1.ToolTipText = "pimienta"End SelectEnd Sub Private Sub Form_Load()'necesitas un combo boxCombo1.Text = "codigo1"Combo1.AddItem ("codigo1")Combo1.AddItem ("codigo2")Combo1.AddItem ("codigo3")Combo1.ToolTipText = "Azucar"End Sub  :lol:  :hola:  :comp: SALU2

vbmc_2004:
Hola hitman47!!

sabes el efecto del segundo codigo es mas menos lo que quiero hacer, pero con la diferencia es que el combo sea llenado mediante una consulta SQL a una base de datos SQL, y que el efecto se produsca a medida que el puntero del raton pase recorriendo el "codigo1","codigo2" y no cuando seleccionas uno de esos entiendes ahora el primer codigo despues que consulte la primera vez intente hacerlo y me resulto igual que el primer codigo que me enviaste..

chau chau y gracias

scorpion25acv:
Hola,
Otra forma de hacerlo, y que mucha gente desconoce es usar otro componente que puedes encontrar argregando en en menu Proyecto >> Componentes...
Microsoft Forms 2.0 Object Library (FM20.dll),  

Que les cuento es muy bueno, te permite manejar mas de 2 columnas, y por medio de una propiedad ColumWidth ocultar las q no quieres ver, segun sea el caso y escoger de cual quieres obtener el valor a guardar en la base de datos, me explico muestras la Columna 2, pero guardas el valor de la columna 1
En mi caso lo lleno desde una BD access, pero lo puedes implementar para sql te adjunto un ejemplo:

--- Código: Text --- Sub LLenarCombo(ByRef Query As ADODB.Recordset, strSql As String, Item1 As Integer, _Item2 As Integer, Cbo As Object)Dim li_fila As Integerli_fila = 0Set Query = New ADODB.Recordset    Query.Open strSql, conexionBD    Query.MoveFirst    Do While Not Query.EOF        Cbo.AddItem (Query.Fields(Item1))        Cbo.List(li_fila, 1) = Query.Fields(Item2)        li_fila = li_fila + 1        Query.MoveNext    LoopEnd Sub  Este procedimiento me llena un combo de 2 columnas y tambien se debe inicializar de donde se sacran los valores y como se van a presentar :
en tiempo de diseño, en la ventana de propiedades, buscas
ColumCount = 2 (le signas el numero de columnas q deseas, dependiendo de como lo llenes) y BoundColumn = 1( para decirle de cual columna de combo queremos tomar el valor)
Puedes consultar la ayuda para este componente en la ayuda de MSDN, o me cuentas a ver como te va , si te sirve la idea, o si alguien sabe mas de lo mismo, jeje para aprender...
Salu2 y suerte
ahh NOTA: te van a aparecer otra vez los mismos nombres de los componentes default, se llaman exactamente igual, talves hasta mas , pero deduce por logica que son los ultimos (son mas opacos en color, el textbox es mas oscuro) .  Tambien presentan  algunos conflictos , como cuando se trata de procedimientos , como de limpiar todos los objetos del formulario, por ejem hay que hacerlo a mano como dicen.
 Con estos ultimos da problemillas  xq algunas veces no lo hace y tienden a confundir con los otros, de estos solamente he usado el comboBox que te mencione.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente