Vb6做实时显示时间的时钟

在Visual Basic 6 (VB6) 中创建一个实时显示时间的简单时钟，你可以使用Timer控件和Label控件配合使用。以下是基本步骤：

1. **添加控件**:
- 在工具箱中拖拽一个Timer控件到窗体上。设置其Interval属性为每秒更新一次的时间间隔（例如，1000毫秒）。
- 再添加一个Label控件作为显示时间的容器，可以命名为TimeLabel。

2. **编写事件处理程序**:
- 双击Timer控件打开它的代码编辑窗口，会自动生成`Timer1_Timer`事件的代码段。
- 在此事件中，清除当前时间标签的内容，然后获取当前系统时间并将其格式化为字符串，赋值给Label控件。

Private Sub Timer1_Timer()
    TimeLabel.Caption = Format(Now(), "hh:mm:ss")
End Sub

这里，`Format`函数用于格式化时间，`Now()`函数返回当前日期和时间。

3. **启用定时器**:
确保Timer1的Enabled属性设置为True，以便开始计时并实时更新时间。

4. **调整外观**:
根据需要，你可以调整Label的字体、颜色等样式，使其更符合设计要求。

现在，每当Timer1触发时，它就会自动更新TimeLabel显示当前时间。