user32.dll einbinden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: user32.dll einbinden
von: Torsten
Geschrieben am: 13.04.2005 10:53:30
Hallo zusammen,
sicherlich eine einfache Frage, aber trotzdem...
Ich möchte die user32.dll einbinden im VB Editor (Extras/verweise).
Mittels "Durchsuchen" browse ich im System32 Verzeichnis und finde diese Datei.
Lieder funktioniert das nicht: Verweis auf angegebene Datei kann nicht hinzugefügt werden".
Die vorhandenen Verweise beinhalten diese dll auch nicht.
Weiß da jemand weiter?
Danke und Gruss,
Torsten

Bild

Betrifft: AW: user32.dll einbinden
von: Bert
Geschrieben am: 13.04.2005 13:06:24
Hi,
du wirst dafür ja sicher einen Grund haben. Teil doch einfach mal mit, was du damit erreichen willst.
mfg Bert
Bild

Betrifft: AW: user32.dll einbinden
von: Torsten
Geschrieben am: 13.04.2005 14:25:39
Hi zurück,
ich möchte über eine Prozedur die "Num Lock" Taste ansteueren und habe auch den entsprechenden Code. Dieser erfordert allerdings die user32.dll.
Gruss,
Torsten
Bild

Betrifft: AW: user32.dll einbinden
von: K.Rola
Geschrieben am: 13.04.2005 14:40:43
Hallo,
so kannst du z.B. den Status abfragen. Du brauchst nicht die User32.dll, sondern
einige Funktionen daraus:
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long
Private Const VER_PLATFORM_WIN32_NT = 2
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_CAPS = &H14
Private Const VK_NUM = &H90
Private Const VK_SCROLL = &H91
Private keys(0 To 255) As Byte
Private Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long
   szCSDVersion As String * 128
End Type
Private oSv As OSVERSIONINFO
Private Function Status(Taste) As Boolean
   Dim bInsertKeyState As Boolean
   oSv.dwOSVersionInfoSize = Len(oSv)
   GetVersionEx oSv
   GetKeyboardState keys(0)
   Status = keys(Taste)
End Function
Sub Testen()
Taste = VK_NUM
MsgBox Status(Taste)
End Sub
Gruß K.Rola

Bild

Betrifft: AW: user32.dll einbinden (Merci)
von: Torsten
Geschrieben am: 13.04.2005 16:21:45
Vielen Dank für die Info!
Gruss,
Torsten
 Bild

Beiträge aus den Excel-Beispielen zum Thema "user32.dll einbinden"