📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmMain
Caption = "家谱"
ClientHeight = 5190
ClientLeft = 165
ClientTop = 810
ClientWidth = 7875
Icon = "FrmMain.frx":0000
LinkTopic = "Form1"
ScaleHeight = 5190
ScaleWidth = 7875
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H80000002&
ForeColor = &H80000008&
Height = 2030
Left = 1680
ScaleHeight = 1995
ScaleWidth = 3225
TabIndex = 4
Top = 2400
Width = 3255
Begin VB.ListBox List1
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1740
Left = -15
TabIndex = 5
Top = 270
Width = 3255
End
Begin VB.ListBox List2
Appearance = 0 'Flat
Height = 1470
Left = 1800
TabIndex = 7
Top = 360
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "×"
Height = 285
Left = 2960
TabIndex = 6
Top = 0
Width = 285
End
Begin VB.Label Label3
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Label3"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000009&
Height = 240
Left = 60
TabIndex = 9
Top = 30
Width = 720
End
Begin VB.Label Label2
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000017&
Height = 240
Left = 1150
TabIndex = 8
Top = 30
Width = 120
End
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 735
Left = 1560
ScaleHeight = 735
ScaleWidth = 4575
TabIndex = 1
Top = 840
Width = 4575
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 135
Left = 0
TabIndex = 3
Top = 360
Width = 4575
_ExtentX = 8070
_ExtentY = 238
_Version = 393216
Appearance = 0
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "正在加载数据……"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000009&
Height = 240
Left = 1320
TabIndex = 2
Top = 120
Width = 1920
End
End
Begin VB.Timer Timer1
Interval = 100
Left = 1080
Top = 2520
End
Begin MSComctlLib.ImageList ImageList1
Left = 360
Top = 2520
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":0624
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView TreeView1
DragIcon = "FrmMain.frx":093E
Height = 4395
Left = 240
TabIndex = 0
Top = 120
Width = 6405
_ExtentX = 11298
_ExtentY = 7752
_Version = 393217
LineStyle = 1
Style = 7
ImageList = "ImageList1"
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Menu 文件
Caption = "文件(&F)"
Begin VB.Menu 保存
Caption = "保存(&S)"
Shortcut = ^S
End
Begin VB.Menu dy
Caption = "-"
End
Begin VB.Menu 打印
Caption = "打印(&P)"
Shortcut = ^P
End
Begin VB.Menu tc
Caption = "-"
End
Begin VB.Menu 退出
Caption = "退出(&X)"
End
End
Begin VB.Menu 编辑
Caption = "编辑(&E)"
Begin VB.Menu 添加
Caption = "添加(&A)"
Shortcut = {F2}
End
Begin VB.Menu 删除
Caption = "删除(&K)"
Shortcut = {DEL}
End
Begin VB.Menu cz
Caption = "-"
End
Begin VB.Menu 查找
Caption = "查找标识(&F)"
Shortcut = ^F
End
Begin VB.Menu 清除标识
Caption = "清除标识(&Q)"
End
End
Begin VB.Menu 查看
Caption = "查看(&V)"
Begin VB.Menu 展开
Caption = "展开(&E)"
Shortcut = {F3}
End
Begin VB.Menu 收拢
Caption = "收拢(&C)"
Shortcut = {F4}
End
Begin VB.Menu zk
Caption = "-"
End
Begin VB.Menu 刷新
Caption = "刷新(&R)"
Shortcut = {F5}
End
Begin VB.Menu xy1
Caption = "-"
End
Begin VB.Menu 信息
Caption = "详细信息(&I)"
Shortcut = {F6}
End
End
Begin VB.Menu 工具
Caption = "工具(&T)"
Begin VB.Menu 清理冗余文件
Caption = "清理冗余文件(&C)"
Shortcut = {F7}
End
Begin VB.Menu xx
Caption = "-"
End
Begin VB.Menu 选项
Caption = "选项(&O)"
Begin VB.Menu 节点删除
Caption = "节点删除(&K)"
Checked = -1 'True
End
Begin VB.Menu 节点拖动
Caption = "节点拖动(&D)"
Checked = -1 'True
End
End
End
Begin VB.Menu 帮助
Caption = "帮助(&H)"
Begin VB.Menu 内容
Caption = "内容(&C)"
Shortcut = {F1}
End
Begin VB.Menu gy
Caption = "-"
End
Begin VB.Menu 关于
Caption = "关于(&A)"
End
End
Begin VB.Menu MyPop
Caption = "MyPop"
Visible = 0 'False
Begin VB.Menu 添加P
Caption = "添加(&F2)"
End
Begin VB.Menu 保存P
Caption = "保存(&Ctrl+S)"
End
Begin VB.Menu scp
Caption = "-"
End
Begin VB.Menu 删除P
Caption = "删除(&Del)"
End
Begin VB.Menu czp
Caption = "-"
End
Begin VB.Menu 查找P
Caption = "查找(&Ctrl+F)"
End
Begin VB.Menu 清除红标记
Caption = "清除红标记(&Q)"
End
Begin VB.Menu xxp
Caption = "-"
End
Begin VB.Menu 信息P
Caption = "详细信息(&F6)"
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
'*************************************************************************
'程序名称:家谱
'软件功能:对家谱进行XML数据存储,编辑,查找等管理
'修改日期:2007年3月25日
'软件作者:汪鑫
'联系邮箱:wqi127@163.com
'*************************************************************************
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParan As Any) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()
Private Declare Function htmlhelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Const SW_SHOW = 5
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Dim mbIndrag As Boolean '逻辑型_可否拖动
Dim moDragNode As Node '树节点_拖动的节点
Dim sQTXmlFileName As String '字符型_嵌套XML文件名
Dim sBPXmlFileName As String '字符型_扁平XML文件名
Dim Key As String '字符型_当前节点的Key
Dim Pkey As String '字符型_当前节点父节点的Key
Dim iJD As Integer '数值型_几代
Dim sFullPath As String '字符型_全路径
Dim CD As Integer '数值型_长度
Dim k As Integer '数值型_循环变量
Dim ZRS As Integer '数值型_总人数
Dim sFindName As String '字符型_查找姓名
Dim bSaveYN As Boolean '逻辑型_保存,是+否
Dim DqpWData As Boolean '逻辑型_当前盘写数据
Dim DrvType As Long '长整型_盘类型
Private Sub Command1_Click()
清除标识_Click
Picture2.Visible = False
End Sub
Private Sub Form_GotFocus()
Unload FrmAbout
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -