PDA

Vollständige Version anzeigen : A97 / W98 / Ändern des Icons in Formularansicht


Jan Ullrich
13.06.2001, 13:08
Hallo - ich komme gerade mal nicht weiter...
Hat jemand eine Idee wie ich in einem Formular in der ‚linken – oberen – Ecke‘ das kleine Icon ändern kann.
Durch VBA??
Vielen Dank.

Gruß

Jan

kama
13.06.2001, 13:40
schau doch mal unter

extras/start/anwendungsicon nach

Jan Ullrich
13.06.2001, 14:02
Hallo Kama,

Vielen Dank für Deine promte Antwort.
Unter
'extras/start/anwendungsicon'
kann ich ein Icon für die ges. Datenbank festlegen.
Ich wollte aber für jedes Formular ein anderes Icon haben. Geht das?

cya

Jan

kama
13.06.2001, 14:18
leider weiß ich da auch nix
kama

A.S.
13.06.2001, 14:26
Hallo Jan,

hier ein Artikel aus dem AccessWeb dazu:


'*********** Code Start ********
'Code courtesy of
'Klaus H. Probst
'
'// Place all this in a module
Public Declare Function LoadImage Lib "user32" _
Alias "LoadImageA" _
(ByVal hInst As Long, _
ByVal lpsz As String, _
ByVal un1 As Long, _
ByVal n1 As Long, _
ByVal n2 As Long, _
ByVal un2 As Long) _
As Long

Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
LParam As Any) _
As Long


Public Const WM_GETICON = &H7F
Public Const WM_SETICON = &H80
Public Const ICON_SMALL = 0
Public Const ICON_BIG = 1

'// LoadImage() image types
Public Const IMAGE_BITMAP = 0
Public Const IMAGE_ICON = 1
Public Const IMAGE_CURSOR = 2
Public Const IMAGE_ENHMETAFILE = 3

'// LoadImage() flags
Public Const LR_DEFAULTCOLOR = &H0
Public Const LR_MONOCHROME = &H1
Public Const LR_COLOR = &H2
Public Const LR_COPYRETURNORG = &H4
Public Const LR_COPYDELETEORG = &H8
Public Const LR_LOADFROMFILE = &H10
Public Const LR_LOADTRANSPARENT = &H20
Public Const LR_DEFAULTSIZE = &H40
Public Const LR_LOADMAP3DCOLORS = &H1000
Public Const LR_CREATEDIBHeader = &H2000
Public Const LR_COPYFROMRESOURCE = &H4000
Public Const LR_SHARED = &H8000

Public Function SetFormIcon(hWnd As Long, IconPath As String) As Boolean
Dim hIcon As Long

hIcon = LoadImage(0&, IconPath, IMAGE_ICON, 16, 16, LR_LOADFROMFILE)

'// wParam = 0; Setting small icon. wParam = 1; setting large icon
If hIcon <> 0 Then
Call SendMessage(hWnd, WM_SETICON, 0, ByVal hIcon)
SetFormIcon = True
End If
End Function
'*********** Code End ********


Aufruf im Form_Open mit

Dim bolIconLoaded As Boolean
bolIconLoaded = SetFormIcon(Me.Hwnd, "C:\MeinIcon.ico")

HTH

Arno

Jan Ullrich
13.06.2001, 15:12
Hi Arno,

vielen Dank für Deine Hilfe !!! Hat super funktioniert !!

Woher hattest Du diesen Tipp ? Oder hast Du den selber erarbeitet.

Nochmals Danke !!

Jan