Hallo an alle,
Ich sehe den Wald vor lauter Bäume nicht. Bin auch alles andere als gut im Programmieren.
Folgenden Fehler bekomme ich in Zeile 40 .
System.OverflowException: "Die arithmetische Operation hat einen Überlauf verursacht."
Würde mich freuen wen ihr mir weiter helfen könntet. Google habe ich schon gefernt Danke
Ich sehe den Wald vor lauter Bäume nicht. Bin auch alles andere als gut im Programmieren.
Folgenden Fehler bekomme ich in Zeile 40 .
System.OverflowException: "Die arithmetische Operation hat einen Überlauf verursacht."
Würde mich freuen wen ihr mir weiter helfen könntet. Google habe ich schon gefernt Danke
VB.NET-Quellcode
-
- Public Class Form1
- Declare Function QC_StartSender Lib "FXBlueQuickChannel.dll" (ByVal ChannelName As String) As Long
- Declare Function QC_ReleaseSender Lib "FXBlueQuickChannel.dll" (ByVal ChannelHandle As Long)
- Declare Function QC_SendMessage Lib "FXBlueQuickChannel.dll" (ByVal ChannelHandle As Long, ByVal Message As String, ByVal Flags As Long) As Long
- Declare Function QC_StartReceiver Lib "FXBlueQuickChannel.dll" (ByVal ChannelName As String, ByVal WindowHandle As Long) As Long
- Declare Function QC_ReleaseReceiver Lib "FXBlueQuickChannel.dll" (ByVal ChannelHandle As Long)
- Declare Function QC_CheckChannel Lib "FXBlueQuickChannel.dll" (ByVal ChannelName As String) As Long
- Declare Function QC_ChannelHasReceiver Lib "FXBlueQuickChannel.dll" (ByVal ChannelName As String) As Long
- Declare Function QC_GetMessages5W Lib "FXBlueQuickChannel.dll" (ByVal ChannelHandle As Long, ByVal Buffer As String, ByVal BufferSize As Long) As Long
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim Buffer As String
- Dim szBuffer As Long
- Dim res As Long
- Dim qchandle As Long = QC_StartReceiver("TestChannel", 1)
- Dim strResult As String
- szBuffer = 100000
- Buffer = Space$(szBuffer + 1)
- res = QC_GetMessages5W(qchandle, Buffer, szBuffer)
- If res > 0 Then
- strResult = Strings.Left$(Buffer, res)
- TextBox1.Text = strResult
- ElseIf res = 0 Then
- MsgBox("000")
- Else
- End If
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Dim s As Long = QC_CheckChannel("TestChannel")
- TextBox1.Text = s.ToString
- End Sub
- End Class