uiuiui.
Was die invokerei betrifft:
In der RnEngine sehen die Calls nun so aus
und in Form (RnWizard) eine neue subCode: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)
Diese eine Ecke muß sein, da es für RnEngine klarerweise kein invoke gibt.Code:Public Sub IpDataCall(ByVal MyIp As Integer, ByVal Arg As Integer, ByVal Status As Integer) RnE.IpData(MyIp, Arg, Status) End Sub
Allgemein: Beim Starten ist noch ein durcheinander, weil beim ersten DisplaySetting einige werte noch auf "Nothing" stehen, das mag er ncht so.






Zitieren

Lesezeichen