Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Funktionalitätserweiterung der Maustaste
#1
Hallo meine Lieben,
ich habe ein kleines Programm geschrieben, welches die Funktionalität der Maustasten und ihrer Kombinationstasten veranschaulicht:

Code:
Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

TextBox2.Value = ""
If Button = 1 Then TextBox2.Value = "Linke Maustaste"
If Button = 2 Then TextBox2.Value = "Rechte Maustaste"
If Button = 4 Then TextBox2.Value = "Mausrad"

If Shift = 1 And Button = 1 Then TextBox2.Value = "Linke Maustaste + Umschalt-Taste gedrückt"
If Shift = 2 And Button = 1 Then TextBox2.Value = "Linke Maustaste + Strg-Taste gedrückt"
If Shift = 3 And Button = 1 Then TextBox2.Value = "Linke Maustaste + Umschalt + Strg-Taste gedrückt"
If Shift = 4 And Button = 1 Then TextBox2.Value = "Linke Maustaste + Alt-Taste gedrückt"
If Shift = 5 And Button = 1 Then TextBox2.Value = "Linke Maustaste + Umschalt + Alt-Taste gedrückt"
If Shift = 6 And Button = 1 Then TextBox2.Value = "Linke Maustaste + Strg + Alt-Taste gedrückt"
If Shift = 7 And Button = 1 Then TextBox2.Value = "Linke Maustaste + Umschalt + Strg + Alt-Taste gedrückt"

If Shift = 1 And Button = 2 Then TextBox2.Value = "Rechte Maustaste + Umschalt-Taste gedrückt"
If Shift = 2 And Button = 2 Then TextBox2.Value = "Rechte Maustaste + Strg-Taste gedrückt"
If Shift = 3 And Button = 2 Then TextBox2.Value = "Rechte Maustaste + Umschalt + Strg-Taste gedrückt"
If Shift = 4 And Button = 2 Then TextBox2.Value = "Rechte Maustaste + Alt-Taste gedrückt"
If Shift = 5 And Button = 2 Then TextBox2.Value = "Rechte Maustaste + Umschalt + Alt-Taste gedrückt"
If Shift = 6 And Button = 2 Then TextBox2.Value = "Rechte Maustaste + Strg + Alt-Taste gedrückt"
If Shift = 7 And Button = 2 Then TextBox2.Value = "Rechte Maustaste + Umschalt + Strg + Alt-Taste gedrückt"

If Shift = 1 And Button = 4 Then TextBox2.Value = "Mausrad + Umschalt-Taste gedrückt"
If Shift = 2 And Button = 4 Then TextBox2.Value = "Mausrad + Strg-Taste gedrückt"
If Shift = 3 And Button = 4 Then TextBox2.Value = "Mausrad + Umschalt + Strg-Taste gedrückt"
If Shift = 4 And Button = 4 Then TextBox2.Value = "Mausrad + Alt-Taste gedrückt"
If Shift = 5 And Button = 4 Then TextBox2.Value = "Mausrad + Umschalt + Alt-Taste gedrückt"
If Shift = 6 And Button = 4 Then TextBox2.Value = "Mausrad + Strg + Alt-Taste gedrückt"
If Shift = 7 And Button = 4 Then TextBox2.Value = "Mausrad + Umschalt + Strg + Alt-Taste gedrückt"

Was mir fehlt ist aber folgende Funktionalitätserweiterung: Wie stelle ich das Scrollen mit der Maustaste fest? Darüber hinaus besitzt meine Maus noch eine weitere Taste auf der linken Seite.
Könnte man die auch ansprechen? Ich hoffe ihr wisst Rat.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste