Manual para uso de combo box

Iniciado por BenRu, 21 Octubre 2005, 20:53 PM

0 Miembros y 2 Visitantes están viendo este tema.

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


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):

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
algo huele mal.... firma "LA CACA"


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

Cita de: BenRu en 21 Octubre 2005, 20:53 PM
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..  ;)
Suerte ;)
Never say I can't

The Most Beautiful

No es problema de tu ISP, es tu navegador!
Usa Firefox

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


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


BenRu

Con este code podre poner k se vuelva mayuscula no?

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