Msgbox"禁止使用粘贴"” End If Private Sub txt Get Text Mouse Down (Button As Integer, Shift As Integer, X As im Msg, Style, Title, Re Msg="禁止右键,请注意! 定义信息 Syle= vbOKOnly'定义按钮 Tle="提示信息”’定义标题。 Response Msg Box(Msg, Style, Title) End lt End Sub Timer控件的使用 ■时间的设定:主要完成对倒计时的设定,即测试时间的设置。并完成倒计时电 子钟的显示 Private Sub Timerl Timer Dim strOk As String n Second=59 Else End if ⅹ= Int(nTime/ IfX< 10 Then cx="0"&Ⅹ‘如果是单位数如1、2等,在前面补0成01、02等 E cy="0"&Y El End If IfX=0AndY=0Then‘时间到则计算出各成绩项- 9 - MsgBox "禁止使用粘贴" End If End Sub Private Sub txtGetText_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim Msg, Style, Title, Response Msg = "禁止右键，请注意！" ' 定义信息。 Style = vbOKOnly ' 定义按钮。 Title = "提示信息" ' 定义标题。 If Button = vbRightButton Then Response = MsgBox(Msg, Style, Title) End If End Sub ⚫ Timer 控件的使用 ◼ 时间的设定：主要完成对倒计时的设定，即测试时间的设置。并完成倒计时电 子钟的显示。 Private Sub Timer1_Timer() Dim X, Y As Integer Dim cx, xy As String Dim nScore As Double Dim strOk As String nTime = nTime - 1 nSecond = nSecond - 1 If nSecond = 0 Then Y = nSecond nSecond = 59 Else Y = nSecond End If X = Int(nTime / 60) If X < 10 Then cx = "0" & X‘如果是单位数如 1、2 等，在前面补 0 成 01、02 等 Else cx = X End If If Y < 10 Then cy = "0" & Y Else cy = Y End If If X = 0 And Y = 0 Then‘时间到则计算出各成绩项