No veo variables PUBLICAS de un Modulo, por que??

[kachalot]

Estoy haciendo una aplicacion Visual Basic .NET, y en un modulo genero unas variables publicas que qiero utilizar en un form. Pues pasa q cuando quiero asignarselas a los labels no me asigna nada........y no se por que??????????????????

[RootK]

Puedes escribirnos lo que tienes en tu módulo..para ver que es lo que estás haciendo..??

Saludos

[sindestino]

acordate de Referenciar a esa variable públic como nombreModulo.Variable y de que.... sea pública
Y a modo de recomendación te diría que en lugar de usar módulos que son obsoletos, uses clases con métodos o variables Shared que es algo más "orientado a objetos"

Saludos

[kachalot]

Gracias!!!!! Pero sigo sin poder ver en el form el contenido de los labels, q en la ejecucion del progrma tiene valores pero despues na de na, no veo el contenido.

[sindestino]

ayudaría mucho ver tu código kachalot

[k3ko]

A ver si por casualidad hace la asignacion antes de que tomen valores o algo asi.
Pero no cabe duda que con codigo seria un tanto mas facil encontrar posibles soluciones.

[kachalot]

ESTO ES LO Q TENGO EN EL MODULE...


Public Cambiar, Borrar, Crear, Renombrar As String
Public DirActual As String




Public Sub Wachter()
Dim MyWatcher As New System.IO.FileSystemWatcher ' crea un nuevo objeto System.IO.FileSystemWatcher()
MyWatcher.Path = DirActual ' directorio a monitorear
MyWatcher.IncludeSubdirectories = True ' indica si se deben monitorear los subdirectorios
'======EVENTOS
AddHandler MyWatcher.Changed, AddressOf OnChanged
AddHandler MyWatcher.Created, AddressOf OnCreated
AddHandler MyWatcher.Deleted, AddressOf OnDeleted
AddHandler MyWatcher.Renamed, AddressOf OnRenamed
MyWatcher.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName)
MyWatcher.EnableRaisingEvents = True
End Sub

Public WChanged As Integer '1
Public WCreated As Integer '2
Public WRenamed As Integer '3
Public WDeleted As Integer '4

Public Sub SetStatics(ByVal val As Integer)

Dim fIni As New inicial

Select Case val
Case 1
WChanged = WChanged + 1
Case 2
WCreated = WCreated + 1
Case 3
WRenamed = WRenamed + 1
Case 4
WDeleted = WDeleted + 1
End Select
Cambiar = WChanged
Borrar = WDeleted
Crear = WCreated
Renombrar = WRenamed


'fIni.lCam.Text = Cambiar
'fIni.lBor.Text = Borrar
'fIni.lCre.Text = Crear
'fIni.lRen.Text = Renombrar

fIni.ControlarEventos()

End Sub

Public Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs) ' se dispara cuando se modifica o accede a un archivo
SetStatics(1)
End Sub

Public Sub OnDeleted(ByVal source As Object, ByVal e As FileSystemEventArgs) ' al eliminar un archivo
SetStatics(4)
End Sub

Public Sub OnCreated(ByVal source As Object, ByVal e As FileSystemEventArgs) ' al crear un archivo
SetStatics(2)
End Sub

Public Sub OnRenamed(ByVal source As Object, ByVal e As RenamedEventArgs) ' renombrar un archivo
SetStatics(3)
End Sub

==============================================
==============================================

ESTO OTRO ES EL FORM Q QUIERE HACER USO DE LAS VARIABLES...

Private Sub bMon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bMon.Click

'Dim pmaWat As New pmaWatcher

Module1.DirActual = lDirAct.Text

pmaWat.Wachter()

lCam.Text = Cambiar
lBor.Text = Borrar
lCre.Text = Crear
lRen.Text = Renombrar

End Sub

Public Sub ControlarEventos()

Dim x As String
'Dim pmaWat As New pmaWatcher

x = Crear

lCam.Text = Cambiar
lBor.Text = Borrar
lCre.Text = Crear
lRen.Text = Renombrar

End Sub


Lo curioso es q viendolo paso a paso,
lCam.Text = Cambiar
lBor.Text = Borrar
lCre.Text = Crear
lRen.Text = Renombrar
todo tiene valor pero a la hora de sacarlo por pantalla, na de na........?????

Gracias