1 1 1 1 1 1 1 1 1 1 Rating 5.00 (2 Votes)

Problemstellung:

Das Icon einer Access Anwendung zu ändern ist kein Problem.
Aber das Icon eines Access Formulars zu ändern ist etwas aufwändiger.
Wie kann ich das ändern?

Lösung:

Ausgangsposition: Access zeigt immer das Standard Icon für Formulare an.

Folgenden Code in ein öffentliches Modul kopieren:

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 IMAGE_ICON = 1
Public Const LR_LOADFROMFILE = &H10
Public Const WM_SETICON = &H80
Public Const ICON_SMALL = 0

Public Function SetFormIcon( _
    ByVal lngHWnd As Long, _
    ByVal strIconFile As String) As Boolean
    Dim lngIcon As Long
    lngIcon = LoadImage(0, strIconFile, IMAGE_ICON, 16, 16, _
        LR_LOADFROMFILE)
    If lngIcon <> 0 Then
        Call SendMessage(lngHWnd, WM_SETICON, ICON_SMALL, _
            ByVal lngIcon)
    End If
End Function


Der Aufruf sollte idealerweise im Load-Ereignis des Forms erfolgen da das Icon nicht gespeichert wird.
z.B.:

Private Sub Form_Load()
    SetFormIcon Me.hwnd, CurrentProject.Path & "\Test.ico"
End Sub

Statt CurrentProject.Path & "\Test.ico" kann natürlich auch der absolute Pfad der Datei angegeben werden.

Ergebnis:


Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

Neueste Artikel

SQL zu VBA Konverter
26. Oktober 2018
Problemstellung: Gibt es eine Möglichkeit SQL-Code einer Abfrage so zu konvertieren das der Code in VBA genutzt werden kann? Lösung: Bis Access 2010 gibt das Tool "SmartTools SQL aus Abfragen 3.0"...
1.png2.png2.png8.png6.png9.png0.png
Heute12
Gestern102
Diese Woche460
Dieser Monat3292
Total1228690

  • IP: 3.95.63.218
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

26. April 2019

Letzte Kommentare

  • Workshop zur Benutzung des Multi-Column TreeView Control unter MS-Access

    TommyK 27.02.2019 06:52
    Workshop
    Hallo mpegjunkie, danke für Dein Feedback. Schön das Dir Workshop weiter hilft. :D

    Weiterlesen...

     
  • Workshop zur Benutzung des Multi-Column TreeView Control unter MS-Access

    mpegjunkie 26.02.2019 20:10
    Perfekter Workshop
    Hallo Tommy, perfekter Workshop, toll und umfassend erläutert. Jetzt nutze ich diese Controls auch.

    Weiterlesen...

     
  • Trusted Locations Manager

    Tommy Admin 13.07.2018 13:06
    RE: Trusted Locations Manager
    Hallo Matthias, aus Ermangelung einer 64bit Version kann ich das leider nicht prüfen. Tut mir leid. Gruss ...

    Weiterlesen...

     
  • Trusted Locations Manager

    Matthias 13.07.2018 06:48
    Funktioniert nicht
    Habe gerade den TL-Manager installiert. Nach dem Start sagt er mir, dass es kein Office erkennen ...

    Weiterlesen...