form1.text (form como variable)

[-rommel_]

lo que pasa en los Procedimientos... Cierto que tu puedes enviar parametros? SI!

ejemplo:

Código vb:

'Evento Click
Private sub Command1_Click()
   Dim a as integer
   Dim b as integer
   a = textbox1
   b = textbox2
   SumarDatos(a,b)
End Sub
'Procedimiento
Public sub SumarDatos (Param1 as integer, Param2 as Integer)
   textbox3.text = Param1 + Param2
End Sub
 

Si te das cuenta como envias parametros VALORES al Procedimiento, donde Envias 2 Valores y la suma lo adiciona al 3er textbox, pero podemos enviar los Controles y tiene el mismo resultado, asi date cuenta:
'Evento Click

Código vb:

Private sub Command1_Click()
   'Envio los 3 controles como parametros, donde los 2 primeros se suman para poner el resultado
   'en el 3ro
   SumarDatos(me.textBox1, me.textBox2, me.textBox3)
End Sub
'Procedimiento
Public Sub SumarDatos(txt1 as TextBox, txt2 as TextBox, txt3 as TextBox)
   txt3.text = txt1.text + txt2.text
End Sub
 

Si ejecutas el resultado es el mismo... entonces CABE DECIR, que si se puede mandar CONTROLES como parametros... lo mismo puedes hacer con los Formularios, te pongo ejemplos:
'Este ejemplo solo envia valores
'Formulario llamado FormularioXXX

Código vb:

Private sub Command1_Click()
   Dim a as integer
   Dim b as integer
   a = textbox1
   b = textbox2
   SumarDatos(a,b)
End Sub
'Este Procedimiento esta en un MODULO
Public sub SumarDatos (Param1 as integer, Param2 as Integer)
   FormularioXXX.textbox3.text = Param1 + Param2
End Sub
 

'Ahora veamos como podemos utilizar este procedimiento para todos los formularios
'Formulario llamado FormularioXXX

Código vb:

Private sub Command1_Click()
   'Envio 4 parametros... 
   '(A)El Formulario del cual mando a ejecutar el procedimiento
   '(B)Los TextBox que estan dentro de ese formulario
   SumarDatos(Me, me.textBox1, me.textBox2, me.textBox3)
End Sub
'Este Procedimiento esta en un MODULO pero definido con Controles
Public Sub SumarDatos(frm as Form, txt1 as TextBox, txt2 as TextBox, txt3 as TextBox)
   frm.txt3.text = frm.txt1.text + frm.txt2.text
End Sub
 

Ahora si... utilizas la funcion para cualquier formulario... "frm" es el nombre de parametroy "Form" es el tipo de parametro (tipo formulario)

Espero aclarar tus dudas amigo... Saludos