Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA-Abrage: "Rollen"-Taste aktiv?

VBA-Abrage: "Rollen"-Taste aktiv?
20.06.2009 20:59:17
Martin
Hallo liebe Excelianer,
gibt es eine Möglichkeit per Excel-VBA abzufragen, ob die "Rollen"-Taste aktiviert wurde? Ich wäre für Lösungsvorschläge sehr dankbar.
Viele Grüße
Martin

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Abrage: "Rollen"-Taste aktiv?
20.06.2009 21:31:18
Original
Hi,
google nach der API GetKeyState
mfg Kurt
AW: VBA-Abrage: "Rollen"-Taste aktiv?
20.06.2009 21:32:42
Josef
Hallo Martin,
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit
'Original von http://www.activevb.de/tipps/vb6tipps/tipp0181.html

Private Declare Function GetKeyboardState Lib "user32" _
  (pbKeyState As Byte) As Long


Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Const VK_CAPITAL = &H14

Sub checkScrollock()
  
  MsgBox "Scrollock ist " & IIf(CheckKey(VK_SCROLL), "an", "aus")
  
End Sub

Private Function CheckKey(Key As Long) As Boolean
  Dim State As Boolean
  Dim Keys(0 To 255) As Byte
  
  Call GetKeyboardState(Keys(0))
  State = Keys(Key)
  CheckKey = State
End Function

Gruß Sepp

Anzeige
Vielen Dank euch beiden!
20.06.2009 22:20:23
Martin
Vielen Dank euch beiden!

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige