Pasar una variable de un form a otro

05/09/2011 - 08:25 por maxmad | Informe spam
¡ Hola !
Estoy haciendo una macro en word 2003, en el form1 tengo un boton que al pulsarlo llama a otro form2 donde hay un label con un caption + una Variable (no quiero usar un msgbox porque quiero mostrar imagenes). Pego un pedazo del codigo:

En el form1:
If TCMENOR3FRAMES_CONT <>0 Then
Call UserForm2.Show (TCMENOR3FRAMES_CONT)
End If

En el form2:
Private Sub UserForm3_Initialize(TCMENOR3FRAMES_CONT)
Label2.Caption = "Valor: " & TCMENOR3FRAMES_CONT
Label2.font.Size = 26
Label2.font.color = vbRed
UserForm3.Show
End Sub

Quisiera saber como tengo que hacer para pasar la variable (el form2 se abre pero la variable no pasa) diganme por favor, que está mal y como corregirlo.
Desde ya mucha gracias

Preguntas similare

Leer las respuestas

#1 Leonardo Azpurua
05/09/2011 - 22:27 | Informe spam
Hola,

La verdad, nunca he diseñado un formulario con VBA (uso VB6), pero creo que
no puedes pasar argumentos al evento Initialize de los formularios.

Lo que hago equivaldría en UserForm3 a esto:

Public Sub showWithData(data As String)
Label2.Caption = "Valor: " & Data
Label2.font.Size = 26
Label2.font.color = vbRed
Show
End Sub

y desde donde lo necesites:

UserForm3.showWithData "Esto es una prueba"

Suerte!


"maxmad" escribió en el mensaje
news:
¡ Hola !
Estoy haciendo una macro en word 2003, en el form1 tengo un boton que al
pulsarlo llama a otro form2 donde hay un label con un caption + una
Variable
(no quiero usar un msgbox porque quiero mostrar imagenes). Pego un pedazo
del
codigo:

En el form1:
If TCMENOR3FRAMES_CONT <>0 Then
Call UserForm2.Show (TCMENOR3FRAMES_CONT)
End If

En el form2:
Private Sub UserForm3_Initialize(TCMENOR3FRAMES_CONT)
Label2.Caption = "Valor: " & TCMENOR3FRAMES_CONT
Label2.font.Size = 26
Label2.font.color = vbRed
UserForm3.Show
End Sub

Quisiera saber como tengo que hacer para pasar la variable (el form2 se
abre
pero la variable no pasa) diganme por favor, que está mal y como
corregirlo.
Desde ya mucha gracias
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida