新經(jīng)濟(jì)管理學(xué)院本科畢業(yè)論文范文（成人學(xué)院-文庫(kù)吧
2025-08-09 10:56 本頁(yè)面
【正文】 該時(shí)鐘是畫出來(lái)的 , 還有 L1,L2,L3 三個(gè) line 控件 9 9 Picture2 cmdt Picture2 Lable4 Picture5 圖中我們看到的一個(gè)個(gè)小按鈕是用photoshop畫出來(lái)的 ,實(shí)際上在每個(gè)按鈕上面我都加上了透明的 lable 控件 Pt : picturebox控件 Updown1 10 10 三、主程序部分代碼： Option Explicit 39。*************************************** 39。拖動(dòng)無(wú)標(biāo)題窗體 Const HTCAPTION = 2 Const WM_NCLBUTTONDOWN = 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 39。============================================================================= Private Declare Function GetObjectAPI Lib gdi32 Alias GetObjectA (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long Private Declare Function DeleteObject Lib gdi32 (ByVal hObject As Long) As Long Private Declare Function SetWindowRgn Lib user32 (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Declare Function CreateRectRgn Lib gdi32 (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function CombineRgn Lib gdi32 (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long Private Declare Function GetBitmapBits Lib gdi32 (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long Text1:textbox控件 11 11 Private Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As Long End Type Private Const RGN_OR = 2 Dim bmByte() As Byte 39。*************************************** 39。滾動(dòng)字幕 Private Declare Function DrawText Lib user32 Alias DrawTextA (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long Private Declare Function GetTickCount Lib kernel32 () As Long Const DT_BOTTOM As Long = amp。H8 Const DT_CALCRECT As Long = amp。H400 Const DT_CENTER As Long = amp。H1 Const DT_EXPANDTABS As Long = amp。H40 Const DT_EXTERNALLEADING As Long = amp。H200 Const DT_LEFT As Long = amp。H0 Const DT_NOCLIP As Long = amp。H100 Const DT_NOPREFIX As Long = amp。H800 Const DT_RIGHT As Long = amp。H2 Const DT_SINGLELINE As Long = amp。H20 Const DT_TABSTOP As Long = amp。H80 Const DT_TOP As Long = amp。H0 Const DT_VCENTER As Long = amp。H4 Const DT_WORDBREAK As Long = amp。H10 Private Type RECT Left As Long Top As Long Right As Long Bottom As Long 12 12 End Type Const ScrollText As String = 19012049 amp。 vbCrLf amp。 _ 多功能電子日歷 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。************************************************** 39。數(shù)字按下、松開(kāi) Private Sub cmdNum_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdNum(Index) End Sub Private Sub cmdNum_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdNum(Index) End Sub 39。************************************************** 39。角度、弧度 Private Sub cmdOp_1_Click(Index As Integer) Select Case Index Case 0 13 13 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。 g = 1 ShowNumARG Pt, wPw1(3), 21 End Select End Sub Private Sub cmdOp_1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdOp_1(Index) End Sub Private Sub cmdOp_1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) 14 14 Show_b Picture5, P8, cmdOp_1(Index) End Sub 39。************************************************** 39。單一功能鍵按下、松開(kāi) Private Sub cmdops_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdOps(Index) End Sub Private Sub cmdops_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdOps(Index) End Sub 39。************************************************** 39。單一功能鍵按下、松開(kāi) Private Sub cmdOps_Click(Index As Integer) Dim sum As Double, i As Integer On Error GoTo eh1 Select Case Index Case 0 e = Str(Sqr(Val(e))) ShowNumFun Pt, wPw1(3), 10 Ji_suan Case 1 If e 0 Then e = Val(txtDisp) Else e = 0 End If Ji_suan Case 2 e = Str(Sin(Val(e) * g)) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 3 e = S
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1