www.pudn.com > 书羊农历控件 V1.5.rar > Form1.frm
VERSION 5.00
Object = "{8599BA65-7D11-4234-AEB0-6AC1AEF352CD}#1.0#0"; "CnCalendar.ocx"
Begin VB.Form Form1
BackColor = &H80000000&
Caption = "Form1"
ClientHeight = 4935
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 = 329
ScaleMode = 3 'Pixel
ScaleWidth = 469
StartUpPosition = 3 '窗口缺省
Begin CnCalendar2.CnCalendar CnCalendar1
Height = 3525
Left = 120
TabIndex = 13
Top = 120
Width = 4770
_ExtentX = 8414
_ExtentY = 6218
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 = 840
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 = 3240
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 = 2760
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 = 2280
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 = 1800
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 = 1320
Width = 1095
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "http://www.cciyy.com/mysoft/freg.htm"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 1440
MouseIcon = "Form1.frx":0000
MousePointer = 99 'Custom
TabIndex = 12
Top = 4560
Width = 4320
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "赞助一角钱："
Height = 210
Left = 120
TabIndex = 11
Top = 4560
Width = 1350
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "热切的期待您的意见"
ForeColor = &H000000FF&
Height = 210
Left = 4920
TabIndex = 10
Top = 120
Width = 2025
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "sjtuyjc@sohu.com"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 1200
MouseIcon = "Form1.frx":0152
MousePointer = 99 'Custom
TabIndex = 9
Top = 4200
Width = 1920
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "作者信箱："
Height = 210
Left = 120
TabIndex = 8
Top = 4200
Width = 1125
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "http://www.cciyy.com/mysoft/index.htm"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 1200
MouseIcon = "Form1.frx":02A4
MousePointer = 99 'Custom
TabIndex = 7
Top = 3840
Width = 4440
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "作者主页："
Height = 210
Left = 120
TabIndex = 6
Top = 3840
Width = 1125
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)
End Sub
Private Sub Command2_Click()
MsgBox ("选定日期农历年： " + CnCalendar1.GetChineseGanZhi)
End Sub
Private Sub Command3_Click()
MsgBox ("选定日期农历月： " + CnCalendar1.GetChineseMonth)
End Sub
Private Sub Command4_Click()
MsgBox ("选定日期农历日： " + CnCalendar1.GetChineseDay)
End Sub
Private Sub Command5_Click()
MsgBox ("选定日期农历日期： " + CnCalendar1.GetChineseDate)
End Sub
Private Sub Command6_Click()
MsgBox ("选定日期： " + CStr(CnCalendar1.Value))
End Sub
Private Sub Label2_Click()
ShellExecute 0&, vbNullString, "http://www.cciyy.com/mysoft/index.htm", 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