frmTimer 窗体控件： commandbutton * 2 picturebox * 1 pictureclip(注：图片剪切控件) * 1 timer * 3 （注：此处只给出了控件类型，控件名祥见代码） frmTimer 的代码 Option Explicit Public t As Integer, str As String Public h As Integer, m As Integer, s As Integer Private Sub Show_LED(picTimer As PictureBox, str As String) '显示图片的通用过程 Dim s As String * 1 Dim pos As Integer Dim n As Integer Dim i As Integer For i = 1 To Len(str) s = Mid(str, i, 1) n = -1 Select Case s Case "0" To "9" n = CInt(s) Case ":" n = 10 Case "-" n = 11 Case "." n = 12 Case "a", "A" n = 13 Case "p", "P" n = 14 Case " " n = 15 End Select If n <> -1 Then picTimer.PaintPicture PCTimer.GraphicCell(n), pos, 0 pos = pos + 300 End If Next End Sub Private Sub cmdRestart_Click() '秒表的回零 h = 0 m = 0 s = 0 str = "" cmdStart.Caption = "开始" Timer1.Enabled = False: str = "00:00:00" Cls Call Show_LED(picTimer, str) End Sub Private Sub cmdStart_Click() '秒表的开始和暂停控制 If cmdStart.Caption = "开始" Then h = 0 m = 0 s = 0 cmdStart.Caption = "暂停" Timer1.Enabled = True cmdRestart.Enabled = False Exit Sub ElseIf cmdStart.Caption = "暂停" Then cmdStart.Caption = "继续" Timer1.Enabled = False cmdRestart.Enabled = True Exit Sub Else cmdStart.Caption = "暂停" Timer1.Enabled = True cmdRestart.Enabled = False Exit Sub End If End Sub Private Sub Form_Load() '窗体加载 Call mnuClock_Click End Sub Private Sub mnuClock_Click() '时钟 picTimer.Cls Me.Cls Timer1.Enabled = False Timer2.Enabled = False cmdStart.Visible = False cmdRestart.Visible = False frmTimer.Caption = "时钟" Timer3.Enabled = True picTimer.Visible = True Cls End Sub Private Sub mnuCuntDwnClock_Click() '倒计时 picTimer.Cls Me.Cls Timer1.Enabled = False Timer3.Enabled =...
