Icon aus der Shell32.dll in VB einfügen

Dieses Thema Icon aus der Shell32.dll in VB einfügen im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von killer-Trekkie, 12. Mai 2004.

Thema: Icon aus der Shell32.dll in VB einfügen Servus! Wie kann ich ein icon aus der Sehll32.dll z.B. in ein Picturefeld einfügen? Vielen Dank für eure Hilfe....

  1. Servus!
    Wie kann ich ein icon aus der Sehll32.dll z.B. in ein Picturefeld einfügen?

    Vielen Dank für eure Hilfe.

    killer-Trekkie
     
  2. Hi,

    also ich würde sagen...gar nicht! denke ich zumindest! Wenns jemand besser weiß ... interessieren würde mich das dann auch! ;O)
     
  3. Hi

    Benötigt wird:
    Eine PictureBox (Picture1)
    Ein CommandButton (Command1)

    Und hier der Code:
    Code:
    Private Declare Function ExtractIcon Lib shell32.dll Alias _
        ExtractIconA (ByVal hInst As Long, ByVal lpszExeFileName As _
        String, ByVal nIconIndex As Long) As Long
        
    Private Declare Function DestroyIcon Lib user32.dll _
        (ByVal hIcon As Long) As Long
        
    Private Declare Function DrawIcon Lib user32.dll (ByVal hDC As Long, _
        ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
    
    Public Sub IconLesen(ByVal IconPfad As String, ByVal IconIndex As Long, _
        ByVal Picture As PictureBox)
        
        Dim Handle As Long
        Handle = ExtractIcon(App.hInstance, IconPfad, IconIndex)
        
       ->Icon anzeigen
        Call Picture.Cls
        Call DrawIcon(Picture.hDC, 0, 0, Handle)
        
       ->Icon zerstören
        Call DestroyIcon(Handle)
    End Sub
    
    Private Sub Command1_Click()
       ->Um die Symbole durchzugehen muss die 1 durch eine
       ->andere Zahl ersetzt werden.
        Call IconLesen(c:\windows\RegEdit.exe, 1, Picture1)
    End Sub
    Mfg Snake
     
  4. Cool, danke. Hat mich weiter gebracht!

    mfg

    killer-Trekkie
     
Die Seite wird geladen...

Icon aus der Shell32.dll in VB einfügen - Ähnliche Themen

Forum Datum
Icon-Größe und -Abstand Windows 10 Forum 23. Juli 2016
Anordung der Icons auf dem Desktop verändert sich Windows 10 Forum 8. Apr. 2016
Vorschau-Icon ändern!! Windows 7 Forum 5. Nov. 2015
Desktop Icons lassen sich nicht mehr verschieben Windows 10 Forum 31. Okt. 2015
Wie bekomme ich das icon zum update auf W10 weg Windows 8 Forum 29. Sep. 2015