StatusBar

Computer: Software & Programmierung Visual Basic
#1

Hallo Liebe Experten

Mich würde interresieren, wie man Zeit und/oder Datum von einer StatusBar in einen String abspeichert.

mfg Andreas

#2

Hallo Andreas,

Mich würde interresieren, wie man Zeit und/oder Datum von
einer StatusBar in einen String abspeichert.

Hmmm, kannst Du das genauer beschreiben? Wo ist der Statusbar? In Deinem Programm? Dann müßtest Du die Informationen selbst da eingetragen haben. In einem fremden Programm? Welches? Womit möchtest Du das lesen? VB6 oder VBA? (Bei VBA verabschiede ich mich schon mal … :smile:)

Gruß, Rainer

#3

Der StatusBar befindet sich in meinem Programm. Er hat 3 Panels:
Das erste Panel hat den Style sbText. Da kann man sich das was drinnen steht ganz einfach holen mit sbStatusBar.Panels(1).Text

Die anderen zwei haben aber den Status sbDate und sbTime. Diese Werte kommen dann automatisches von irgendwo dahin.
Ich möchte sie nun in einen String speichern, hab aber keine Ahnung mit welchem Befehl das geht.

Lg Andreas

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Hallo Andreas,

Der StatusBar befindet sich in meinem Programm. Er hat 3
Panels:
Das erste Panel hat den Style sbText. Da kann man sich das was
drinnen steht ganz einfach holen mit
sbStatusBar.Panels(1).Text

Die anderen zwei haben aber den Status sbDate und sbTime.
Diese Werte kommen dann automatisches von irgendwo dahin.

Ich habe mir das gerade mal angesehen. Die Werte kommen nicht von irgendwo, sondern vom System. Der Inhalt des Pannels sbDate ist also mit Date() identisch und der von sbTime mit Time().
Die mußt Du nicht aus dem Statusbar lesen. Du brauchst nur

Zeit = Now

und hast im String Zeit stehen, was in den beiden Pannels steht.

Gruß, Rainer

#5

DANKE
Gibt es auch eine Möglichkeit den Wochentag zu bestimmen?

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#6

Hallo Andreas,

Gibt es auch eine Möglichkeit den Wochentag zu bestimmen?

Ja, klar. Beispiel:

Private Sub Command1\_Click()
 Dim wd As Integer
 Dim wdt(1 To 7) As String
 wdt(1) = "Sonntag"
 wdt(2) = "Montag"
 wdt(3) = "Dienstag"
 wdt(4) = "Mittwoch"
 wdt(5) = "Donnerstag"
 wdt(6) = "Freitag"
 wdt(7) = "Samstag"
 wd = Weekday(Now, vbSunday)
 Command1.Caption = wdt(wd)
End Sub

… oder so ähnlich. Ob Du ein Feld nimmst oder ‚Select Case‘ ist Geschmackssache.

Gruß, Rainer