Hector81
18 de Marzo del 2005

Quisiera saber el codigo de como desplegar automaticamente un datacombo, he probado con el codigo del combobox pero no sale, ojala me puedan ayudar

OzizWolf
18 de Marzo del 2005

El crio de arriba con nombre aleman tiene razon, combobox es mas completo, pero pero si te sirve solo llenarlo no tenes necesidad del otro. de todos modos;

Private Sub Form_Load()
With Combo1
.Text = ""
.AddItem "Liliana"
.AddItem "Perez"
.SelText = .List(0)
End With
End Sub

OzizWolf
18 de Marzo del 2005

Perdon, entendi solo llenar. Aca va desplegar

Private Declare Function SendMessageLong Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Form_Load()
with Combo1
.Clear
.AddItem "Liliana"
.AddItem "Marita"
.AddItem "Juan"
.AddItem "Pedro"
.AddItem "Pablo"
.AddItem "Jose"
.AddItem "El Nonno"
.Text = "Yo"
end with

'Podes crear una variable integer para seleccionar el texto
Dim i As Integer
i = 2
Combo1.SelText = Combo1.List(i)

'Esta parte desplega el combo, podes uzarlo con un 'boton o mousemove

Dim Resp As Long
Resp = SendMessageLong(Combo1.hwnd, &H14F, True, 0)

End Sub

DER FUHRER
18 de Marzo del 2005

yo no uso datacombos, uso combobox, si tu me dices la ventaja de usar un datacombo yo te digo como llenarlo.