📄 frmmain.frm
字号:
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Help"
Key = "Help"
ImageIndex = 6
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Quit"
Key = "Quit"
ImageKey = "Quit"
EndProperty
EndProperty
BorderStyle = 1
End
Begin MSComctlLib.StatusBar sbStatusBar
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 19
Top = 8295
Width = 11880
_ExtentX = 20955
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 15769
Text = "Status"
TextSave = "Status"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
AutoSize = 2
TextSave = "28/07/2005"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
AutoSize = 2
TextSave = "10:02"
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog dlgCommonDialog
Left = 8160
Top = 150
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.ImageList imlToolbarIcons
Left = 8700
Top = 840
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 12
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":060C
Key = "Home"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0EE6
Key = "Back"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":17C0
Key = "Forward"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":209A
Key = "Add"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":24EC
Key = "Quit"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":293E
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2A50
Key = "File"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":332A
Key = "Pictures"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3C04
Key = "Details"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":44DE
Key = "Index"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4930
Key = "Pedigree"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":520A
Key = "Email"
EndProperty
EndProperty
End
Begin VB.Menu mnuFile
Caption = "&File"
Begin VB.Menu mnuFileAdd
Caption = "&Add..."
Begin VB.Menu mnuFileAddFather
Caption = "Add Father"
End
Begin VB.Menu mnuFileAddMother
Caption = "Add Mother"
End
Begin VB.Menu mnuFileAddSpouse
Caption = "Add Spouse"
End
Begin VB.Menu mnuFileAddChild
Caption = "Add Child"
End
Begin VB.Menu mnuFileAddUnrelated
Caption = "Add unrelated person"
Visible = 0 'False
End
End
Begin VB.Menu mnuFileOpen
Caption = "&Open..."
End
Begin VB.Menu mnuFileClose
Caption = "&Close"
Visible = 0 'False
End
Begin VB.Menu mnuFileBar0
Caption = "-"
End
Begin VB.Menu mnuFileSave
Caption = "&Save"
End
Begin VB.Menu mnuFileSendTo
Caption = "Send &To..."
End
Begin VB.Menu mnuFileBar1
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuFileProperties
Caption = "Propert&ies"
Visible = 0 'False
End
Begin VB.Menu mnuFileBar2
Caption = "-"
End
Begin VB.Menu mnuFilePageSetup
Caption = "Page Set&up..."
Visible = 0 'False
End
Begin VB.Menu mnuFilePrintPreview
Caption = "Print Pre&view"
Visible = 0 'False
End
Begin VB.Menu mnuFilePrint
Caption = "&Print..."
Visible = 0 'False
End
Begin VB.Menu mnuFileBar3
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuFileSend
Caption = "Sen&d..."
Visible = 0 'False
End
Begin VB.Menu mnuFileBar4
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 1
Visible = 0 'False
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 2
Visible = 0 'False
End
Begin VB.Menu mnuFileMRU
Caption = ""
Index = 3
Visible = 0 'False
End
Begin VB.Menu mnuFileBar5
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuFileExit
Caption = "E&xit"
End
End
Begin VB.Menu mnuEdit
Caption = "&Edit"
Begin VB.Menu mnuEditUndo
Caption = "&Undo"
End
Begin VB.Menu mnuEditBar0
Caption = "-"
End
Begin VB.Menu mnuEditCut
Caption = "Cu&t"
Shortcut = ^X
End
Begin VB.Menu mnuEditCopy
Caption = "&Copy"
Shortcut = ^C
End
Begin VB.Menu mnuEditPaste
Caption = "&Paste"
Shortcut = ^V
End
Begin VB.Menu mnuEditPasteSpecial
Caption = "Paste &Special..."
End
End
Begin VB.Menu mnuView
Caption = "&View"
Begin VB.Menu mnuViewToolbar
Caption = "&Toolbar"
Checked = -1 'True
End
Begin VB.Menu mnuViewStatusBar
Caption = "Status &Bar"
Checked = -1 'True
Visible = 0 'False
End
Begin VB.Menu mnuViewBar0
Caption = "-"
End
Begin VB.Menu mnuViewIndividual
Caption = "&Individual"
End
Begin VB.Menu mnuViewPedigree
Caption = "&Pedigree"
End
Begin VB.Menu mnuViewGallery
Caption = "&Gallery"
End
Begin VB.Menu mnuViewSep1
Caption = "-"
End
Begin VB.Menu mnuViewRefresh
Caption = "&Refresh"
Visible = 0 'False
End
Begin VB.Menu mnuViewOptions
Caption = "&Options..."
End
Begin VB.Menu mnuViewWebBrowser
Caption = "&Web Browser"
Visible = 0 'False
End
End
Begin VB.Menu mnuTools
Caption = "&Tools"
Begin VB.Menu mnuToolsOptions
Caption = "&Options..."
End
End
Begin VB.Menu mnuWindow
Caption = "&Window"
Visible = 0 'False
WindowList = -1 'True
Begin VB.Menu mnuWindowNewWindow
Caption = "&New Window"
End
Begin VB.Menu mnuWindowBar0
Caption = "-"
End
Begin VB.Menu mnuWindowCascade
Caption = "&Cascade"
End
Begin VB.Menu mnuWindowTileHorizontal
Caption = "Tile &Horizontal"
End
Begin VB.Menu mnuWindowTileVertical
Caption = "Tile &Vertical"
End
Begin VB.Menu mnuWindowArrangeIcons
Caption = "&Arrange Icons"
End
End
Begin VB.Menu mnuHelp
Caption = "&Help"
Begin VB.Menu mnuHelpContents
Caption = "&Contents"
End
Begin VB.Menu mnuHelpTopic
Caption = "Help &topic for this page"
End
Begin VB.Menu mnuHelpIndex
Caption = "Help &Index"
End
Begin VB.Menu mnuHelpBar0
Caption = "-"
End
Begin VB.Menu mnuHelpAbout
Caption = "&About "
End
End
Begin VB.Menu mnuPop
Caption = "&PoPup"
Visible = 0 'False
Begin VB.Menu mnuPopView
Caption = "View"
End
Begin VB.Menu mnuPopProperties
Caption = "Properties"
End
Begin VB.Menu mnuPopSep
Caption = "-"
End
Begin VB.Menu mnuPopCancel
Caption = "&Cancel"
End
End
Begin VB.Menu mnuGoto
Caption = "&Goto"
Visible = 0 'False
Begin VB.Menu mnuGotoAdd
Caption = "&Add Individual"
End
Begin VB.Menu mnuGotoInd
Caption = "&View Individual"
End
Begin VB.Menu mnuGotoRemove
Caption = "&Remove Relationship"
End
Begin VB.Menu mnuGotoSep
Caption = "-"
End
Begin VB.Menu mnuGotoCancel
Caption = "Cancel"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private mbChanged As Boolean 'Indicates data has changed
Private mIndex As Integer
Private mNewInd As Long
Private mDelRel As Long
Private ePersonToAdd As Integer
Private bBackorFwd As Boolean
Private mlHistory() As Long
Private mnHistIdx As Integer
'Private Enum AddPerso⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -