Moin E*PvPers,
ich habe mir ein Script für ein eigenes kleines Soundboard geschrieben.
Will ich aber einen 2ten machen, zeigt mit Visual Basic 2010 folgende
Fehler an:
Danke schonmal im Voraus!
LG! :mofo:
ich habe mir ein Script für ein eigenes kleines Soundboard geschrieben.
Beim ersten Hotkey funktioniert alles noch super.Quote:
Public Class Form1
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
Private Const Key_NONE As Integer = &H0
Private Const WM_HOTKEY As Integer = &H312
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.X)
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
If m.Msg = WM_HOTKEY Then
Select Case m.WParam
Case 1
My.Computer.Audio.Play(My.Resources.Noobies_ist_ei n_Kompliment, AudioPlayMode.Background)
End Select
End If
MyBase.WndProc(m)
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
My.Computer.Audio.Play(My.Resources.Noobies_ist_ei n_Kompliment, AudioPlayMode.Background)
End Sub
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
Private Const Key_NONE As Integer = &H0
Private Const WM_HOTKEY As Integer = &H312
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.B)
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
If m.Msg = WM_HOTKEY Then
Select Case m.WParam
Case 2
My.Computer.Audio.Play(My.Resources.Goot_campen, AudioPlayMode.Background)
End Select
End If
MyBase.WndProc(m)
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
My.Computer.Audio.Play(My.Resources.Goot_campen, AudioPlayMode.Background)
End Sub
End Class
Will ich aber einen 2ten machen, zeigt mit Visual Basic 2010 folgende
Fehler an:
Quote:
Fehler1: "Declare Ansi Function RegisterHotKey Lib "user32"(hWnd As System.IntPtr, id As Integer, fsModifier As Integer, vk As Integer) As Integer" hat mehrere Definitionen mit identischen Signaturen. C:\Users\-\Desktop\Soundboard\Form1.vb 2 30 Soundboard
Quote:
Fehler2: "Private Sub Form1_Load(sender As Object, e As System.EventArgs)" hat mehrere Definitionen mit identischen Signaturen. C:\Users\-\Desktop\Soundboard\Form1.vb 6 17 Soundboard
Quote:
Fehler3: "Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)" hat mehrere Definitionen mit identischen Signaturen. C:\Users\-\Desktop\Soundboard\Form1.vb 10 29 Soundboard
Quote:
Fehler4: "Key_NONE" ist bereits als "Private Const Key_NONE As Integer = 0" in class deklariert. C:\Users\-\Desktop\Soundboard\Form1.vb 23 19 Soundboard
Hab ich was Übersehen oder ist so ein "Dussel-Fehler" drin?^^Quote:
Fehler5: "WM_HOTKEY" ist bereits als "Private Const WM_HOTKEY As Integer = 786" in class deklariert. C:\Users\-\Desktop\Soundboard\Form1.vb 24 19 Soundboard
Danke schonmal im Voraus!
LG! :mofo: