Rubrik: Fenster & Forms | 01.12.03 |
Icon in der Taskleiste bei rahmenloser Form II VB-Version: VB5, VB6 | ||
Views: 9.697 |
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.