frmCache.IPC.SendData(sName, sData, CInt(getTargetHwnd()))

Try
    Dim sName(5) As String
    Dim sData(5) As String
 
    IDzähler = IDzähler + 1
    If IDzähler = 21 Then IDzähler = 1
 
    sName(0) = "gateway"
    sName(1) = "UserPluginName"
    sData(1) = CStr(frmCache.IPC.GetOCXHwnd)
    sName(2) = "GETVALUE"
    sData(3) = "time"     'Categorie
    sData(4) = "hh:mm:ss" 'Value
 
    'Hier wird sName und sData mit den beiden Warnungen angezeigt!!!
    frmCache.IPC.SendData(sName, sData, CInt(getTargetHwnd())) '<-----hier ist 
    ' ein Integer
 
Catch ex As Exception
    Startflag = False
    Timer1.Enabled = False
    IDzähler = 0
    MsgBox(ex.ToString, MsgBoxStyle.Critical)
End Try

Gruß
Christoph



Beitrag wurde zuletzt am 30.05.10 um 09:48:31 editiert.