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