发布网友 发布时间:2022-04-24 21:32
共5个回答
热心网友 时间:2022-04-24 23:01
1)在窗体上布置一个StatusBar和一个Timer
注:需要在控件“工具箱”上点鼠标右键-->“部件”--> "Mirosoft Windows Common Controls 6.0 (SP6)",然后才能看到StatusBar控件。
2)代码
Option Explicit
热心网友 时间:2022-04-25 00:19
VB6.0需要在窗体添加Timer控件和StatusBar 控件来实现状态栏动态显示系统时间。
StatusBar 控件,StatusBar 控件提供窗体,该窗体通常位于父窗体的底部,通过这一窗体,应用程序能显示各种状态数据。StatusBar
最多能被分成 16 个 Panel 对象,这些对象包含在 Panels 集合中。
设置StatusBar 控件的Style = sbrSimple,StatusBar控件仅显示一个大面板。
Timer 控件,通过引发 Timer 事件,Timer 控件可以有规律地隔一段时间执行一次代码。
代码实例:
Private Sub Form_Load()
Timer1.Interval = 500
StatusBar1.Style = sbrSimple
End Sub
Private Sub Timer1_Timer()
If StatusBar1.SimpleText <> CStr(Time) Then
StatusBar1.SimpleText = Time
End If
End Sub
热心网友 时间:2022-04-25 01:54
设置状态栏相应的panel的style属性即可。热心网友 时间:2022-04-25 03:45
哪个动态栏?热心网友 时间:2022-04-25 05:53
可在窗格样式里面选:6-sbrDate 或 5-sbrTime。