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!
Private Sub Combo1_Click()
Text1 = Combo1.List(Combo1.ListIndex)
End Sub
Eso es ?
esper0 q t sirva
salu2 !
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
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
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.. ;)
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? :-\
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 !
Ya lo se que distingue....gracias por el code
He pensado en ponerle que solo permita mayusculas...asi no abra problemas
de nada :)
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
Sep...
y si keres q vuelva a minusculas pone LCase
salu2 !