access form from module

[mrdance]

I have a sub in a module:

 

Public Sub addstatus(ByVal msg As String)

frmChatMain.ListBox1.Items.Add(Now & " " & msg)

End Sub

 

But I can't access frmChatMain which is the name of the main window. How can I do that?

 

thanks / Henrik

[PlausiblyDamp]

You would need to pass the form in as a parameter to the function as well.

Public Sub addstatus(ByVal msg As String, f as frmChatMain)
f.ListBox1.Items.Add(Now & " " & msg)
End Sub

[mrdance]

ok, so there is no way to access the form without passing the parameter in?

[dynamic_sysop]

in your Module ...

Module Module1
   Public f As Form1 '/// must be initialized , but that will happen in the form's load event.

   Public Sub addstatus()
       f.ListBox1.Items.Add("some stuff")
   End Sub

End Module

in your Form ...

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       f = DirectCast(Me, Form1) '/// initialize the form " f " when loading your main form.
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       addstatus() '/// test to see if addstatus adds an item to this form's listbox.
   End Sub

[mrdance]

Nice solution! Thank you!

 

Is there any disadvantages of using this method?

[dynamic_sysop]

not really no , just remember not to dispose of the " f " , because then you will have to re-initialize it :)