📄 123.frm
字号:
Top = 270
Width = 495
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
BackColor = &H00FFFF00&
Height = 225
Left = 1800
TabIndex = 33
Text = "3"
Top = 270
Width = 300
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
BackColor = &H00FFFF00&
Height = 225
Left = 2430
TabIndex = 32
Text = "1"
Top = 270
Width = 360
End
Begin MSComCtl2.UpDown UpDown3
Height = 225
Left = 2835
TabIndex = 30
ToolTipText = "日查询"
Top = 270
Width = 240
_ExtentX = 450
_ExtentY = 397
_Version = 393216
Value = 1
BuddyControl = "Text3"
BuddyDispid = 196660
OrigLeft = 3120
OrigTop = 360
OrigRight = 3360
OrigBottom = 615
Max = 31
Min = 1
SyncBuddy = -1 'True
Wrap = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin MSComCtl2.UpDown UpDown2
Height = 225
Left = 2160
TabIndex = 31
ToolTipText = "月查询"
Top = 270
Width = 240
_ExtentX = 450
_ExtentY = 397
_Version = 393216
Value = 1
BuddyControl = "Text2"
BuddyDispid = 196659
OrigLeft = 2160
OrigTop = 360
OrigRight = 2400
OrigBottom = 615
Max = 12
Min = 1
SyncBuddy = -1 'True
Wrap = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin MSComCtl2.UpDown UpDown1
Height = 225
Left = 1500
TabIndex = 34
ToolTipText = "年查询"
Top = 270
Width = 240
_ExtentX = 450
_ExtentY = 397
_Version = 393216
Value = 1903
BuddyControl = "Text1"
BuddyDispid = 196658
OrigLeft = 55
OrigTop = 416
OrigRight = 71
OrigBottom = 435
Max = 2050
Min = 1902
SyncBuddy = -1 'True
Wrap = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox Text4
BackColor = &H00000000&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0FF&
Height = 270
Left = 390
TabIndex = 29
Text = "Text4"
Top = 1890
Width = 3405
End
Begin VB.Label Nl_j
AutoSize = -1 'True
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
ForeColor = &H00FFFF00&
Height = 240
Left = 420
TabIndex = 39
ToolTipText = "农历节日"
Top = 1290
Width = 180
End
Begin VB.Label Ljf
AutoSize = -1 'True
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Left = 2415
TabIndex = 68
Top = 600
Width = 180
End
Begin VB.Label J_q
AutoSize = -1 'True
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF80FF&
Height = 240
Left = 405
TabIndex = 38
ToolTipText = "节气"
Top = 585
Width = 1110
End
Begin VB.Label G_z
AutoSize = -1 'True
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 240
Left = 420
TabIndex = 37
ToolTipText = "干支"
Top = 945
Width = 180
End
Begin VB.Label Gl_j
AutoSize = -1 'True
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
ForeColor = &H0000FFFF&
Height = 240
Left = 420
TabIndex = 36
ToolTipText = "公历节日"
Top = 1605
Width = 180
End
End
Begin VB.Label Label3
Caption = "Label3"
Height = 540
Left = 5625
TabIndex = 41
Top = 4020
Width = 3660
End
Begin VB.Label Label2
Caption = "Label2"
Height = 180
Left = 960
TabIndex = 5
Top = 5355
Width = 3315
End
Begin VB.Menu mnuTray
Caption = "Popup"
Visible = 0 'False
Begin VB.Menu musicK
Caption = "&R背景音乐开"
End
Begin VB.Menu musicG
Caption = "&M背景音乐关"
End
Begin VB.Menu er
Caption = "-"
End
Begin VB.Menu mnuTrayRestore
Caption = "&E恢复"
End
Begin VB.Menu mnuTrayMove
Caption = "&M移动"
End
Begin VB.Menu mnuTraySize
Caption = "&S大小"
End
Begin VB.Menu mnuTrayMinimize
Caption = "&n最小化"
End
Begin VB.Menu mnuTrayMaximize
Caption = "&x最大化"
End
Begin VB.Menu mnuTraySep
Caption = "-"
End
Begin VB.Menu mnuTrayClose
Caption = "&C关闭"
End
Begin VB.Menu menuZ
Caption = "&Z总在最前端"
End
Begin VB.Menu menuG
Caption = "&G关闭总在最前端"
End
Begin VB.Menu tra
Caption = "-"
End
Begin VB.Menu colorR
Caption = "&C时钟色彩"
Begin VB.Menu colorRR
Caption = "红色"
Index = 1
End
Begin VB.Menu colorRR
Caption = "青色"
Index = 2
End
Begin VB.Menu colorRR
Caption = "蓝色"
Index = 3
End
Begin VB.Menu colorRR
Caption = "绿色"
Index = 4
End
Begin VB.Menu colorRR
Caption = "黄色"
Index = 5
End
End
Begin VB.Menu we
Caption = "-"
End
Begin VB.Menu menuAbout
Caption = "&A关于..."
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'***************************************
'拖动无标题窗体
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &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
'====================================================================================
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
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
'***************************************
'滚动字幕
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 = &H8
Const DT_CALCRECT As Long = &H400
Const DT_CENTER As Long = &H1
Const DT_EXPANDTABS As Long = &H40
Const DT_EXTERNALLEADING As Long = &H200
Const DT_LEFT As Long = &H0
Const DT_NOCLIP As Long = &H100
Const DT_NOPREFIX As Long = &H800
Const DT_RIGHT As Long = &H2
Const DT_SINGLELINE As Long = &H20
Const DT_TABSTOP As Long = &H80
Const DT_TOP As Long = &H0
Const DT_VCENTER As Long = &H4
Const DT_WORDBREAK As Long = &H10
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Const ScrollText As String = " 1901-2049电子万年历 1.02" & vbCrLf & _
"版权所有(C) 2001-2002 Liu YiHong" & vbCrLf & _
"作 者:山东省电子工业学校 刘益红" & vbCrLf & _
"VB代码:刘益红" & _
vbCrLf & "主程序:刘益红" & _
vbCrLf & "图 像:刘益红" & _
vbCrLf & _
"主 页:" & vbCrLf & _
" HTTP://yh123.myrice.com" & _
vbCrLf & _
"E_mail: liulibuo@" & vbCrLf & _
" jn-public.sd.cninfo.net" & vbCrLf & _
"电 话:13954165199"
'***********************************************
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 = 3.14159265358979
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
'**************************************************
'数字按下、松开
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
'**************************************************
'角度、弧度
Private Sub cmdOp_1_Click(Index As Integer)
MPl.Play
Select Case Index
Case 0
If g = 1 Then
If op = "" Then
e = Str((Val(e) * 180 / Pi))
txtDisp.Text = e
Else
f = Str((Val(e) * 180 / Pi))
txtDisp.Text = f
End If
chk = 1
g = Pi / 180
End If
ShowNumARG Pt, wPw1(3), 19
Case 1
If g <> 1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -