Tipp 0232 System-Icons auslesen
Autor/Einsender:
Datum:
  Michael Werner
05.05.2002
Entwicklungsumgebung:   VB 5
Mit den API-Funktionen LoadIconBynum und DrawIcon können die System-Icons ausgelesen und in einer PictureBox angezeigt werden.
 
Option Explicit

Private Declare Function LoadIconBynum Lib "user32" Alias _
    "LoadIconA" (ByVal hInstance As Long, ByVal _
    lpIconName As Long) As Long

Private Declare Function DrawIcon Lib "user32" (ByVal _
    hdc As Long, ByVal x As Long, ByVal y As Long, _
    ByVal hIcon As Long) As Long

Private Const IDI_APPLICATION = 32512&
Private Const IDI_HAND = 32513&
Private Const IDI_QUESTION = 32514&
Private Const IDI_EXCLAMATION = 32515&
Private Const IDI_ASTERISK = 32516&
Private Const IDI_WINLOGO = 32517&

Private Sub cmdAppl_Click()
  ShowSystemIcon Picture1, IDI_APPLICATION
End Sub

Private Sub cmdAsterisk_Click()
  ShowSystemIcon Picture1, IDI_ASTERISK
End Sub

Private Sub cmdExclam_Click()
  ShowSystemIcon Picture1, IDI_EXCLAMATION
End Sub

Private Sub cmdHand_Click()
  ShowSystemIcon Picture1, IDI_HAND
End Sub

Private Sub cmdQuest_Click()
  ShowSystemIcon Picture1, IDI_QUESTION
End Sub

Private Sub cmdWin_Click()
  ShowSystemIcon Picture1, IDI_WINLOGO
End Sub

Private Sub ShowSystemIcon(obj As Object, IDI As Long)
  Dim objHandle As Long

  obj.Cls
  objHandle& = LoadIconBynum(0, IDI&)
  DrawIcon obj.hdc, 2, 2, objHandle&
End Sub
 
Weitere Links zum Thema
Icons und verknüpfte Symbole anzeigen
Zwei Icons pro .exe-Datei

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2,6 kB) Downloads bisher: [ 1595 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 16. August 2011