Inhalt
- Mit 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
