展开全部
一个简单的例子
Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = "倒计时"
Timer1.Enabled = False
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Timer1.Enabled = True
End If
End Sub
Private Sub Timer1_Timer()
Text1.Text = Val(Text1.Text) - 1
n = Val(Text1.Text)
If n = 0 Then
Text1.Text = ""
Text1.SetFocus
Timer1.Enabled = False
End If
End Sub
一个标签,一个文本框,一个timer控件,运行,输入数字,单击右键,即可
Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = "倒计时"
Timer1.Enabled = False
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Timer1.Enabled = True
End If
End Sub
Private Sub Timer1_Timer()
Text1.Text = Val(Text1.Text) - 1
n = Val(Text1.Text)
If n = 0 Then
Text1.Text = ""
Text1.SetFocus
Timer1.Enabled = False
End If
End Sub
一个标签,一个文本框,一个timer控件,运行,输入数字,单击右键,即可
追问
caption是什么呀,没有看到,有capture这个属性,还有MouseUp事件的触发有什么意义啊,为什么不直接用tick事件呢,你的界面是什么样的呀
追答
caption是标题,MouseUp是鼠标事件中的其中一个
展开全部
VS官网正好有教程《创建数学测验》 教你一步步完成 保证获益匪浅
http://msdn.microsoft.com/zh-cn/library/dd492172.aspx
http://msdn.microsoft.com/zh-cn/library/dd492172.aspx
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询