📄 frmmain.frm
字号:
TabIndex = 81
Top = 4320
Width = 2925
_ExtentX = 5159
_ExtentY = 5847
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = 14737632
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.Label Label26
AutoSize = -1 'True
Caption = "Maternal Grandmother"
Height = 195
Left = 6270
TabIndex = 87
Top = 6330
Width = 1575
End
Begin VB.Label Label25
AutoSize = -1 'True
Caption = "Maternal Grandfather"
Height = 195
Left = 6270
TabIndex = 86
Top = 4410
Width = 1500
End
Begin VB.Label Label24
AutoSize = -1 'True
Caption = "Paternal Grandmother"
Height = 195
Left = 6270
TabIndex = 85
Top = 2490
Width = 1545
End
Begin VB.Label Label23
AutoSize = -1 'True
Caption = "Paternal Grandfather"
Height = 195
Left = 6270
TabIndex = 84
Top = 540
Width = 1470
End
Begin VB.Label Label22
AutoSize = -1 'True
Caption = "Mother"
Height = 195
Left = 3360
TabIndex = 83
Top = 5400
Width = 495
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "Father"
Height = 195
Left = 3330
TabIndex = 82
Top = 1500
Width = 450
End
Begin VB.Label Label21
Caption = "Pedigree for: "
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 90
TabIndex = 79
Top = 90
Width = 1935
End
Begin VB.Label lblPedigreeName
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 2340
TabIndex = 78
Top = 90
Width = 5385
End
Begin VB.Line Line28
X1 = 8820
X2 = 9060
Y1 = 6780
Y2 = 6780
End
Begin VB.Line Line27
X1 = 8820
X2 = 9060
Y1 = 4860
Y2 = 4860
End
Begin VB.Line Line26
X1 = 8820
X2 = 9060
Y1 = 990
Y2 = 990
End
Begin VB.Line Line25
X1 = 5880
X2 = 6150
Y1 = 5850
Y2 = 5850
End
Begin VB.Line Line24
X1 = 8820
X2 = 9060
Y1 = 2940
Y2 = 2940
End
Begin VB.Line Line23
X1 = 5880
X2 = 6150
Y1 = 1950
Y2 = 1950
End
Begin VB.Line Line22
X1 = 9060
X2 = 9240
Y1 = 7320
Y2 = 7320
End
Begin VB.Line Line21
X1 = 9060
X2 = 9240
Y1 = 6300
Y2 = 6300
End
Begin VB.Line Line20
X1 = 9060
X2 = 9210
Y1 = 5370
Y2 = 5370
End
Begin VB.Line Line19
X1 = 9060
X2 = 9210
Y1 = 4380
Y2 = 4380
End
Begin VB.Line Line18
X1 = 9060
X2 = 9210
Y1 = 3420
Y2 = 3420
End
Begin VB.Line Line17
X1 = 9060
X2 = 9210
Y1 = 2430
Y2 = 2430
End
Begin VB.Line Line16
X1 = 9060
X2 = 9240
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line15
X1 = 9060
X2 = 9210
Y1 = 450
Y2 = 450
End
Begin VB.Line Line14
X1 = 6150
X2 = 6270
Y1 = 6840
Y2 = 6840
End
Begin VB.Line Line13
X1 = 6150
X2 = 6270
Y1 = 4890
Y2 = 4890
End
Begin VB.Line Line12
X1 = 6150
X2 = 6270
Y1 = 2940
Y2 = 2940
End
Begin VB.Line Line11
X1 = 6150
X2 = 6270
Y1 = 1020
Y2 = 1020
End
Begin VB.Line Line10
X1 = 2880
X2 = 3150
Y1 = 2700
Y2 = 2700
End
Begin VB.Line Line9
X1 = 3150
X2 = 3330
Y1 = 5880
Y2 = 5880
End
Begin VB.Line Line8
X1 = 3150
X2 = 3330
Y1 = 1980
Y2 = 1980
End
Begin VB.Line Line7
X1 = 9060
X2 = 9060
Y1 = 6300
Y2 = 7320
End
Begin VB.Line Line6
X1 = 9060
X2 = 9060
Y1 = 4380
Y2 = 5370
End
Begin VB.Line Line5
X1 = 9060
X2 = 9060
Y1 = 2430
Y2 = 3420
End
Begin VB.Line Line4
X1 = 9060
X2 = 9060
Y1 = 450
Y2 = 1440
End
Begin VB.Line Line3
X1 = 6150
X2 = 6150
Y1 = 4890
Y2 = 6840
End
Begin VB.Line Line2
X1 = 6150
X2 = 6150
Y1 = 1020
Y2 = 2940
End
Begin VB.Line Line1
X1 = 3150
X2 = 3150
Y1 = 1980
Y2 = 5880
End
End
Begin MSComctlLib.Toolbar tbMain
Align = 1 'Align Top
Height = 810
Left = 0
TabIndex = 20
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 1429
ButtonWidth = 1296
ButtonHeight = 1376
Style = 1
ImageList = "imlToolbarIcons"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 15
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Home"
Key = "Home"
Object.ToolTipText = "View Prime Individual"
ImageKey = "Home"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Back"
Key = "Back"
ImageKey = "Back"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Forward"
Key = "Forward"
ImageKey = "Forward"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Index"
Key = "Index"
ImageKey = "Index"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Add ..."
Key = "Add"
ImageKey = "Add"
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 5
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "Father"
Text = "Father"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "Mother"
Text = "Mother"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "Child"
Text = "Child"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "Spouse"
Text = "Spouse"
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Key = "Unrelated"
Text = "Unrelated"
EndProperty
EndProperty
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Details"
Key = "Details"
ImageKey = "Details"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Pedigree"
Key = "Pedigree"
ImageKey = "Pedigree"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Pictures"
Key = "Pictures"
ImageKey = "Pictures"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Email"
Key = "Email"
Object.ToolTipText = "Email details"
ImageKey = "Email"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -