texto del combobox

[sielfi]

Hola a todos! ¿Cómo puedo hacer para que el texto predeterminado de mi combobox sea "Mostrar todos"? La lista del combobox la he ingresado desde el evento load del form.

Código:

Private Sub Form_Load()
    Combo1.AddItem "Mostrar todos"
    Combo1.AddItem "Nombre del Artículo"
    Combo1.AddItem "Marca"

Lo que quiero es que, al ejecutar el formulario, el texto que aparezca sea "Mostrar todos".

Muchas gracias.

PD: la propiedad style del combobox está en dropdown list, para que el usuario no pueda escribir en el texto del combo.

[krev16]

Mira lo que se me ha ocurrido, aver si te sirve:

La propiedad Style del Combo ponla en 0 (dropdown). Luego en el caption del mismo coloca "Mostrar todos".

Luego en el form_load:

Código:

Private Sub Form_Load()
    Combo1.AddItem "Nombre del Artículo"
    Combo1.AddItem "Marca"
End Sub

Y por último este código para que no puedan escribir en el mismo:

Código:

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

Saludos.

[Kruzado]

combo1.text="Mostrar Todos"

[sielfi]

Ok gracias por tu ayuda!

[lokoman]

Otra Forma:

Código vb:

'
    Combo1.AddItem "Mostrar todos"
    Combo1.AddItem "Nombre del Artículo"
    Combo1.AddItem "Marca"
 
    Combo1.Text=Combo1.List(0)
 

[sielfi]

Gracias lokoman!

[lokoman]

[servantsoftware]

Buena lokoman :)