[Hilfe]Bei Hotkeys

[DEV-Explo.IT]

Moin E*PvPers,

ich habe mir ein Script für ein eigenes kleines Soundboard geschrieben.

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

Beim ersten Hotkey funktioniert alles noch super.
Will ich aber einen 2ten machen, zeigt mit Visual Basic 2010 folgende
Fehler an:

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

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

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

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

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

Hab ich was Übersehen oder ist so ein "Dussel-Fehler" drin?^^
Danke schonmal im Voraus!
LG!

[Freddy​]

Dashier ist der Falsche Bereich. Hier ist AutoIt.

[Lawliet]

#closed