Manual para uso de combo box

[BenRu]

Estoy haciendo una aplicacion y necesito controlar el uso de un combo box.
Necesito que al pulsar sopbre una sección/parte del combo box, esta escriba una palabra en un text.me entienden?
De donde puedo sacar elm anual?
Salu2!

[NYlOn]

Código [Seleccionar] Expandir


Private Sub Combo1_Click()
    Text1 = Combo1.List(Combo1.ListIndex)
End Sub


Eso es ?

esper0 q t sirva

salu2 !

[la caca]

como una sección del combobox?, no sera sobre un item???
si es asi pone (un ejemplo):

Código [Seleccionar] Expandir

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "hola"
MsgBox "chau"
Case "chau"
MsgBox "hola"
End Select
End Sub

Private Sub Form_Load()
With Combo1
   .AddItem "hola"
   .AddItem "chau"
End With
End Sub


[BenRu]

la caca me refiero a algo mas simple...no se como decirlo porque nunca utilice un combo box...
Pero imaginense que yo tengo un combo box con varios items, y que al dejar uno, por ejemplo Salir, en un text box diga: Salir del programa....un ejemplo absurdo pero asi

[Leoj90]

combo box
De donde puedo sacar el manual?

Q yo sepa no existe un manual sobre combo box, listbox... Existe sobre los componentes "menos usados" (winsock....).. deberías conseguir un buen manual q explique bien los componentes, así no tendrías esta pregunta.. 

[BenRu]

Ahora mismo con mis estudios no puedo aprender visual basic a fondo, simplemente voy aprendiendo lo que me va haciendo falta...hasta el dia que tenga tiempo y me ponga en serio.

Nadie sabe algun code?

[NYlOn]

Código [Seleccionar] Expandir


Private Sub Combo1_Click()
Select Case Combo1.Text
Case "Salir"
Text1.Text = "Salir del programa"
Case "Ayuda"
Text1.Text = "Muestra una pequeña ayuda"
Case "LOKEKIERAS"
Text1.Text = "Aca va el texto q se me cante la xuxa xD"
Case Else 'en caso de que no diga nada de lo q apuntamos anteriormente (esto se puede sacar)
Text1.Text = "" 'deja el txtbox vacio (esto tmb XD)
End Select
End Sub


Eso tiene q funcionar ...

NOTA: El code distingue minusculas y mayusculas, x ej:
Si el ComboBox dice salir y en nuestro codigo tenemos un case q se llame Salir, no lo va a tomar... Asike tene cuidado...
Espero q t sirva el code

salu2 !

[BenRu]

Ya lo se que distingue....gracias por el code
He pensado en ponerle que solo permita mayusculas...asi no abra problemas

[NYlOn]

de nada

[BenRu]

Con este code podre poner k se vuelva mayuscula no?

Código [Seleccionar] Expandir

Private Sub Text1_Change()
Dim I As Integer
Text1.Text = UCase(Text1.Text)
I = Len(Text1.Text)
Text1.SelStart = I
End Sub