Umschreiben auf 64 Bit? Nepumuk
29.10.2021 18:11:07
Andreas
Hallo von Nepumuk hab ich folgende Code, der allerdings für 32 bit gedacht ist. Gibts sowas auch für 64 bit Versionen?
Vielen Dank ;)
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Any) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Const WM_SETICON As Long = &H80
Private Const GC_CLASSNAMEMSUSERFORM_9 = "ThunderDFrame"
Private Sub UserForm_Initialize()
SendMessage FindWindow(GC_CLASSNAMEMSUSERFORM_9, Me.Caption), _
WM_SETICON, 0&, Image1.Picture.Handle
End Sub