vb時鐘模擬的課程設計報告-資料下載頁
2025-01-17 13:31本頁面
【正文】 rivate Sub DrawLine(x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer, Flag As Integer)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()ClsCall biaopanEnd SubPrivate Sub Timer1_Timer()Call DrawClock = Time()End Sub參考文獻[1] 劉瑞新．《Visual Basic程序設計教程》．北京：機械工業(yè)出版社，2003[2] 龔沛曾 楊志強 陸慰民.《Visual Basic程序設計教程》.高等教育出版社2007[3] 龔沛曾 楊志強 陸慰民.《Visual Basic程序設計教程實驗指導與測試》.高等教育出版社2007[4] 龔沛曾 吳文虎 .《Visual Basic程序設計經典試驗案例集》.高等教育出版社2012第13頁，共13頁
研究報告相關推薦
鄂ICP備17016276號-1