how to put time and date in status bar

[emoren777]

how to put time and date in status bar?

my code is like this : statusbar1.panels(1).text = "Status: OK"
but it doesn't work...

please help

[Killer42]

how to put time and date in status bar?
my code is like this : statusbar1.panels(1).text = "Status: OK"

Can you give us more specific details than "doesn't work"? Does it produce an error at design time? At run time? Does it run? Does it produce an incorrect result or no visible result? For that matter, what version of Visual Basic are you using?

[Esmael]

Hi...


sample source code.

/************************************************** ***************/
Private Sub SetStatBar()
Dim panels As Panel

'Status Bar
SB.Move 100, 100, 800, 300
SB.panels(1).Text = "DTR System ..."
SB.panels(8).Text = "Today is: " & Format$(Now, " DDDD, MMMM dd,yyyy ")
With SB.panels
.Item(2).Style = sbrNum
.Item(3).Style = sbrScrl
.Item(4).Style = sbrCaps
.Item(5).Style = sbrIns
.Item(6).Style = sbrTime 'Display time
.Item(7).Style = sbrDate 'Display Date
End With
Set panels = Nothing
End Sub


/************************************************** ***************/

[Killer42]

I created a new project, added a StatusBar control, set the AutoSize to "spring" on all the panels (not sure whether this had any effect), inserted a bunch of panels so the code could run, then pasted your code. It appears to work just fine.

What problem do you have with it? As I said, we need something more specific than "doesn't work". For all I know, "doesn't work" could mean anything from "I don't like the colour very much" to "it burnt my house down and killed the dog".

By the way, after pasting your code I commented out these two lines, as they don't do anything...

Dim panels As Panel
Set panels = Nothing
 

Here's a snapshot of the results I got...