Hallo Leute,
folgender Code funktioniert grundsätzlich.
Jedoch stört mich, dass sich der Beepton beim "Gedrückthalten" der Maustaste immer wiederholt.
Habt Ihr eine Idee, wie ich das so hinbekomme, dass nur der einzelne Mausklick erfasst wird?
Die Anwendung soll Touchscreens die keine akkustische Rückmeldung haben mit einem Beepton ausstatten.
Da soll es bei einem Fingerklick aber auch nur einmal piepsen - egal wie lange man den Finger gedrückt hält.
folgender Code funktioniert grundsätzlich.
Jedoch stört mich, dass sich der Beepton beim "Gedrückthalten" der Maustaste immer wiederholt.
Habt Ihr eine Idee, wie ich das so hinbekomme, dass nur der einzelne Mausklick erfasst wird?
Die Anwendung soll Touchscreens die keine akkustische Rückmeldung haben mit einem Beepton ausstatten.
Da soll es bei einem Fingerklick aber auch nur einmal piepsen - egal wie lange man den Finger gedrückt hält.
VB.NET-Quellcode
- Option Strict On
- Imports System.ComponentModel
- Imports System.Runtime.InteropServices
- Public Class FRM_Hauptform
- <DllImport("user32.dll")>
- Public Shared Function GetAsyncKeyState(ByVal vKey As Int32) As Short
- End Function
- Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Int32, ByVal dwDuration As Int32) As Int32
- Public TonHoehe As Integer
- Public TonDauer As Integer
- Private Sub FRM_Hauptform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- TonHoehe = My.Settings.Hoehe
- TonDauer = My.Settings.Dauer
- TrackBar_Hoehe.Value = TonHoehe
- TrackBar_Dauer.Value = TonDauer
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- Timer1.Enabled = False
- If GetAsyncKeyState(&H1) <> 0 Then
- Beep(TonHoehe, TonDauer) 'Frequenz, Dauer
- ElseIf GetAsyncKeyState(&H2) <> 0 Then
- Beep(TonHoehe, TonDauer) 'Frequenz, Dauer
- End If
- Timer1.Enabled = True
- End Sub
- Private Sub TrackBar_Hoehe_Scroll(sender As Object, e As EventArgs) Handles TrackBar_Hoehe.Scroll
- TonHoehe = TrackBar_Hoehe.Value
- End Sub
- Private Sub TrackBar_Dauer_Scroll(sender As Object, e As EventArgs) Handles TrackBar_Dauer.Scroll
- TonDauer = TrackBar_Dauer.Value
- End Sub
- Private Sub FRM_Hauptform_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
- My.Settings.Hoehe = TonHoehe
- My.Settings.Dauer = TonDauer
- My.Settings.Save()
- End Sub
- Private Sub Button_Exit_Click(sender As Object, e As EventArgs) Handles Button_Exit.Click
- Me.Close()
- End Sub
- Private Sub Button_Minimize_Click(sender As Object, e As EventArgs) Handles Button_Minimize.Click
- Me.WindowState = FormWindowState.Minimized
- End Sub
- End Class
Liebe Grüße
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at