[AYUDA] Problema al definir y llamar una variable

[Masato]

Buenas, tengo un pequeño problemita, tengo lo siguiente:

Module1

Código vb:

Public define As String
 

Form1

Código vb:

Private Sub Option1_Click()
define = "Hola"
End Sub
 
Private Sub Option2_Click()
define = "Chau"
End Sub
 
Private Sub Form_Load()
Dim define As String
Label1.Caption = define
Form2.Show
End Sub
 

Form2

Código vb:

Private Sub Form_Load()
Dim define As String
Label1.Caption = define
End Sub
 

Lo que quiero hacer es que se almacene el valor de Option1 y Option2 para después mostrarlo, para eso cree un módulo para definir define, pero cuando lo ejecuto, el label se queda en blanco, no muestra nada, como lo puedo solucionar?

[erbuson]

Hola, cuando utilizas una variable compartida, SOLO debes definirla en un sitio, al definir nuevamente en el Load el Dim Define, VB entiende que es una variable distinta y local, por esto su valor es nulo.

Debes eliminar su DIM del Load y funcionará.

Saludos

[Masato]

Le borré el Dim y nada, no muestra nada :S

[SalomonSab]

lo que se te esta diciendo y espero no equivocarme es que tienes que eliminar la variable del Form por ejemplo tu lo tienes asi:

Código:

Private Sub Form_Load()
Dim define As String
Label1.Caption = define
Form2.Show
End Sub

Y deveria estar asi:

Código:

Private Sub Form_Load()
Label1.Caption = define
Form2.Show
End Sub

Espero ayudarte, hasta pronto

[Masato]

Si, ha eso me refería, hice eso pero sigue sin mostrar texto :S

[erbuson]

Hola:

Aparte de lo comentado el problema es que asignas el Label en el evento Load y este SOLO se produce cuando cargas el formulario.

Por otra parte el Show del formulario2 lo haces en el Load del Form1 con lo cual los valores no han sido aún asignados.

El 'montaje' es incorrecto, te hace falta por lo menos un command para llamar al segundo formulario y podrás comprobarlo.

Deja SOLO esto en el código del form2

Private Sub Form_Load()
Label1.Caption = define
End Sub

Deja SOLO esto en el código del form1

Recuerda añadir un Command1 en el formulario 1

Private Sub Command1_Click()
Form2.Show vbModal
End Sub

Private Sub Option1_Click()
define = "Hola"
End Sub

Private Sub Option2_Click()
define = "Adios"
End Sub

Con la sentencia Form2.Show vbModal, obligas a tener que cerrar el form2 para volver al form1 con lo cual en la proxima llamada al form2, volvera a cargarse y producirse el evento load.

Veras como así funciona

Saludos

[Masato]

Gracias por la ayuda, funcionó a la perfección :D, lo que pasa es que no se mucho de VB, le hago mucho más al PHP xD.