📄 frmmain.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
Begin VB.Form frmMain
BackColor = &H00C0C0C0&
Caption = "BioWiz "
ClientHeight = 5340
ClientLeft = 60
ClientTop = 345
ClientWidth = 6630
ClipControls = 0 'False
Icon = "frmMain.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 5340
ScaleWidth = 6630
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
Caption = "Exit"
BeginProperty Font
Name = "Arial Black"
Size = 12
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 4545
TabIndex = 64
Top = 180
Width = 2040
End
Begin VB.Frame Frame
Height = 4560
Index = 3
Left = 2475
TabIndex = 4
Top = 5490
Width = 6360
Begin VB.PictureBox Picture2
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 4320
Left = 45
Picture = "frmMain.frx":000C
ScaleHeight = 288
ScaleMode = 3 'Pixel
ScaleWidth = 420
TabIndex = 5
Top = 135
Width = 6300
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H0000FF00&
BorderStyle = 0 'None
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 161
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1995
Left = 225
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 7
Text = "frmMain.frx":589CE
Top = 2070
Width = 5865
End
Begin VB.CommandButton cmdWebsite
Caption = "Visit Website"
Height = 285
Left = 4230
TabIndex = 6
Top = 1575
Width = 1815
End
End
End
Begin VB.Frame Frame
BackColor = &H00C0C0C0&
Height = 4560
Index = 2
Left = 6795
TabIndex = 2
Top = 765
Width = 6360
Begin VB.PictureBox Picture1
BackColor = &H008080FF&
BorderStyle = 0 'None
Height = 1095
Left = 3555
ScaleHeight = 1095
ScaleWidth = 1905
TabIndex = 59
Top = 3465
Width = 1905
Begin VB.Label lblCycles
BorderStyle = 1 'Fixed Single
Caption = "Label4"
Height = 285
Index = 4
Left = 0
TabIndex = 63
Top = 0
Width = 1920
End
Begin VB.Label lblCycles
BorderStyle = 1 'Fixed Single
Caption = "Label4"
Height = 285
Index = 5
Left = 0
TabIndex = 62
Top = 270
Width = 1920
End
Begin VB.Label lblCycles
BorderStyle = 1 'Fixed Single
Caption = "Label4"
Height = 285
Index = 6
Left = 0
TabIndex = 61
Top = 540
Width = 1920
End
Begin VB.Label lblCycles
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "Label5"
Height = 285
Index = 7
Left = 0
TabIndex = 60
Top = 810
Width = 1920
End
End
Begin VB.CommandButton cmdReset
BackColor = &H0000C0C0&
Caption = "Current Date"
Height = 1005
Left = 5490
Style = 1 'Graphical
TabIndex = 55
Top = 3510
Width = 825
End
Begin VB.CommandButton cmdYearForth
BackColor = &H00FFC0FF&
Caption = "--->"
Height = 375
Left = 2970
Style = 1 'Graphical
TabIndex = 54
Top = 4185
Width = 600
End
Begin VB.CommandButton cmdMonthForth
BackColor = &H00C0E0FF&
Caption = "--->"
Height = 375
Left = 2970
Style = 1 'Graphical
TabIndex = 53
Top = 3825
Width = 600
End
Begin VB.CommandButton cmdYearBack
BackColor = &H00FFC0FF&
Caption = "<---"
Height = 375
Left = 2430
Style = 1 'Graphical
TabIndex = 52
Top = 4185
Width = 555
End
Begin VB.CommandButton cmdMonthBack
BackColor = &H00C0E0FF&
Caption = "<---"
Height = 375
Left = 2430
Style = 1 'Graphical
TabIndex = 51
Top = 3825
Width = 555
End
Begin VB.CommandButton cmdDayForth
BackColor = &H00FFC0C0&
Caption = "--->"
Height = 375
Left = 2970
MaskColor = &H00000000&
Style = 1 'Graphical
TabIndex = 49
Top = 3465
Width = 600
End
Begin VB.CheckBox chkRulers
Caption = "Rulers"
Height = 240
Left = 45
TabIndex = 48
Top = 4275
Value = 1 'Checked
Width = 1635
End
Begin VB.CheckBox chkIntellectual
Caption = "Intellectual Cycle"
Height = 285
Left = 45
TabIndex = 47
Top = 4005
Value = 1 'Checked
Width = 1635
End
Begin VB.CheckBox chkPhysical
Caption = "Physical Cycle"
Height = 285
Left = 45
TabIndex = 46
Top = 3735
Value = 1 'Checked
Width = 1635
End
Begin VB.CheckBox chkEmotional
Caption = "Emotional Cycle"
Height = 285
Left = 45
TabIndex = 45
Top = 3465
Value = 1 'Checked
Width = 1635
End
Begin VB.CommandButton cmdDayBack
BackColor = &H00FFC0C0&
Caption = "<---"
Height = 375
Left = 2430
MaskColor = &H00000000&
Style = 1 'Graphical
TabIndex = 44
Top = 3465
Width = 555
End
Begin VB.PictureBox picGraph
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
FillColor = &H00FFFFFF&
BeginProperty Font
Name = "MS Serif"
Size = 9.75
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 3345
Left = 45
ScaleHeight = 219
ScaleMode = 3 'Pixel
ScaleWidth = 414
TabIndex = 3
Top = 135
Width = 6270
End
Begin VB.Label Label4
BackColor = &H00FFC0FF&
BorderStyle = 1 'Fixed Single
Caption = "Year"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 345
Index = 2
Left = 1665
TabIndex = 58
Top = 4185
Width = 750
End
Begin VB.Label Label4
BackColor = &H00C0E0FF&
BorderStyle = 1 'Fixed Single
Caption = "Month"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 345
Index = 1
Left = 1665
TabIndex = 57
Top = 3825
Width = 750
End
Begin VB.Label Label4
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
Caption = "Day"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 161
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 345
Index = 0
Left = 1665
TabIndex = 56
Top = 3465
Width = 750
End
End
Begin VB.Frame Frame
Height = 4560
Index = 1
Left = 180
TabIndex = 1
Top = 675
Width = 6360
Begin VB.PictureBox Picture3
BorderStyle = 0 'None
Height = 4245
Left = 90
ScaleHeight = 4245
ScaleWidth = 6000
TabIndex = 8
Top = 180
Width = 6000
Begin VB.CommandButton cmdSystemDate
Caption = "Apply System Date"
Height = 330
Left = 0
TabIndex = 50
Top = 1620
Width = 2760
End
Begin VB.OptionButton optColor
Caption = "Physical Cycle"
Height = 240
Index = 5
Left = 0
Style = 1 'Graphical
TabIndex = 40
Top = 3735
Width = 1950
End
Begin VB.OptionButton optColor
Caption = "Intellectual Cycle"
Height = 240
Index = 6
Left = 0
Style = 1 'Graphical
TabIndex = 39
Top = 4005
Width = 1950
End
Begin VB.OptionButton optColor
Caption = "Emotional Cycle"
Height = 240
Index = 4
Left = 0
Style = 1 'Graphical
TabIndex = 38
Top = 3465
Width = 1950
End
Begin VB.OptionButton optColor
Caption = "Background"
Height = 240
Index = 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -