VB编写小时钟程序

2025-12-06 14:05:10

推荐回答（2个）

回答1：

Me.Move Screen.Width - Me.Width, 0

改成
Me.Move 0, 0

就是左上角了。

回答2：

两个text控件，一个按钮，一个timer控件，代码如下： Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
If Timer = Text1.Text Then
MsgBox Text2.Text, vbInformation, "提醒："
End If
End Sub