form1.frm
来自「一个很好用的VCL控件」· FRM 代码 · 共 368 行
FRM
368 行
VERSION 5.00
Object = "{7EEE3DC0-9706-4EDA-9EF5-ECFABCC2053E}#1.0#0"; "CnCalendar.ocx"
Begin VB.Form Form1
BackColor = &H80000000&
Caption = "演示程序"
ClientHeight = 4920
ClientLeft = 60
ClientTop = 345
ClientWidth = 7035
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 328
ScaleMode = 3 'Pixel
ScaleWidth = 469
StartUpPosition = 3 '窗口缺省
Begin CnCalendar2.CnCalendar CnCalendar1
Height = 3525
Left = 240
TabIndex = 15
Top = 120
Width = 4665
_ExtentX = 8229
_ExtentY = 6218
End
Begin VB.CommandButton Command7
Caption = "星座"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5400
TabIndex = 12
Top = 3240
Width = 1095
End
Begin VB.CommandButton Command6
Caption = "日期"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5400
TabIndex = 0
Top = 360
Width = 1095
End
Begin VB.CommandButton Command5
Caption = "农历日期"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5400
TabIndex = 5
Top = 2760
Width = 1095
End
Begin VB.CommandButton Command4
Caption = "农历日"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5400
TabIndex = 4
Top = 2280
Width = 1095
End
Begin VB.CommandButton Command3
Caption = "农历月"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5400
TabIndex = 3
Top = 1800
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "农历年"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5400
TabIndex = 2
Top = 1320
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "属相"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5400
TabIndex = 1
Top = 840
Width = 1095
End
Begin VB.Label Label8
Caption = "最酷的搜索引擎，还可以养猪致富（点击下载）"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 1200
TabIndex = 14
Top = 4560
Width = 3975
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "下载网络猪："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 1
Left = 120
TabIndex = 13
Top = 4560
Width = 1080
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "http://www.cciyy.com/mysoft/freg.htm"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 180
Left = 1200
MouseIcon = "Form1.frx":0000
MousePointer = 99 'Custom
TabIndex = 11
Top = 4200
Width = 3240
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "赞助一角钱："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Index = 0
Left = 120
TabIndex = 10
Top = 4200
Width = 1080
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "sjtuyjc@sohu.com"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 180
Left = 4920
MouseIcon = "Form1.frx":0152
MousePointer = 99 'Custom
TabIndex = 9
Top = 3840
Width = 1440
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "作者信箱："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 3840
TabIndex = 8
Top = 3840
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "http://www.cciyy.com/cn"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 180
Left = 1200
MouseIcon = "Form1.frx":02A4
MousePointer = 99 'Custom
TabIndex = 7
Top = 3840
Width = 2070
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "作者主页："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 120
TabIndex = 6
Top = 3840
Width = 900
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub CnCalendar1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
' MsgBox "mouseup"
End Sub
Private Sub Command1_Click()
MsgBox ("选定日期属相： " + CnCalendar1.GetChineseAnimal(CnCalendar1.Value))
End Sub
Private Sub Command2_Click()
MsgBox ("选定日期农历年： " + CnCalendar1.GetChineseyear(CnCalendar1.Value))
End Sub
Private Sub Command3_Click()
MsgBox ("选定日期农历月： " + CnCalendar1.GetChineseMonth(CnCalendar1.Value))
End Sub
Private Sub Command4_Click()
MsgBox ("选定日期农历日： " + CnCalendar1.GetChineseDay(CnCalendar1.Value))
End Sub
Private Sub Command5_Click()
MsgBox ("选定日期农历日期： " + CnCalendar1.GetChineseDate(CnCalendar1.Value))
End Sub
Private Sub Command6_Click()
MsgBox ("选定日期： " + CStr(CnCalendar1.Value))
End Sub
Private Sub Command7_Click()
MsgBox CnCalendar1.GetConstellation(CnCalendar1.Value)
End Sub
Private Sub Label2_Click()
ShellExecute 0&, vbNullString, "http://www.cciyy.com/cn", vbNullString, vbNullString, vbNormalFocus
End Sub
Private Sub Label4_Click()
ShellExecute Me.hwnd, "open", "mailto:sjtuyjc@sohu.com?subject=农历控件", vbNullString, vbNullString, 0
End Sub
Private Sub Label7_Click()
ShellExecute 0&, vbNullString, "http://www.cciyy.com/mysoft/freg.htm", vbNullString, vbNullString, vbNormalFocus
End Sub
Private Sub Label8_Click()
ShellExecute 0&, vbNullString, "http://www.cciyy.com/cn/mysoft/netpig.htm", vbNullString, vbNullString, vbNormalFocus
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?