Icon in der Taskleiste bei rahmenloser Form II VB-Version:  VB5, VB6
	Views:  365

Eine einfache Möglichkeit, einer rahmenlosen Form ein Icon zuzuordnen, dasin der Taskleiste angezeigt wird, hat vor kurzem FANMaster ins Forum gepostet. Allerdings funktioniert das - soweit wir bisher wissen - nur unter demBetriebssystem WindowsXP. Versuche mit Windows 2000 und Windows 98 SEhaben ergeben, dass lediglich der Name der Anwendung ohne Icon angezeigt wird. Also, wenn Sie WindowsXP haben und das ausprobieren möchten, hier der Code:

' benötigte API
Private Declare Function SetWindowText Lib "user32" _
  Alias "SetWindowTextA" ( _
  ByVal hwnd As Long, _
  ByVal lpString As String) As Long
 
Private Sub Text_in_Taskleiste()
  Call SetWindowText(Form1.hwnd, "Form ohne Rahmen")
  ' der erste Parameter übergibt das Handle der Form, die in 
  ' der Taskleiste angezeigt wird
  ' der zweite Parameter gibt den Titel der Form an, der in der 
  ' Taskleiste angezeigt wird
End Sub
 
' In die Form_Load-Deklaration einfügen:
Private Sub Form_Load()
  ' Titel der Form in Taskleiste zeigen
  Text_in_Taskleiste
 
  ' Icon für das Form laden und in der Taskleiste anzeigen
  ' Pfad und Name des Icons angeben
  Form1.Icon = LoadPicture(App.Path & "\" & "Bild1.ico")
End Sub

Alle, die kein WindowsXP haben, müssen dies auf die etwas umständlichereArt und Weise lösen, so wie in unserer FAQ  Icon in der Taskleiste bei rahmenloser Form bereits beschrieben.