Hallo erstmal !
ich bin noch sehr neu im gebiet der Programmiereung.
Mein Plan ist folgender. ich möchte am ende ein programm namens xbmc mit hilfe von touchscrenn buttons steuern. dazu möchte ich mit dem Button (Lautstärke senken) die Taste SUBTRACT Simulieren.
Das klappt auch, jedoch möchte ich sie solange ich den Button drücke aktiv lassen. also so als ob ich auf einer fernbedienung lange auf lautstärke minus gehe und die lautstärke dann schnell leiser wird.
zurzeit klappt es nur wenn ich den Button wiederholt klicke. Dasselbe gilt auch für die Pfeiltaste nach rechts damit ich schnell durch die filmbibliothek komme und nicht 1000 mal den Button Pfeil nach rechts.
ich habe bereits die ganze nacht gesucht und gesucht aber bin nicht fündig geworden.
Mein aktueller Code sieht so aus. kann ihn mir bitte jemand so schreiben das es geht ? ich hab null ahnnung von timern oder sonst etwas.
Ich wäre eurer Hilfe sehr dankbar !!!
ich bin noch sehr neu im gebiet der Programmiereung.
Mein Plan ist folgender. ich möchte am ende ein programm namens xbmc mit hilfe von touchscrenn buttons steuern. dazu möchte ich mit dem Button (Lautstärke senken) die Taste SUBTRACT Simulieren.
Das klappt auch, jedoch möchte ich sie solange ich den Button drücke aktiv lassen. also so als ob ich auf einer fernbedienung lange auf lautstärke minus gehe und die lautstärke dann schnell leiser wird.
zurzeit klappt es nur wenn ich den Button wiederholt klicke. Dasselbe gilt auch für die Pfeiltaste nach rechts damit ich schnell durch die filmbibliothek komme und nicht 1000 mal den Button Pfeil nach rechts.
ich habe bereits die ganze nacht gesucht und gesucht aber bin nicht fündig geworden.
Mein aktueller Code sieht so aus. kann ihn mir bitte jemand so schreiben das es geht ? ich hab null ahnnung von timern oder sonst etwas.
Ich wäre eurer Hilfe sehr dankbar !!!
VB.NET-Quellcode
- <DllImport("user32.dll", CallingConvention:=CallingConvention.StdCall, _
- CharSet:=CharSet.Unicode, EntryPoint:="keybd_event", _
- ExactSpelling:=True, SetLastError:=True)> _
- Public Shared Sub keybd_event(ByVal bVk As Byte, ByVal bScan As Byte, _
- ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
- End Sub
- Private Sub Button33_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
- 'Definieren von Virtual Keys
- Const KEYEVENTF_KEYUP As Byte = &H2 'KeyUP
- Const VK_SUBTRACT = &H6D
- keybd_event(VK_SUBTRACT, 0, 0, 0) 'Key down
- System.Threading.Thread.Sleep(200)
- keybd_event(VK_SUBTRACT, 0, KEYEVENTF_KEYUP, 0) 'Key up
- End Sub