VB-Homepage Tipp 104

Programmiconwechsel zur Laufzeit

Bis vor kurzen mußte ich an dieser Stelle noch darauf verweisen, das es unter Windows 32Bit ein Problem darstellt, das Programmicon zur Laufzeit zur ändern, da das zuweisen eines neuen Symbols zwar rein programmtechnisch funktioniert, aber keine sichtbare Veränderung erfolgt. Der Tipp dazu war, die Form kurz zu entladen (Unload) um sie wieder zu laden und das neue Symbol wird angezeigt. Eigentlcih ist mir garnicht mehr so recht klar, warum es damals nicht anders ging, denn als ich jetzt im Zusammenhang mit dem Iconwechsel eines Symbols in der Taskbar auch das Programmicon (auch wenn minimiert) in den Wechsel mit eingebunden habe, ging es. Wie dem auch sei, um es also richtig zu stellen - es geht. Für eine Test benötigen Sie lediglich zwei CommandButton, der eine startet die Aktion, der andere stopt sie. Command1_Click Timer1.Interval = 500 Form1.Icon = Picture1.Picture Command2_Click Timer1.Interval = 0 Desweiteren fügen Sie vier PictureBoxen hinzu, denen Sie jeweils ein Icon zuweisen. (Picture1 bis Picture4) und einen Timer (Timer1) der folgende Anweisung erhält If Form1.Icon = Picture1.Picture Then Form1.Icon = Picture2.Picture Exit Sub End If If Form1.Icon = Picture2.Picture Then Form1.Icon = Picture3.Picture Exit Sub End If If Form1.Icon = Picture3.Picture Then Form1.Icon = Picture4.Picture Exit Sub End If If Form1.Icon = Picture4.Picture Then Form1.Icon = Picture1.Picture Exit Sub End If Das ganze läuft also weniger als Tipp, sondern mehr als Richtigstellung.

Tipp-Download

Quelle :