vb時鐘模擬的課程設計報告-在線瀏覽
2025-05-10 00:35本頁面
【正文】 代碼如下Private Sub DrawLine(x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer, Flag As Integer)（自己編寫一個畫線的函數(shù)）Static OldSX1 As Integer, OldSX2 As Integer, OldSY1 As Integer, OldSY2 As IntegerStatic OldMX1 As Integer, OldMX2 As Integer, OldMY1 As Integer, OldMY2 As IntegerStatic OldHX1 As Integer, OldHX2 As Integer, OldHY1 As Integer, OldHY2 As IntegerSelect Case FlagCase 0 = 1 (OldSX1, OldSY1)(OldSX2, OldSY2), BackColor (x1, y1)(x2, y2)OldSX1 = x1OldSX2 = x2OldSY1 = y1OldSY2 = y2Case 1 = 2 (OldMX1, OldMY1)(OldMX2, OldMY2), BackColor (x1, y1)(x2, y2)OldMX1 = x1OldMX2 = x2OldMY1 = y1OldMY2 = y2Case 2 = 3 (OldHX1, OldHY1)(OldHX2, OldHY2), BackColor (x1, y1)(x2, y2)OldHX1 = x1OldHX2 = x2OldHY1 = y1OldHY2 = y2Case Else (x1, y1)(x2, y2)End SelectEnd SubPrivate Sub Form_Resize()（當窗體大小發(fā)生改變時，重新繪制表盤）ClsCall biaopanEnd Sub4 Timer控件代碼如下Private Sub Timer1_Timer()Call DrawClock = Time()End 5 修改時間控件代碼如下Private Sub Command1_Click() = True MsgBox 請輸入要修改的時間,輸入的數(shù)字必須符合時間格式 End Sub6 確認修改控件代碼如下Private Sub Command4_Click()Time() = = End Sub7 退
醫(yī)療健康相關推薦
鄂ICP備17016276號-1