uiuiui.
Was die invokerei betrifft:
In der RnEngine sehen die Calls nun so aus
Code:
Public Sub Form1_Cb(ByVal FForm As System.Windows.Forms.Form, ByVal MyIp As Integer, ByVal Arg As Integer, ByVal Status As Integer)
Dim datacb As RnIpEvent
datacb = New RnIpEvent(AddressOf RnWizard.IpDataCall) NEW NAME NEW NAME NEW NAME
FForm.Invoke(datacb, MyIp, Arg, Status) ' Arg: see below
End Sub '(Autor:PicNick) 16.11.2006 21:09 GG
'-------------------------------------------------------------------------------------------------
' Build Connection
'-------------------------------------------------------------------------------------------------
Public Function Connect(ByVal MyRNServerIP As String, ByVal MyRNServerPort As String) As String
Dim ResultValue As String = ""
If IpRef = 0 Then
RnIpCB = New CallBack(AddressOf Form1_Cb)
IpRef = RnIpConnect(MyRNServerIP, MyRNServerPort, RnIpCB, RnWizard, 38)
und in Form (RnWizard) eine neue sub
Code:
Public Sub IpDataCall(ByVal MyIp As Integer, ByVal Arg As Integer, ByVal Status As Integer)
RnE.IpData(MyIp, Arg, Status)
End Sub
Diese eine Ecke muß sein, da es für RnEngine klarerweise kein invoke gibt.
Allgemein: Beim Starten ist noch ein durcheinander, weil beim ersten DisplaySetting einige werte noch auf "Nothing" stehen, das mag er ncht so.
Lesezeichen