ico in Userform
11.02.2004 12:24:41
Michael S.
Ich habe im Netz den folgenden Code gefunden:
' Um ein eigenes Icon in die Symbolleiste einzufügen, muß die Userform ein
' 'Image'-Control enthalten. In der 'Picture'-Eigenschaft von Image1 wird
' nun der Pfad zum Icon angegeben. Dann wird noch die 'Visible'-Eigenschaft
' von Image1 auf 'False' gesetzt ...
'
On Error GoTo 10
Set UFIconImage = UF.Image1
hIcon = UFIconImage.Picture
If (hIcon) Then SendMessage myHandle, WM_SETICON, ICON_SMALL, hIcon
Jetzt habe ich in meiner UserForm aus der Werkzeugleiste ein "Anzeige" Feld gemacht und diesem in den Eigenschaften einen Pfad zu einer Grafik (.ico) zugewiesen.
Diese Grafik wird nun in dieser Userform angezeigt - JEDOCH NICHT OBEN LINKS ALS ICON!
Was mache ich falsch? (Ach ja, Visible habe ich auf False gesetzt.)
Vielen Dank für Eure Hilfe!
Gruß,
Michael.