Llamar desde el form
Hola..deseo llamar desde el formulario a un procedimiento q tengo en un modulo..
public sub habilitar_text()
dim n as integer
for n = 0 to controls.count - 1
if typeof controls(n) is textbox then
controls().locked = 0
end if
Como lo llamo desde cualquier formulario?¿?
muchas gracias(mandalo a mi mail amigo)
public sub habilitar_text()
dim n as integer
for n = 0 to controls.count - 1
if typeof controls(n) is textbox then
controls().locked = 0
end if
Como lo llamo desde cualquier formulario?¿?
muchas gracias(mandalo a mi mail amigo)
1 Respuesta
Respuesta de carloscharly
1
.NET(modulo)
Public Sub habilitar_text(ByVal frm As Form)
Dim Txt As Control
For Each Txt In frm.Controls
If TypeOf Txt Is TextBox Then
Txt.text =""
End If
Next
End Sub
(llamarlo en los formularios)
habilitar_txt(me)
VB6.0(modulo)
Public Sub habilitar_text(F As Form)
Dim oTexto As Object
For Each oTexto In F.Controls
If TypeOf oTexto Is TextBox Then
oTexto.Locked = 0
End If
Next
End Sub
(llamarlo en los formularios)
habilitar_text Me
Public Sub habilitar_text(ByVal frm As Form)
Dim Txt As Control
For Each Txt In frm.Controls
If TypeOf Txt Is TextBox Then
Txt.text =""
End If
Next
End Sub
(llamarlo en los formularios)
habilitar_txt(me)
VB6.0(modulo)
Public Sub habilitar_text(F As Form)
Dim oTexto As Object
For Each oTexto In F.Controls
If TypeOf oTexto Is TextBox Then
oTexto.Locked = 0
End If
Next
End Sub
(llamarlo en los formularios)
habilitar_text Me
