【導讀】就我所知，除了文中特別加以標注和致謝。育機構的學位或證書所使用過的材料。此而造成的一切后果及責任。程序應用了不規(guī)則窗體技術，使得窗體比較美觀。單擊屬相標志可以退出程序。單擊時鐘數(shù)字將返回到今天。關鍵字：農(nóng)歷公歷轉換及計算器、查詢控制面板、VB6。Windows系統(tǒng)的推出使電腦從高雅的學術殿堂走入了尋常百姓家，各行各業(yè)的人們無須經(jīng)過特別的訓練就能夠使用電腦完成許許多多復雜的工作?，F(xiàn)在不同了，即使你沒有接受過嚴格的程序設計訓練，使用VisualBasic. 好，在工作和學習之余，我時常鉆研專業(yè)課基礎理論，經(jīng)常用VB搞一些小程序，是關于VB方面的編程資料卻比較少。統(tǒng)和辦公軟件的壟斷地位，VB在短短的幾年內(nèi)風靡全球。VB是極有和功能強大的。開發(fā)周期，較易維護的生成代碼。win9x或winme，win2020，winxp，windowsNT等操作系統(tǒng)下，是一個32位的應。化設計和事件驅動編程.些程序代碼由VB自動生成或修改。當?shù)奈恢?設置它們的大小、形狀、屬性等,就可以設計出所需的應用程序界面。

　　

【正文】 (Str(Year(kDay))), 1, 1)), 1, 1 ShowNum wPw1(color_index), G_y, Val(Mid(Trim(Str(Year(kDay))), 2, 1)), 1, 2 ShowNum wPw1(color_index), G_y, Val(Mid(Trim(Str(Year(kDay))), 3, 1)), 1, 3 ShowNum wPw1(color_index), G_y, Val(Mid(Trim(Str(Year(kDay))), 4, 1)), 1, 4 If Month(kDay) 10 Then mY1 = 0 mY2 = Month(kDay) Else mY1 = Int(Month(kDay) / 10) mY2 = Int(Month(kDay) Mod 10) End If ShowNum wPw1(color_index), G_m, mY1, color1, 1 ShowNum wPw1(color_index), G_m, mY2, 1, 2 If Day(kDay) 10 Then dY1 = 0 dY2 = Day(kDay) Else dY1 = Int(Day(kDay) / 10) dY2 = Int(Day(kDay) Mod 10) End If ShowNum wPw1(color_index), G_d, dY1, 1, 1 ShowNum wPw1(color_index), G_d, dY2, 1, 2 = 今日是 : + ssFtv(Month(kDay), Day(kDay)) = seaSonYx(kDay) 29 29 39。 temP = sdayF(Year(kDay), Month(kDay), Day(kDay)) = seaSonYxr(kDay) temP1 = Val(Trim(Mid(temP, 1, 4))) temP2 = Trim(Mid(temP, 10, 2)) temP3 = Trim(Mid(temP, 20, 2)) temP4 = Trim(Mid(temP, 9, 1)) temP5 = Trim(Mid(temP, 17, 3)) If temP5 = Big Then temP5 = 大 Else temP5 = 小 End If If temP4 = Y Then ziShi = yTGDZ(temP1) + 年 潤 + nStr1(Val(temP2)) + 月 + temP5 + sdayF_gzr(kDay) + 日 Else ziShi = yTGDZ(temP1) + 年 + sdayF_gzm(temP1, Val(temP2)) + 月 + temP5 + sdayF_gzr(kDay) + 日 End If ShowNum wPw1(color_index), N_y, Val(Mid(Trim(Str(temP1)), 1, 1)), 1, 1 ShowNum wPw1(color_index), N_y, Val(Mid(Trim(Str(temP1)), 2, 1)), 1, 2 ShowNum wPw1(color_index), N_y, Val(Mid(Trim(Str(temP1)), 3, 1)), 1, 3 ShowNum wPw1(color_index), N_y, Val(Mid(Trim(Str(temP1)), 4, 1)), 1, 4 ShowNumGz wPw1(6), Gz, ((temP1 1900) Mod 12), 1, 1 mY1 = Val(Left(temP2, 1)) mY2 = Val(Right(temP2, 1)) ShowNum wPw1(color_index), N_m, mY1, color1, 1 ShowNum wPw1(color_index), N_m, mY2, 1, 2 dY1 = Val(Left(temP3, 1)) dY2 = Val(Right(temP3, 1)) 30 30 ShowNum wPw1(color_index), N_d, dY1, 1, 1 ShowNum wPw1(color_index), N_d, dY2, 1, 2 = 今日是 : + llFtv(Val(temP2), Val(temP3)) = Str(Len(Trim(temP))) + + Str(LenB(Trim(temP))) + + temP + vbCrLf + Str(temP1) + + Str(temP2) + + Str(temP3) 39。 wY = Weekday(kDay) Select Case wY Case 2, 3, 4, 5, 6, 7 ShowNumW wPw1(0), Week_p, wY 1, 1, 1 ShowNumWs wPw1(2), wWeekP, wY 2 Case 1 ShowNumW wPw1(0), Week_p, 0, 1, 1 ShowNumWs wPw1(2), wWeekP, 6 End Select End Sub Private Sub RunMain(picScroll As PictureBox) 39。 滾動字幕 Dim LastFrameTime As Long Const IntervalTime As Long = 40 Dim rt As Long Dim DrawingRect As RECT Dim UpperX As Long, UpperY As Long 39。Upper left point of drawing rect Dim RectHeight As Long rt = DrawText(, ScrollText, 1, DrawingRect, DT_CALCRECT) If rt = 0 Then 39。err MsgBox Error scrolling text, vbExclamation EndingFlag = True Else = = 0 = RectHeight = 31 31 = + End If Do While Not EndingFlag If GetTickCount() LastFrameTime IntervalTime Then DrawText , ScrollText, 1, DrawingRect, DT_CENTER 39。Or DT_WORDBREAKDT_SINGLELINE And = 1 = 1 If (RectHeight) Then 39。time to reset = = RectHeight + End If LastFrameTime = GetTickCount() End If DoEvents Loop End Sub Private Sub Timer3_Timer() Dim hei As Integer tiAo = False = 50 hei = ScaleY(, vbTwips, vbPixels) 39。, vbTwips, vbPixels) = hei 2 39。 + 1 If 2745 Then = False = True = True End If End Sub Private Sub Timer4_Timer() Dim hei, w, h tiAo = True If 5065 Then 32 32 = False Else = + 50 hei = ScaleY(, vbTwips, vbPixels) 39。, vbTwips, vbPixels) = hei 39。 + 1 End If End Sub Private Sub Timer5_Timer() Dim hei, w, h jiSuan = True If = 6225 Then = False hei = Int(ScaleY(, vbTwips, vbPixels)) 39。, vbTwips, vbPixels) = Str() amp。 Str(ScaleY(, vbTwips, vbPixels)) amp。 amp。 Str(hei) = hei 39。 70 39。 + 1 Else = + 50 hei = Int(ScaleY(, vbTwips, vbPixels)) 39。, vbTwips, vbPixels) = Str() amp。 Str(ScaleY(, vbTwips, vbPixels)) amp。 amp。 Str(hei) = hei 39。 70 39。 + 1 End If End Sub Private Sub Timer6_Timer() Dim hei = False jiSuan = False = 50 hei = Int(ScaleY(, vbTwips, vbPixels) ) 39。, vbTwips, vbPixels)) = Str() amp。 Str(ScaleY(, vbTwips, vbPixels)) amp。 amp。 Str(hei) 33 33 = hei 39。 70 If 2745 Then = False = True = True End If End Sub Private Sub Timer7_Timer() If S_mem 0 Then ShowNumSam wPw2(1), Pt, 16, 1, 1 Else ShowNumSam wPw2(1), Pt, 17, 1, 1 End If If tip 0 Then tip = tip + 1 End If If tip 2 Then tip = 1 End If End Sub Private Sub txtDisp_Change() Dim deLc As String, i As Integer, kL As Integer For i = 24 To 14 Step 1 If (i 23 + Len(Trim())) 0 Then