⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmclients.vb

📁 VBA专业项目进行开发的实例项目的一些源代码
💻 VB
📖 第 1 页 / 共 4 页
字号:
        Me.cmdEdit.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdEdit.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdEdit.Location = New System.Drawing.Point(189, 352)
        Me.cmdEdit.Name = "cmdEdit"
        Me.cmdEdit.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdEdit.Size = New System.Drawing.Size(73, 20)
        Me.cmdEdit.TabIndex = 29
        Me.cmdEdit.Text = "&Edit"
        '
        'cmdAdd
        '
        Me.cmdAdd.BackColor = System.Drawing.SystemColors.Control
        Me.cmdAdd.Cursor = System.Windows.Forms.Cursors.Default
        Me.cmdAdd.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmdAdd.ForeColor = System.Drawing.SystemColors.ControlText
        Me.cmdAdd.Location = New System.Drawing.Point(111, 352)
        Me.cmdAdd.Name = "cmdAdd"
        Me.cmdAdd.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmdAdd.Size = New System.Drawing.Size(73, 20)
        Me.cmdAdd.TabIndex = 28
        Me.cmdAdd.Text = "&Add"
        '
        '_txtFields_13
        '
        Me._txtFields_13.AcceptsReturn = True
        Me._txtFields_13.AutoSize = False
        Me._txtFields_13.BackColor = System.Drawing.SystemColors.Window
        Me._txtFields_13.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_13.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._txtFields_13.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_13, CType(13, Short))
        Me._txtFields_13.Location = New System.Drawing.Point(232, 316)
        Me._txtFields_13.MaxLength = 0
        Me._txtFields_13.Name = "_txtFields_13"
        Me._txtFields_13.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_13.Size = New System.Drawing.Size(225, 19)
        Me._txtFields_13.TabIndex = 27
        Me._txtFields_13.Text = ""
        '
        '_txtFields_12
        '
        Me._txtFields_12.AcceptsReturn = True
        Me._txtFields_12.AutoSize = False
        Me._txtFields_12.BackColor = System.Drawing.SystemColors.Window
        Me._txtFields_12.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._txtFields_12.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_12, CType(12, Short))
        Me._txtFields_12.Location = New System.Drawing.Point(232, 294)
        Me._txtFields_12.MaxLength = 0
        Me._txtFields_12.Name = "_txtFields_12"
        Me._txtFields_12.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_12.Size = New System.Drawing.Size(225, 19)
        Me._txtFields_12.TabIndex = 25
        Me._txtFields_12.Text = ""
        '
        '_txtFields_11
        '
        Me._txtFields_11.AcceptsReturn = True
        Me._txtFields_11.AutoSize = False
        Me._txtFields_11.BackColor = System.Drawing.SystemColors.Window
        Me._txtFields_11.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_11.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._txtFields_11.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_11, CType(11, Short))
        Me._txtFields_11.Location = New System.Drawing.Point(232, 272)
        Me._txtFields_11.MaxLength = 0
        Me._txtFields_11.Name = "_txtFields_11"
        Me._txtFields_11.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_11.Size = New System.Drawing.Size(225, 19)
        Me._txtFields_11.TabIndex = 23
        Me._txtFields_11.Text = ""
        '
        '_txtFields_10
        '
        Me._txtFields_10.AcceptsReturn = True
        Me._txtFields_10.AutoSize = False
        Me._txtFields_10.BackColor = System.Drawing.SystemColors.Window
        Me._txtFields_10.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_10.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._txtFields_10.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_10, CType(10, Short))
        Me._txtFields_10.Location = New System.Drawing.Point(232, 250)
        Me._txtFields_10.MaxLength = 0
        Me._txtFields_10.Name = "_txtFields_10"
        Me._txtFields_10.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_10.Size = New System.Drawing.Size(225, 19)
        Me._txtFields_10.TabIndex = 21
        Me._txtFields_10.Text = ""
        '
        '_txtFields_9
        '
        Me._txtFields_9.AcceptsReturn = True
        Me._txtFields_9.AutoSize = False
        Me._txtFields_9.BackColor = System.Drawing.SystemColors.Window
        Me._txtFields_9.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_9.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._txtFields_9.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_9, CType(9, Short))
        Me._txtFields_9.Location = New System.Drawing.Point(232, 228)
        Me._txtFields_9.MaxLength = 0
        Me._txtFields_9.Name = "_txtFields_9"
        Me._txtFields_9.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_9.Size = New System.Drawing.Size(225, 19)
        Me._txtFields_9.TabIndex = 19
        Me._txtFields_9.Text = ""
        '
        '_txtFields_8
        '
        Me._txtFields_8.AcceptsReturn = True
        Me._txtFields_8.AutoSize = False
        Me._txtFields_8.BackColor = System.Drawing.SystemColors.Window
        Me._txtFields_8.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_8.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._txtFields_8.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_8, CType(8, Short))
        Me._txtFields_8.Location = New System.Drawing.Point(232, 206)
        Me._txtFields_8.MaxLength = 0
        Me._txtFields_8.Name = "_txtFields_8"
        Me._txtFields_8.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_8.Size = New System.Drawing.Size(225, 19)
        Me._txtFields_8.TabIndex = 17
        Me._txtFields_8.Text = ""
        '
        '_txtFields_7
        '
        Me._txtFields_7.AcceptsReturn = True
        Me._txtFields_7.AutoSize = False
        Me._txtFields_7.BackColor = System.Drawing.SystemColors.Window
        Me._txtFields_7.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._txtFields_7.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_7, CType(7, Short))
        Me._txtFields_7.Location = New System.Drawing.Point(232, 184)
        Me._txtFields_7.MaxLength = 0
        Me._txtFields_7.Name = "_txtFields_7"
        Me._txtFields_7.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_7.Size = New System.Drawing.Size(225, 19)
        Me._txtFields_7.TabIndex = 15
        Me._txtFields_7.Text = ""
        '
        '_txtFields_6
        '
        Me._txtFields_6.AcceptsReturn = True
        Me._txtFields_6.AutoSize = False
        Me._txtFields_6.BackColor = System.Drawing.SystemColors.Window
        Me._txtFields_6.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._txtFields_6.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_6, CType(6, Short))
        Me._txtFields_6.Location = New System.Drawing.Point(232, 162)
        Me._txtFields_6.MaxLength = 0
        Me._txtFields_6.Name = "_txtFields_6"
        Me._txtFields_6.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_6.Size = New System.Drawing.Size(225, 19)
        Me._txtFields_6.TabIndex = 13
        Me._txtFields_6.Text = ""
        '
        '_txtFields_5
        '
        Me._txtFields_5.AcceptsReturn = True
        Me._txtFields_5.AutoSize = False
        Me._txtFields_5.BackColor = System.Drawing.SystemColors.Window
        Me._txtFields_5.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_5.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._txtFields_5.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_5, CType(5, Short))
        Me._txtFields_5.Location = New System.Drawing.Point(232, 140)
        Me._txtFields_5.MaxLength = 0
        Me._txtFields_5.Name = "_txtFields_5"
        Me._txtFields_5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_5.Size = New System.Drawing.Size(225, 19)
        Me._txtFields_5.TabIndex = 11
        Me._txtFields_5.Text = ""
        '
        '_txtFields_4
        '
        Me._txtFields_4.AcceptsReturn = True
        Me._txtFields_4.AutoSize = False
        Me._txtFields_4.BackColor = System.Drawing.SystemColors.Window
        Me._txtFields_4.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._txtFields_4.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_4, CType(4, Short))
        Me._txtFields_4.Location = New System.Drawing.Point(232, 118)
        Me._txtFields_4.MaxLength = 0
        Me._txtFields_4.Name = "_txtFields_4"
        Me._txtFields_4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_4.Size = New System.Drawing.Size(225, 19)
        Me._txtFields_4.TabIndex = 9
        Me._txtFields_4.Text = ""
        '
        '_txtFields_3
        '
        Me._txtFields_3.AcceptsReturn = True
        Me._txtFields_3.AutoSize = False
        Me._txtFields_3.BackColor = System.Drawing.SystemColors.Window
        Me._txtFields_3.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._txtFields_3.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_3, CType(3, Short))
        Me._txtFields_3.Location = New System.Drawing.Point(232, 96)
        Me._txtFields_3.MaxLength = 0
        Me._txtFields_3.Name = "_txtFields_3"
        Me._txtFields_3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_3.Size = New System.Drawing.Size(225, 19)
        Me._txtFields_3.TabIndex = 7
        Me._txtFields_3.Text = ""
        '
        '_txtFields_2
        '
        Me._txtFields_2.AcceptsReturn = True
        Me._txtFields_2.AutoSize = False
        Me._txtFields_2.BackColor = System.Drawing.SystemColors.Window
        Me._txtFields_2.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._txtFields_2.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_2, CType(2, Short))
        Me._txtFields_2.Location = New System.Drawing.Point(232, 74)
        Me._txtFields_2.MaxLength = 0
        Me._txtFields_2.Name = "_txtFields_2"
        Me._txtFields_2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_2.Size = New System.Drawing.Size(225, 19)
        Me._txtFields_2.TabIndex = 5
        Me._txtFields_2.Text = ""
        '
        '_txtFields_1
        '
        Me._txtFields_1.AcceptsReturn = True
        Me._txtFields_1.AutoSize = False
        Me._txtFields_1.BackColor = System.Drawing.SystemColors.Window
        Me._txtFields_1.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._txtFields_1.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_1, CType(1, Short))
        Me._txtFields_1.Location = New System.Drawing.Point(232, 52)
        Me._txtFields_1.MaxLength = 0
        Me._txtFields_1.Name = "_txtFields_1"
        Me._txtFields_1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_1.Size = New System.Drawing.Size(225, 19)
        Me._txtFields_1.TabIndex = 3
        Me._txtFields_1.Text = ""
        '
        '_txtFields_0
        '
        Me._txtFields_0.AcceptsReturn = True
        Me._txtFields_0.AutoSize = False
        Me._txtFields_0.BackColor = System.Drawing.SystemColors.Window
        Me._txtFields_0.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_0.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me._txtFields_0.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_0, CType(0, Short))
        Me._txtFields_0.Location = New System.Drawing.Point(232, 30)
        Me._txtFields_0.MaxLength = 0
        Me._txtFields_0.Name = "_txtFields_0"
        Me._txtFields_0.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_0.Size = New System.Drawing.Size(225, 19)
        Me._txtFields_0.TabIndex = 1
        Me._txtFields_0.Text = ""

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -