Ver Mensaje Individual
  #2 (permalink)  
Antiguo 29/11/2004, 09:21
darkjoss
 
Fecha de Ingreso: noviembre-2004
Mensajes: 1
Antigüedad: 20 años
Puntos: 0
Respuesta

Hola Dixie lo primero que tienes que hacer es nombrar los tres botones igual (por ejemplo btnuno), al hacerlo te pedira si quieres crear una matriz de controles presiona aceptar y eso es todo, para trabajar con los botones solo tienes que hacer lo siguiente:

Private Sub btnuno_Click(Index As Integer)
If Index = 0 Then
MsgBox btnuno(0).Caption
End If
If Index = 1 Then
MsgBox btnuno(1).Caption
End If
If Index = 2 Then
MsgBox btnuno(2).Caption
End If
End Sub

o lo que quieres hacer con el for:

For i = 0 To 2
MsgBox btnuno(i).Caption
Next

espero que te sirva.


DARKJOSS

"Lo dificil lo hago rápido, con lo imposible me trado un poco más"