vb時(shí)鐘模擬的課程設(shè)計(jì)報(bào)告-資料下載頁(yè)
2025-01-17 13:31本頁(yè)面
【正文】 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參考文獻(xiàn)[1] 劉瑞新．《Visual Basic程序設(shè)計(jì)教程》．北京：機(jī)械工業(yè)出版社，2003[2] 龔沛曾 楊志強(qiáng) 陸慰民.《Visual Basic程序設(shè)計(jì)教程》.高等教育出版社2007[3] 龔沛曾 楊志強(qiáng) 陸慰民.《Visual Basic程序設(shè)計(jì)教程實(shí)驗(yàn)指導(dǎo)與測(cè)試》.高等教育出版社2007[4] 龔沛曾 吳文虎 .《Visual Basic程序設(shè)計(jì)經(jīng)典試驗(yàn)案例集》.高等教育出版社2012第13頁(yè)，共13頁(yè)
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1