【正文】 5 + 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)) 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。err MsgBox Error scrolling text, vbExclamation EndingFlag = True Else = = 0 = RectHeight = = + End If Do While Not EndingFlag If GetTickCount() LastFrameTime IntervalTime Then DrawText , ScrollText, 1, DrawingRect, DT_CENTER 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 = False Else = + 50 hei = ScaleY(, vbTwips, vbPixels) 39。 Str(ScaleY(, vbTwips, vbPixels)) amp。 + 1 Else = + 50 hei = Int(ScaleY(, vbTwips, vbPixels)) 39。 Str(hei) = hei 39。 Str(ScaleY(, vbTwips, vbPixels)) amp。小字符顯示 For i = 24 To 1 Step 1 If (i 23 + Len(Trim())) 0 Then deLc = Mid(, i 23 + Len(Trim()), 1) = Str(Len(Trim())) Else deLc = End If Select Case deLc Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 0 kL = Val(deLc) ShowNumSam wPw2(1), Pt, kL + 1, 1, i Case . ShowNumSam wPw2(1), Pt, 14, 1, i Case E ShowNumSam wPw2(1), Pt, 12, 1, i Case + ShowNumSam wPw2(1), Pt, 13, 1, i Case ShowNumSam wPw2(1), Pt, 15, 1, i Case Else ShowNumSam wPw2(1), Pt, 0, 1, i End Select Next i End Sub Public Sub SetAutoRgn(hForm As Form, O。 Str(hei) = hei 39。 + 1 End If End Sub Private Sub Timer6_Timer() Dim hei = False jiSuan = False = 50 hei = Int(ScaleY(, vbTwips, vbPixels) ) 39。 Str(ScaleY(, vbTwips, vbPixels)) amp。 Str(hei) = 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。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。 滾動(dòng)字幕 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。 fhSec3 = 0 color_index = 1 jS = 0 = vbRed = 8 = False color1 = 1 flAge = False shxing 39。=============================================== Dim t As Single, rtn = 2715 = 5400 rtn = SetWindowPos(, 1, 0, 0, 0, 0, FLAGS) tip = 1 t = Timer If 0 Then Call SetAutoRgn(Me) tiAo = False jiSuan = False 39。 . = e Else f = f amp。************************************************** 39。角度、弧度 Private Sub cmdOp_1_Click(Index As Integer) Select Case Index Case 0 If g = 1 Then If op = Then e = Str((Val(e) * 180 / Pi)) = e Else f = Str((Val(e) * 180 / Pi)) = f End If chk = 1 g = Pi / 180 End If ShowNumARG Pt, wPw1(3), 19 Case 1 If g 1 Then If op = Then e = Str((Val(e) * Pi / 180)) = e Else f = Str((Val(e) * Pi / 180)) = f End If chk = 1 g = 1 End If ShowNumARG Pt, wPw1(3), 20 Case 2 39。*********************************************** Dim EndingFlag As Boolean, jS As Integer Dim e As String Dim f As String Dim g As Double Dim S_mem As Double Dim op As String Dim chk As Integer Const Pi = Private Const SWP_NOMOVE = 2 Private Const SWP_NOSIZE = 1 Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE Private Const HWND_TOPMOST = 1 Private Const HWND_NOTOPMOST = 2 Dim flAge As Boolean, color_index As Integer, tiAo As Boolean, jiSuan As Boolean Dim s_mem_B As Boolean, tip As Integer, ziShi As String 39。H4 Const DT_WORDBREAK As Long = amp。H2 Const DT_SINGLELINE As Long = amp。H200 Const DT_LEFT As Long = amp。H8 Const DT_CALCRECT As Long = amp。HA1 Private Declare Function ReleaseCapture Lib user32 () As Long Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long Picture2 cmdt Picture2 Lable4 Picture5 圖中我們看到的一個(gè)個(gè)小按鈕是用photoshop畫(huà)出來(lái)的 ,實(shí)際上在每個(gè)按鈕上面我都加上了透明的 lable 控件 Text1:textbox控件 Updown1 39。單擊計(jì)算器面板開(kāi)關(guān)將向下拉出計(jì)算器面板 ,單擊查詢控制面板開(kāi)關(guān)將向下拉出查詢控制面板 ,見(jiàn)圖 2。 第 二 章 用 VB 開(kāi)發(fā) 多功能日歷 程序 一、本程序運(yùn)行界面簡(jiǎn)介 編程的主導(dǎo)思想是 :先把公、農(nóng)歷的數(shù)據(jù)用數(shù)組查詢?cè)O(shè)置好，再通過(guò)算法轉(zhuǎn)換成具體應(yīng)用。如果編譯