Saber clase de un objeto
Hola:
Quisiera que alguien me diga como puedo saber la clase de un objeto en visual basic.
Por ejemplo: Tengo un formulario con 2 textbox y un command y en el evento click del botón tengo:
Private Sub Command1_Click()
For i = 0 To Me.Count - 1
MsgBox Me.Controls(i).Name
Next
Esto me va mostrando los nombres de los objetos que tengo en el, pero quisiera que me mostrara los nombres de las clases a las que ellos pertenecen.
Gracias!
End Sub
Quisiera que alguien me diga como puedo saber la clase de un objeto en visual basic.
Por ejemplo: Tengo un formulario con 2 textbox y un command y en el evento click del botón tengo:
Private Sub Command1_Click()
For i = 0 To Me.Count - 1
MsgBox Me.Controls(i).Name
Next
Esto me va mostrando los nombres de los objetos que tengo en el, pero quisiera que me mostrara los nombres de las clases a las que ellos pertenecen.
Gracias!
End Sub
2 respuestas
Respuesta de yodelmis
1
SUB DAMEOBJECTTYPE()
DIM F AS CONTROL
FOR EACH F IN ME.CONTROLS
IF TYPEOF(F) IS COMMANDBUTTON THEN
MSGBXO BOTON
END IF
IF TYPEOF(F) IS CHECKBOX THEN
MSGBXO CHECKBOX
END IF
ENXT
END SUB
DIM F AS CONTROL
FOR EACH F IN ME.CONTROLS
IF TYPEOF(F) IS COMMANDBUTTON THEN
MSGBXO BOTON
END IF
IF TYPEOF(F) IS CHECKBOX THEN
MSGBXO CHECKBOX
END IF
ENXT
END SUB
Respuesta de xabi
1
¿Te sirve esto?
Private Sub Command1_Click()
Dim i As Integer
Dim sTipo As String
For i = 0 To Me.Count - 1
If TypeOf Me.Controls(i) Is Label Then
sTipo = "Label"
ElseIf TypeOf Me.Controls(i) Is TextBox Then
sTipo = "TextBox"
ElseIf TypeOf Me.Controls(i) Is CheckBox Then
sTipo = "CheckBox"
ElseIf TypeOf Me.Controls(i) Is CommandButton Then
sTipo = "CommandButton"
ElseIf TypeOf Me.Controls(i) Is Data Then
sTipo = "Data"
'...
End If
MsgBox Me.Controls(i).Name & " " & sTipo
Next
End Sub
Private Sub Command1_Click()
Dim i As Integer
Dim sTipo As String
For i = 0 To Me.Count - 1
If TypeOf Me.Controls(i) Is Label Then
sTipo = "Label"
ElseIf TypeOf Me.Controls(i) Is TextBox Then
sTipo = "TextBox"
ElseIf TypeOf Me.Controls(i) Is CheckBox Then
sTipo = "CheckBox"
ElseIf TypeOf Me.Controls(i) Is CommandButton Then
sTipo = "CommandButton"
ElseIf TypeOf Me.Controls(i) Is Data Then
sTipo = "Data"
'...
End If
MsgBox Me.Controls(i).Name & " " & sTipo
Next
End Sub