Visual Basic - Problemas al cargar un formulario

Life is soft - evento anual de software empresarial
   
Vista:

Problemas al cargar un formulario

Publicado por FernandoML (11 intervenciones) el 11/10/2011 11:13:46
Hola a todos espero me puedan ayudar a un problema que tengo.

El problema es el siguiente:

En el procedimiento Form_Load inserto lo siguiente.


Private Sub Form_Load()
For x = 1 To 100
Combo1.AddItem (x)
Next
Combo1.ListIndex = 0
End Sub


Ahora en el evento Click del Combobox creo lo siguiente:


Private Sub Combo1_Click()
if combo1=1 then msgbox("Hola mundo")
End Sub


Pues bien mi problema es el siguiente (Utilizo Visual Basic 6)

Cuando en el Load del Form se ejecuta la siguiente Linea, Combo1.ListIndex = 0, automaticamente se ejecuta el evento Click del Combo1.

Necesito que no se ejecute este evento hasta que el usuario lo haga.

¿Se puede hacer?

Gracias a todos...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Problemas al cargar un formulario

Publicado por Christian (666 intervenciones) el 11/10/2011 22:43:55
si pones que el text del combo sea 1 ?
creo que la intencion es poner el primero de la lista, no?

osea

For x = 1 To 100
Combo1.AddItem (x)
Next
Combo1.Text = "1"

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problemas al cargar un formulario

Publicado por FernandoML (11 intervenciones) el 12/10/2011 08:40:17
Antes de nada muchas gracias por contestar Christian.

Efectivamente, lo que intento es colocar el primero de la lista en el comobox cuando cargo el formulario.

Pero al hacerlo, se ejecuta de forma automatica el evento Click del combobox, por lo que me dificulta al hacer algunas cosas que solamente quiero que haga al seleccionar un item de la lista.

Se me olvidaba decir que la propiedad del combobox STYLE = DROPDOWN LIST

No se si me he explicado con claridad.

Muchas gracias nuevamente a todos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar