Userform Icon
14.08.2008 07:32:00
chris
mal wieder habe ich eine frage.
hatte zwar schon einmal eine Lösung komme aber mit meinem Code selsbt nicht ganz klar.
habe diese Code damit kann ich die userform in der größe ändern und es erstellt mir auch ein icon.(leider irgendiwe ohne Bild)
Wo in dem Code steht welches Icon oder Image auf der form verwendt wird für das angezeigte Icon.
Oder ist da noch wa falsch im code ? Würde mich sehr freuen wenn mir jemand auf die Sprünge helfen könnte.
Bei Form initialize lade ich u.a diese code:
With UF
.MaxButton = True
.MinButton = True
.BorderStyle = xlSolid
.Create Form_Daten_Eingabe
End With
der .Create Form_Daten_Eingabe
steht in einem Klassenmodul.
und sieht so aus:
Public Sub Create(UF As MSForms.UserForm)
Set myUserForm = UF
FormCaption = myUserForm.Caption
m_Handle = GetHandle
SetWindowLong m_Handle, GWL_STYLE, GetStyle Or WS_OVERLAPPEDWINDOW
SetWindowLong m_Handle, GWL_STYLE, GetStyle Or Border
If MaxBox Then SetWindowLong m_Handle, GWL_STYLE, GetStyle Or WS_MAXIMIZEBOX
If MinBox Then SetWindowLong m_Handle, GWL_STYLE, GetStyle Or WS_MINIMIZEBOX
SetWindowLong m_Handle, GWL_EXSTYLE, GetStyle And WS_EX_WINDOWEDGE
If (hIcon) Then SendMessage m_Handle, WM_SETICON, ICON_SMALL, hIcon
End Sub
Danke für eure Hilfe gruß Chris