Asx Toolbar
Buenos días, Estoy empezando con el visual Basic. Tengo un Formulario dónde he insertado un Asx Toolbar con cinco botones y aspecto XP. Bien, lo que quiero es insertar un código a cada uno de los botones, pero no se como hacerlo. El código comienza así
Private Sub asxToolbar1_ButtonClick(Index As Integer, ByVal ButtonIndex As Integer, ByVal ButtonKey As String)
End Sub
¿Qué he de hacer?, ¿He de crear un índice de botones? ¿Cómo puedo hacerlo? Por favor, alguien me puede indicar como puedo especificar estos cinco botones y como añadirles un código a cada uno.
Gracias.
Private Sub asxToolbar1_ButtonClick(Index As Integer, ByVal ButtonIndex As Integer, ByVal ButtonKey As String)
End Sub
¿Qué he de hacer?, ¿He de crear un índice de botones? ¿Cómo puedo hacerlo? Por favor, alguien me puede indicar como puedo especificar estos cinco botones y como añadirles un código a cada uno.
Gracias.
1 Respuesta
Respuesta de carloscharly
1
Bueno tienes que saber que desde que ingresas esos botones, ya te creo un index para cada uno, este seria el código para ingresar a cada uno de ellos:
Private Sub asxToolbar1_ButtonClick(Index As Integer, ByVal ButtonIndex As Integer, ByVal ButtonKey As String)
Select Case Button.Index
Case 1
'frmConceptos.Show 1
Case 2
'frmPacientes.Show 1
'.
'.
'.
End Select
End Sub
Private Sub asxToolbar1_ButtonClick(Index As Integer, ByVal ButtonIndex As Integer, ByVal ButtonKey As String)
Select Case Button.Index
Case 1
'frmConceptos.Show 1
Case 2
'frmPacientes.Show 1
'.
'.
'.
End Select
End Sub
