Featured

Windows API

Juni 2, 2023

Mit der Windows API arbeiten

Bild in UserForm anzeigen
Handle des Fensters zurückbekommen
Bild in Titelleiste der UserForm hinzufügen
Code als Unterprozedur aufbereiten um bestehende UserFormen aufzuwerten

Code

#If VBA7 Then
     Public Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
     Public Declare PtrSafe Function SendMessageA Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
#Else
     Public Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
     Public Declare Function SendMessageA Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
#End If

Teile diesen Beitrag

Empfehlungen für dich