VB 5/6-Tipp 0306: StatusBar-Demo

von Daniel Noll

Beschreibung

Hier wird einfach und knapp der Umgang mit einem StatusBar inklusive integrierter Bitmap gezeigt.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

keine

Download:

Download des Beispielprojektes [2,82 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Projekt1.vbp -------------
' Die Komponente 'Microsoft Windows Common Controls 6.0 (SP6) (MSCOMCTL.OCX)' wird benötigt.
' Die Komponente 'Microsoft Common Dialog Control 6.0 (SP3) (COMDLG32.OCX)' wird benötigt.

'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Timersteuerelement "tmrDT"
' Steuerelement: Statusbar "StatusBar1"

Option Explicit

Private Sub tmrDT_Timer()
  StatusBar1.Panels(1).Text = Time
  StatusBar1.Panels(2).Text = Date
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Projekt1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-Version	Win32s	Win95	Win98	WinME	WinNT4	Win2000	WinXP
VB4
VB5
VB6

Ihre Meinung

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare

Klicken Sie diesen Text an, wenn Sie die 2 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von Timon am 29.04.2005 um 12:51

Für die Zeit-Anzeige braucht es keinen Timer.
Wenn man ein Pannel als Style = sbrTime deklariert, wird die Zeit automatisch aktualisiert, das selbe gilt für Date:

StatusBar1.Panels(1).Style=sbrTime

Man kann dies auch mit rechtsklick -> Properties, auf der Statusbar, einstellen.

Kommentar von Götz Kolberg am 24.01.2001 um 08:19

Dieser Tip funktionierte leider nicht.
Folgender Hinweis:
Zunächst muß das ActivX-Steuerelement "MSCOMCTL.OCX" in das neue Projekt eingefügt werden. Anschließend dem Formular die Komponente "Statusbar" übergeben werden. Sind diese Voraussetzungen erfüllt funktioniert die nachstehende Codierung:
Private Sub StatusBar1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
With StatusBar1
.Panels(1) = "Browse records"
.Panels(2).Text = Time
.Panels(3).Text = Date
.Panels(4).Text = "Test"
End With
End Sub
Hinweis:
Diese Einrichtung verschiedener VB-Tips finde ich einfach super. Hoffentlich konnte ich mit diesem Hinweis behilflich sein. Ich würde mich über eine positive Antowort freuen.
Als aktiver VB-Entwicklungsprogrammierer würde ich mich gern Eurer Gruppe anschließen.
Viele Grüße
Götz Kolberg
P.s. Tags über bin ich unter folgender Email-Adresse erreichbar:
goetzkolberg@web.de