Ik heb me een tijdje loos zitten zoeken, alleen weet ik niet hoe het officieel zou moeten. Ik heb het opgelost door een sub aan te maken en die zo snel mogelijk aanroep (bvb in Form1_Load en dan TestClass.Init) waarin de RaiseEvent komt.
De form
De custom class
Ik heb google proberen te gebruiken, zoiets als "Custom Class New RaiseEvent doesn't work" en dingen in die catagorie, maar kon het niet vinden. Het kan ook zijn dat ik heel het concept van "New Object" niet goed snap, en daardoor deze fout maak. Deze twijfel is er omdat ik mezelf VB .net heb aangeleerd
De form
Visual Basic .NET:
1
2
3
4
5
6
7
8
9
10
11
12
| Class Form1 Public WithEvents TestClass As New SendClass() Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load End Sub Public Sub Receive(ByVal msg As String) Handles testclass.newmessage msgbox("Message werk en is: " & msg) End Sub End Class |
De custom class
Visual Basic .NET:
1
2
3
4
5
6
7
8
| Class SendClass Public Event NewMessage(ByVal msg As String) Sub New() RaiseEvent NewMessage("Test") End Sub End Class |
Ik heb google proberen te gebruiken, zoiets als "Custom Class New RaiseEvent doesn't work" en dingen in die catagorie, maar kon het niet vinden. Het kan ook zijn dat ik heel het concept van "New Object" niet goed snap, en daardoor deze fout maak. Deze twijfel is er omdat ik mezelf VB .net heb aangeleerd