clientinfo.vb

《VBA专业项目实例开发》源代码,学习vba必备

        Me.lblState.Name = "lblState"
        Me.lblState.Size = New System.Drawing.Size(88, 23)
        Me.lblState.TabIndex = 61
        Me.lblState.Text = "State:"
        '
        'lblTitle
        '
        Me.lblTitle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblTitle.Location = New System.Drawing.Point(8, 150)
        Me.lblTitle.Name = "lblTitle"
        Me.lblTitle.Size = New System.Drawing.Size(88, 23)
        Me.lblTitle.TabIndex = 62
        Me.lblTitle.Text = "Title:"
        '
        'lblZipCode
        '
        Me.lblZipCode.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblZipCode.Location = New System.Drawing.Point(271, 86)
        Me.lblZipCode.Name = "lblZipCode"
        Me.lblZipCode.Size = New System.Drawing.Size(59, 23)
        Me.lblZipCode.TabIndex = 63
        Me.lblZipCode.Text = "Zip Code:"
        '
        'editEmailAddress
        '
        Me.editEmailAddress.BackColor = System.Drawing.Color.LightCyan
        Me.editEmailAddress.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editEmailAddress.Location = New System.Drawing.Point(371, 118)
        Me.editEmailAddress.Name = "editEmailAddress"
        Me.editEmailAddress.Size = New System.Drawing.Size(157, 21)
        Me.editEmailAddress.TabIndex = 8
        Me.editEmailAddress.Text = ""
        '
        'editFax
        '
        Me.editFax.BackColor = System.Drawing.Color.LightCyan
        Me.editFax.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editFax.Location = New System.Drawing.Point(371, 214)
        Me.editFax.Name = "editFax"
        Me.editFax.Size = New System.Drawing.Size(157, 21)
        Me.editFax.TabIndex = 11
        Me.editFax.Text = ""
        '
        'editPhoneNumber
        '
        Me.editPhoneNumber.BackColor = System.Drawing.Color.LightCyan
        Me.editPhoneNumber.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editPhoneNumber.Location = New System.Drawing.Point(371, 150)
        Me.editPhoneNumber.Name = "editPhoneNumber"
        Me.editPhoneNumber.Size = New System.Drawing.Size(157, 21)
        Me.editPhoneNumber.TabIndex = 9
        Me.editPhoneNumber.Text = ""
        '
        'editRemarks
        '
        Me.editRemarks.BackColor = System.Drawing.Color.LightCyan
        Me.editRemarks.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editRemarks.Location = New System.Drawing.Point(371, 246)
        Me.editRemarks.Name = "editRemarks"
        Me.editRemarks.Size = New System.Drawing.Size(157, 21)
        Me.editRemarks.TabIndex = 12
        Me.editRemarks.Text = ""
        '
        'editState
        '
        Me.editState.BackColor = System.Drawing.Color.LightCyan
        Me.editState.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editState.Location = New System.Drawing.Point(106, 278)
        Me.editState.Name = "editState"
        Me.editState.Size = New System.Drawing.Size(158, 21)
        Me.editState.TabIndex = 6
        Me.editState.Text = ""
        '
        'editTitle
        '
        Me.editTitle.BackColor = System.Drawing.Color.LightCyan
        Me.editTitle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editTitle.Location = New System.Drawing.Point(106, 150)
        Me.editTitle.Name = "editTitle"
        Me.editTitle.Size = New System.Drawing.Size(158, 21)
        Me.editTitle.TabIndex = 2
        Me.editTitle.Text = ""
        '
        'editZipCode
        '
        Me.editZipCode.BackColor = System.Drawing.Color.LightCyan
        Me.editZipCode.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editZipCode.Location = New System.Drawing.Point(371, 86)
        Me.editZipCode.Name = "editZipCode"
        Me.editZipCode.Size = New System.Drawing.Size(157, 21)
        Me.editZipCode.TabIndex = 7
        Me.editZipCode.Text = ""
        '
        'TabPage2
        '
        Me.TabPage2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel2})
        Me.TabPage2.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TabPage2.Location = New System.Drawing.Point(4, 23)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Size = New System.Drawing.Size(536, 390)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "Product Usage and Competitors - I"
        '
        'Panel2
        '
        Me.Panel2.BackColor = System.Drawing.Color.PowderBlue
        Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox4, Me.GroupBox3, Me.GroupBox2, Me.GroupBox1})
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(536, 390)
        Me.Panel2.TabIndex = 0
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmbHighLighterCurrPro, Me.Label11, Me.cmbHighLighterOrderValue, Me.Label12, Me.cmbHighLighterOrdFreq, Me.Label13, Me.chkbHighLighter})
        Me.GroupBox4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox4.Location = New System.Drawing.Point(7, 279)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(520, 80)
        Me.GroupBox4.TabIndex = 57
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "HighLighter"
        '
        'cmbHighLighterCurrPro
        '
        Me.cmbHighLighterCurrPro.BackColor = System.Drawing.Color.LightCyan
        Me.cmbHighLighterCurrPro.Enabled = False
        Me.cmbHighLighterCurrPro.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbHighLighterCurrPro.Items.AddRange(New Object() {"Perfect Stationery Inc.", "Best Stationary Inc.", "Global Inc.", "CountrySide Markets", "Multistore", "Mountain Marketing", "Top Stationary"})
        Me.cmbHighLighterCurrPro.Location = New System.Drawing.Point(344, 44)
        Me.cmbHighLighterCurrPro.Name = "cmbHighLighterCurrPro"
        Me.cmbHighLighterCurrPro.Size = New System.Drawing.Size(168, 21)
        Me.cmbHighLighterCurrPro.TabIndex = 29
        '
        'Label11
        '
        Me.Label11.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label11.Location = New System.Drawing.Point(240, 44)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(104, 16)
        Me.Label11.TabIndex = 77
        Me.Label11.Text = "Current Provider:"
        '
        'cmbHighLighterOrderValue
        '
        Me.cmbHighLighterOrderValue.BackColor = System.Drawing.Color.LightCyan
        Me.cmbHighLighterOrderValue.Enabled = False
        Me.cmbHighLighterOrderValue.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbHighLighterOrderValue.Items.AddRange(New Object() {"2000", "3000", "4000", "5000", "6000", "10000"})
        Me.cmbHighLighterOrderValue.Location = New System.Drawing.Point(344, 20)
        Me.cmbHighLighterOrderValue.Name = "cmbHighLighterOrderValue"
        Me.cmbHighLighterOrderValue.Size = New System.Drawing.Size(168, 21)
        Me.cmbHighLighterOrderValue.TabIndex = 27
        Me.cmbHighLighterOrderValue.Text = "0"
        '
        'Label12
        '
        Me.Label12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label12.Location = New System.Drawing.Point(191, 20)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(157, 16)
        Me.Label12.TabIndex = 75
        Me.Label12.Text = "Annual Order Value (in $):"
        '
        'cmbHighLighterOrdFreq
        '
        Me.cmbHighLighterOrdFreq.BackColor = System.Drawing.Color.LightCyan
        Me.cmbHighLighterOrdFreq.Enabled = False
        Me.cmbHighLighterOrdFreq.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbHighLighterOrdFreq.Items.AddRange(New Object() {"Weekly", "Fortnightly", "Monthly", "Quarterly", "Yearly"})
        Me.cmbHighLighterOrdFreq.Location = New System.Drawing.Point(112, 44)
        Me.cmbHighLighterOrdFreq.Name = "cmbHighLighterOrdFreq"
        Me.cmbHighLighterOrdFreq.Size = New System.Drawing.Size(128, 21)
        Me.cmbHighLighterOrdFreq.TabIndex = 28
        '
        'Label13
        '
        Me.Label13.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label13.Location = New System.Drawing.Point(8, 44)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(104, 16)
        Me.Label13.TabIndex = 55
        Me.Label13.Text = "Order Frequency:"
        '
        'chkbHighLighter
        '
        Me.chkbHighLighter.Location = New System.Drawing.Point(8, 20)
        Me.chkbHighLighter.Name = "chkbHighLighter"
        Me.chkbHighLighter.Size = New System.Drawing.Size(160, 16)
        Me.chkbHighLighter.TabIndex = 26
        Me.chkbHighLighter.Text = "Uses HighLighter"
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmbGelInkPenCurrPro, Me.Label8, Me.cmbGelInkPenOrderValue, Me.Label9, Me.cmbGelInkPenOrdFreq, Me.Label10, Me.chkbGelInkPen})
        Me.GroupBox3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox3.Location = New System.Drawing.Point(7, 183)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(520, 84)
        Me.GroupBox3.TabIndex = 56
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Gel Ink Pen"
        '
        'cmbGelInkPenCurrPro
        '
        Me.cmbGelInkPenCurrPro.BackColor = System.Drawing.Color.LightCyan
        Me.cmbGelInkPenCurrPro.Enabled = False
        Me.cmbGelInkPenCurrPro.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbGelInkPenCurrPro.Items.AddRange(New Object() {"Perfect Stationery Inc.", "Best Stationary Inc.", "Global Inc.", "CountrySide Markets", "Multistore", "Mountain Marketing", "Top Stationary"})
        Me.cmbGelInkPenCurrPro.Location = New System.Drawing.Point(344, 45)
        Me.cmbGelInkPenCurrPro.Name = "cmbGelInkPenCurrPro"
        Me.cmbGelInkPenCurrPro.Size = New System.Drawing.Size(168, 21)
        Me.cmbGelInkPenCurrPro.TabIndex = 25
        '
        'Label8
        '
        Me.Label8.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label8.Location = New System.Drawing.Point(240, 45)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(104, 16)
        Me.Label8.TabIndex = 77
        Me.Label8.Text = "Current Provider:"
        '
        'cmbGelInkPenOrderValue
        '
        Me.cmbGelInkPenOrderValue.BackColor = System.Drawing.Color.LightCyan
        Me.cmbGelInkPenOrderValue.Enabled = False
        Me.cmbGelInkPenOrderValue.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbGelInkPenOrderValue.Items.AddRange(New Object() {"2000", "3000", "4000", "5000", "6000", "10000"})
        Me.cmbGelInkPenOrderValue.Location = New System.Drawing.Point(344, 21)
        Me.cmbGelInkPenOrderValue.Name = "cmbGelInkPenOrderValue"
        Me.cmbGelInkPenOrderValue.Size = New System.Drawing.Size(168, 21)
        Me.cmbGelInkPenOrderValue.TabIndex = 23
        Me.cmbGelInkPenOrderValue.Text = "0"
        '