form1.vb

基于vb.net的简单通信录

        Me.btnAdd.Location = New System.Drawing.Point(56, 400)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.Size = New System.Drawing.Size(64, 24)
        Me.btnAdd.TabIndex = 12
        Me.btnAdd.Text = "添加(&A)"
        '
        'btnAddOk
        '
        Me.btnAddOk.Location = New System.Drawing.Point(216, 376)
        Me.btnAddOk.Name = "btnAddOk"
        Me.btnAddOk.Size = New System.Drawing.Size(64, 24)
        Me.btnAddOk.TabIndex = 13
        Me.btnAddOk.Text = "确定添加(&Q)"
        '
        'btnInsert
        '
        Me.btnInsert.Location = New System.Drawing.Point(168, 368)
        Me.btnInsert.Name = "btnInsert"
        Me.btnInsert.Size = New System.Drawing.Size(64, 24)
        Me.btnInsert.TabIndex = 14
        Me.btnInsert.Text = "插入(&I)"
        '
        'btnFind
        '
        Me.btnFind.Location = New System.Drawing.Point(304, 160)
        Me.btnFind.Name = "btnFind"
        Me.btnFind.Size = New System.Drawing.Size(80, 24)
        Me.btnFind.TabIndex = 17
        Me.btnFind.Text = "搜索...(&F)"
        '
        'txtmovebal
        '
        Me.txtmovebal.Location = New System.Drawing.Point(64, 264)
        Me.txtmovebal.Name = "txtmovebal"
        Me.txtmovebal.Size = New System.Drawing.Size(320, 21)
        Me.txtmovebal.TabIndex = 18
        Me.txtmovebal.Text = "TextBox6"
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(8, 264)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(48, 16)
        Me.Label6.TabIndex = 19
        Me.Label6.Text = "手机"
        '
        'txtEmail
        '
        Me.txtEmail.Location = New System.Drawing.Point(64, 288)
        Me.txtEmail.Name = "txtEmail"
        Me.txtEmail.Size = New System.Drawing.Size(320, 21)
        Me.txtEmail.TabIndex = 20
        Me.txtEmail.Text = "TextBox7"
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(8, 288)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 16)
        Me.Label7.TabIndex = 21
        Me.Label7.Text = "电子邮箱"
        '
        'btnPre
        '
        Me.btnPre.Location = New System.Drawing.Point(8, 368)
        Me.btnPre.Name = "btnPre"
        Me.btnPre.Size = New System.Drawing.Size(80, 24)
        Me.btnPre.TabIndex = 22
        Me.btnPre.Text = "上一条(&P)<<"
        '
        'btnNext
        '
        Me.btnNext.Location = New System.Drawing.Point(136, 368)
        Me.btnNext.Name = "btnNext"
        Me.btnNext.Size = New System.Drawing.Size(80, 24)
        Me.btnNext.TabIndex = 23
        Me.btnNext.Text = "下一条(&N)>>"
        '
        'btnInsertOk
        '
        Me.btnInsertOk.Location = New System.Drawing.Point(272, 368)
        Me.btnInsertOk.Name = "btnInsertOk"
        Me.btnInsertOk.Size = New System.Drawing.Size(80, 24)
        Me.btnInsertOk.TabIndex = 24
        Me.btnInsertOk.Text = "确定插入(&O)"
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFile, Me.mnuPlay, Me.meuHelp})
        '
        'mnuFile
        '
        Me.mnuFile.Index = 0
        Me.mnuFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuSave, Me.MenuItem2, Me.MenuItem1, Me.MenuItem4, Me.mnuPrint, Me.MenuItem3, Me.mnuQuit})
        Me.mnuFile.Text = "文件(&F)"
        '
        'mnuSave
        '
        Me.mnuSave.Index = 0
        Me.mnuSave.Shortcut = System.Windows.Forms.Shortcut.CtrlS
        Me.mnuSave.Text = "保存更改(&S)"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "保存选项(&O)"
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 2
        Me.MenuItem1.Text = "-"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 3
        Me.MenuItem4.Text = "将所有记录转储(&C)"
        '
        'mnuPrint
        '
        Me.mnuPrint.Index = 4
        Me.mnuPrint.Shortcut = System.Windows.Forms.Shortcut.CtrlP
        Me.mnuPrint.Text = "打印当前记录(&P)"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 5
        Me.MenuItem3.Text = "-"
        '
        'mnuQuit
        '
        Me.mnuQuit.Index = 6
        Me.mnuQuit.Shortcut = System.Windows.Forms.Shortcut.CtrlX
        Me.mnuQuit.Text = "退出(&Q)"
        '
        'mnuPlay
        '
        Me.mnuPlay.Index = 1
        Me.mnuPlay.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuLook, Me.mnuLine0, Me.mnuAdd, Me.mnuAddOk, Me.mnuLine9, Me.mnuInsert, Me.mnuInsertOk, Me.mnuLine6, Me.mnuRemove, Me.mnuClear, Me.mnuLine8, Me.mnuXiuGai, Me.mnuZiuGaiOk, Me.mnuLine4, Me.mnuPre, Me.mnuNext})
        Me.mnuPlay.Text = "操作(&P)"
        '
        'mnuLook
        '
        Me.mnuLook.Index = 0
        Me.mnuLook.Shortcut = System.Windows.Forms.Shortcut.CtrlL
        Me.mnuLook.Text = "查看(L)"
        '
        'mnuLine0
        '
        Me.mnuLine0.Index = 1
        Me.mnuLine0.Text = "-"
        '
        'mnuAdd
        '
        Me.mnuAdd.Index = 2
        Me.mnuAdd.Shortcut = System.Windows.Forms.Shortcut.CtrlA
        Me.mnuAdd.Text = "添加(&A)"
        '
        'mnuAddOk
        '
        Me.mnuAddOk.Index = 3
        Me.mnuAddOk.Shortcut = System.Windows.Forms.Shortcut.CtrlO
        Me.mnuAddOk.Text = "确定添加(&O)"
        '
        'mnuLine9
        '
        Me.mnuLine9.Index = 4
        Me.mnuLine9.Text = "-"
        '
        'mnuInsert
        '
        Me.mnuInsert.Index = 5
        Me.mnuInsert.Shortcut = System.Windows.Forms.Shortcut.CtrlI
        Me.mnuInsert.Text = "插入(&I)"
        '
        'mnuInsertOk
        '
        Me.mnuInsertOk.Index = 6
        Me.mnuInsertOk.Shortcut = System.Windows.Forms.Shortcut.CtrlQ
        Me.mnuInsertOk.Text = "确定插入(&Q)"
        '
        'mnuLine6
        '
        Me.mnuLine6.Index = 7
        Me.mnuLine6.Text = "-"
        '
        'mnuRemove
        '
        Me.mnuRemove.Index = 8
        Me.mnuRemove.Shortcut = System.Windows.Forms.Shortcut.CtrlR
        Me.mnuRemove.Text = "删除选中项(&R)"
        '
        'mnuClear
        '
        Me.mnuClear.Index = 9
        Me.mnuClear.Shortcut = System.Windows.Forms.Shortcut.CtrlC
        Me.mnuClear.Text = "全部清除(&C)"
        '
        'mnuLine8
        '
        Me.mnuLine8.Index = 10
        Me.mnuLine8.Text = "-"
        '
        'mnuXiuGai
        '
        Me.mnuXiuGai.Index = 11
        Me.mnuXiuGai.Shortcut = System.Windows.Forms.Shortcut.CtrlI
        Me.mnuXiuGai.Text = "修改(&S)"
        '
        'mnuZiuGaiOk
        '
        Me.mnuZiuGaiOk.Index = 12
        Me.mnuZiuGaiOk.Shortcut = System.Windows.Forms.Shortcut.CtrlV
        Me.mnuZiuGaiOk.Text = "确定修改(&V)"
        '
        'mnuLine4
        '
        Me.mnuLine4.Index = 13
        Me.mnuLine4.Text = "-"
        '
        'mnuPre
        '
        Me.mnuPre.Index = 14
        Me.mnuPre.Shortcut = System.Windows.Forms.Shortcut.CtrlP
        Me.mnuPre.Text = "上一条(&P)"
        '
        'mnuNext
        '
        Me.mnuNext.Index = 15
        Me.mnuNext.Shortcut = System.Windows.Forms.Shortcut.CtrlN
        Me.mnuNext.Text = "下一条(&N)"
        '
        'meuHelp
        '
        Me.meuHelp.Index = 2
        Me.meuHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuHelpFile, Me.MenuItem21, Me.mnuAbout})
        Me.meuHelp.Text = "帮助(&H)"
        '
        'mnuHelpFile
        '
        Me.mnuHelpFile.Index = 0
        Me.mnuHelpFile.Shortcut = System.Windows.Forms.Shortcut.F1
        Me.mnuHelpFile.Text = "帮助文件(&H)"
        '
        'MenuItem21
        '
        Me.MenuItem21.Index = 1
        Me.MenuItem21.Text = "-"
        '
        'mnuAbout
        '
        Me.mnuAbout.Index = 2
        Me.mnuAbout.Shortcut = System.Windows.Forms.Shortcut.F5
        Me.mnuAbout.Text = "关于(&A)"
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tblAdd, Me.tblAddOk, Me.tblLine1, Me.tblInsert, Me.tblInsertOk, Me.tblLine2, Me.tblRepair, Me.btlRepairOk, Me.tblline0, Me.tblRemove, Me.tblClear, Me.tblLine3, Me.tblPre, Me.tblNext, Me.tblLine4, Me.tblSave, Me.tblFind, Me.tblLine5, Me.tblHelp, Me.tblExit})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(386, 28)
        Me.ToolBar1.TabIndex = 26
        '
        'tblAdd
        '
        Me.tblAdd.ImageIndex = 5
        Me.tblAdd.ToolTipText = "添加"
        '
        'tblAddOk
        '
        Me.tblAddOk.ImageIndex = 1
        Me.tblAddOk.ToolTipText = "确定添加"
        '
        'tblLine1
        '
        Me.tblLine1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tblInsert
        '
        Me.tblInsert.ImageIndex = 2
        Me.tblInsert.ToolTipText = "插入"
        '
        'tblInsertOk
        '
        Me.tblInsertOk.ImageIndex = 3
        Me.tblInsertOk.ToolTipText = "确定插入"
        '
        'tblLine2
        '
        Me.tblLine2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tblRepair
        '
        Me.tblRepair.ImageIndex = 9
        Me.tblRepair.ToolTipText = "修改"
        '
        'btlRepairOk
        '
        Me.btlRepairOk.ImageIndex = 3
        Me.btlRepairOk.ToolTipText = "确定修改"
        '
        'tblline0
        '
        Me.tblline0.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tblRemove
        '
        Me.tblRemove.ImageIndex = 12
        Me.tblRemove.ToolTipText = "删除"
        '
        'tblClear
        '
        Me.tblClear.ImageIndex = 0
        Me.tblClear.ToolTipText = "重置"
        '
        'tblLine3
        '
        Me.tblLine3.Style = System.Windows.Forms.ToolBarButtonStyle.Separator