📄 frmmain.frm
字号:
Top = 90
Width = 5385
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "Personal Details 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 = 120
TabIndex = 40
Top = 90
Width = 2925
End
End
Begin VB.Frame fraOther
BorderStyle = 0 'None
Caption = "Frame1"
Height = 7875
Left = 750
TabIndex = 89
Top = 1440
Width = 11865
Begin MSComDlg.CommonDialog cdgAddPic
Left = 2040
Top = 990
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command3
Caption = ">"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 11460
TabIndex = 100
Top = 540
Width = 345
End
Begin VB.CommandButton Command2
Caption = "<"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 60
TabIndex = 99
Top = 540
Width = 345
End
Begin VB.CommandButton cmdAddPicture
Caption = "Add Picture"
Height = 315
Left = 450
TabIndex = 98
Top = 540
Width = 1035
End
Begin VB.PictureBox picGallery
AutoRedraw = -1 'True
Height = 1305
Index = 0
Left = 60
ScaleHeight = 1245
ScaleMode = 0 'User
ScaleWidth = 1425
TabIndex = 95
Top = 930
Width = 1425
End
Begin RichTextLib.RichTextBox rtbMemo
Height = 2385
Left = 60
TabIndex = 92
Top = 5430
Width = 11745
_ExtentX = 20717
_ExtentY = 4207
_Version = 393217
TextRTF = $"frmMain.frx":058A
End
Begin VB.Label Label29
AutoSize = -1 'True
Caption = "Double click on a picture to see it full size."
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1710
TabIndex = 107
Top = 510
Width = 5265
End
Begin VB.Label lblImgCaption
BorderStyle = 1 'Fixed Single
Height = 675
Index = 0
Left = 60
TabIndex = 94
Top = 2310
Width = 1425
WordWrap = -1 'True
End
Begin VB.Label Label27
AutoSize = -1 'True
Caption = "Narrative"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 60
TabIndex = 93
Top = 5130
Width = 2595
End
Begin VB.Label Label28
Caption = "Other Details 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 = 120
TabIndex = 91
Top = 120
Width = 2475
End
Begin VB.Label lblOtherDetailsName
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 = 2790
TabIndex = 90
Top = 120
Width = 5385
End
End
Begin VB.Frame fraPedigree
BorderStyle = 0 'None
Caption = "Frame2"
Height = 7875
Left = 120
TabIndex = 62
Top = 2160
Width = 11865
Begin VB.TextBox txtInvisible
Height = 285
Left = 390
TabIndex = 88
Text = "Invisible"
Top = 1650
Visible = 0 'False
Width = 915
End
Begin MSComctlLib.ListView lvSpouses
Height = 1155
Left = 180
TabIndex = 80
Top = 3120
Width = 2925
_ExtentX = 5159
_ExtentY = 2037
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.TextBox txtMMFather
BackColor = &H00E0E0E0&
Height = 525
Left = 9210
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 77
Top = 6042
Width = 2595
End
Begin VB.TextBox txtMFMother
BackColor = &H00E0E0E0&
Height = 525
Left = 9210
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 76
Top = 5070
Width = 2595
End
Begin VB.TextBox txtMFFather
BackColor = &H00E0E0E0&
Height = 525
Left = 9210
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 75
Top = 4098
Width = 2595
End
Begin VB.TextBox txtFMMother
BackColor = &H00E0E0E0&
Height = 525
Left = 9210
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 74
Top = 3126
Width = 2595
End
Begin VB.TextBox txtFMFather
BackColor = &H00E0E0E0&
Height = 525
Left = 9210
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 73
Top = 2154
Width = 2595
End
Begin VB.TextBox txtFFMother
BackColor = &H00E0E0E0&
Height = 525
Left = 9210
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 72
Top = 1182
Width = 2595
End
Begin VB.TextBox txtFFFather
BackColor = &H00E0E0E0&
Height = 525
Left = 9210
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 71
Top = 210
Width = 2595
End
Begin VB.TextBox txtMMMother
BackColor = &H00E0E0E0&
Height = 525
Left = 9210
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 70
Top = 7020
Width = 2595
End
Begin VB.TextBox txtMMother
BackColor = &H00E0E0E0&
Height = 525
Left = 6270
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 69
Top = 6570
Width = 2595
End
Begin VB.TextBox txtMFather
BackColor = &H00E0E0E0&
Height = 525
Left = 6270
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 68
Top = 4640
Width = 2595
End
Begin VB.TextBox txtFMother
BackColor = &H00E0E0E0&
Height = 525
Left = 6270
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 67
Top = 2710
Width = 2595
End
Begin VB.TextBox txtFFather
BackColor = &H00E0E0E0&
Height = 525
Left = 6270
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 66
Top = 780
Width = 2595
End
Begin VB.TextBox txtPedMother
BackColor = &H00E0E0E0&
Height = 525
Left = 3330
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 65
Top = 5640
Width = 2595
End
Begin VB.TextBox txtPedFather
BackColor = &H00E0E0E0&
Height = 525
Left = 3330
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 64
Top = 1740
Width = 2595
End
Begin VB.TextBox txtMainInd
BackColor = &H00E0E0E0&
Height = 525
Left = 30
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 63
Top = 2430
Width = 2835
End
Begin MSComctlLib.ListView lvChildren
Height = 3315
Left = 180
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -