clientinfo.vb

VBA专业项目进行开发的实例项目的一些源代码

        '
        'Label15
        '
        Me.Label15.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label15.Location = New System.Drawing.Point(7, 216)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(222, 16)
        Me.Label15.TabIndex = 76
        Me.Label15.Text = "Past Experience with Our Products:"
        '
        'txtPastExp
        '
        Me.txtPastExp.BackColor = System.Drawing.Color.LightCyan
        Me.txtPastExp.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtPastExp.Location = New System.Drawing.Point(7, 237)
        Me.txtPastExp.Multiline = True
        Me.txtPastExp.Name = "txtPastExp"
        Me.txtPastExp.Size = New System.Drawing.Size(520, 56)
        Me.txtPastExp.TabIndex = 39
        Me.txtPastExp.Text = ""
        '
        'cmbAnnualTurnOver
        '
        Me.cmbAnnualTurnOver.BackColor = System.Drawing.Color.LightCyan
        Me.cmbAnnualTurnOver.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbAnnualTurnOver.Items.AddRange(New Object() {"1000000", "2000000", "3000000", "7000000", "8000000", "10000000", "40000000", "60000000"})
        Me.cmbAnnualTurnOver.Location = New System.Drawing.Point(154, 176)
        Me.cmbAnnualTurnOver.Name = "cmbAnnualTurnOver"
        Me.cmbAnnualTurnOver.Size = New System.Drawing.Size(135, 21)
        Me.cmbAnnualTurnOver.TabIndex = 38
        Me.cmbAnnualTurnOver.Text = "0"
        '
        'Label14
        '
        Me.Label14.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label14.Location = New System.Drawing.Point(7, 178)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(145, 16)
        Me.Label14.TabIndex = 74
        Me.Label14.Text = "Annual Turnover (in $):"
        '
        'GroupBox7
        '
        Me.GroupBox7.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmbGlueSticCurrPro, Me.Label20, Me.cmbGlueSticOrderValue, Me.Label21, Me.cmbGlueSticOrdFreq, Me.Label22, Me.chkbGlueStic})
        Me.GroupBox7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox7.Location = New System.Drawing.Point(7, 89)
        Me.GroupBox7.Name = "GroupBox7"
        Me.GroupBox7.Size = New System.Drawing.Size(520, 80)
        Me.GroupBox7.TabIndex = 55
        Me.GroupBox7.TabStop = False
        Me.GroupBox7.Text = "Glue Stic"
        '
        'cmbGlueSticCurrPro
        '
        Me.cmbGlueSticCurrPro.BackColor = System.Drawing.Color.LightCyan
        Me.cmbGlueSticCurrPro.Enabled = False
        Me.cmbGlueSticCurrPro.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbGlueSticCurrPro.Items.AddRange(New Object() {"Perfect Stationery Inc.", "Best Stationary Inc.", "Global Inc.", "CountrySide Markets", "Multistore", "Mountain Marketing", "Top Stationary"})
        Me.cmbGlueSticCurrPro.Location = New System.Drawing.Point(344, 45)
        Me.cmbGlueSticCurrPro.Name = "cmbGlueSticCurrPro"
        Me.cmbGlueSticCurrPro.Size = New System.Drawing.Size(168, 21)
        Me.cmbGlueSticCurrPro.TabIndex = 37
        '
        'Label20
        '
        Me.Label20.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label20.Location = New System.Drawing.Point(240, 45)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(104, 16)
        Me.Label20.TabIndex = 77
        Me.Label20.Text = "Current Provider:"
        '
        'cmbGlueSticOrderValue
        '
        Me.cmbGlueSticOrderValue.BackColor = System.Drawing.Color.LightCyan
        Me.cmbGlueSticOrderValue.Enabled = False
        Me.cmbGlueSticOrderValue.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbGlueSticOrderValue.Items.AddRange(New Object() {"2000", "3000", "4000", "5000", "6000", "10000"})
        Me.cmbGlueSticOrderValue.Location = New System.Drawing.Point(344, 21)
        Me.cmbGlueSticOrderValue.Name = "cmbGlueSticOrderValue"
        Me.cmbGlueSticOrderValue.Size = New System.Drawing.Size(168, 21)
        Me.cmbGlueSticOrderValue.TabIndex = 35
        Me.cmbGlueSticOrderValue.Text = "0"
        '
        'Label21
        '
        Me.Label21.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label21.Location = New System.Drawing.Point(191, 21)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(157, 16)
        Me.Label21.TabIndex = 75
        Me.Label21.Text = "Annual Order Value (in $):"
        '
        'cmbGlueSticOrdFreq
        '
        Me.cmbGlueSticOrdFreq.BackColor = System.Drawing.Color.LightCyan
        Me.cmbGlueSticOrdFreq.Enabled = False
        Me.cmbGlueSticOrdFreq.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbGlueSticOrdFreq.Items.AddRange(New Object() {"Weekly", "Fortnightly", "Monthly", "Quarterly", "Yearly"})
        Me.cmbGlueSticOrdFreq.Location = New System.Drawing.Point(112, 45)
        Me.cmbGlueSticOrdFreq.Name = "cmbGlueSticOrdFreq"
        Me.cmbGlueSticOrdFreq.Size = New System.Drawing.Size(128, 21)
        Me.cmbGlueSticOrdFreq.TabIndex = 36
        '
        'Label22
        '
        Me.Label22.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label22.Location = New System.Drawing.Point(8, 45)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(104, 16)
        Me.Label22.TabIndex = 55
        Me.Label22.Text = "Order Frequency:"
        '
        'chkbGlueStic
        '
        Me.chkbGlueStic.Location = New System.Drawing.Point(8, 21)
        Me.chkbGlueStic.Name = "chkbGlueStic"
        Me.chkbGlueStic.Size = New System.Drawing.Size(160, 16)
        Me.chkbGlueStic.TabIndex = 34
        Me.chkbGlueStic.Text = "Uses Glue Stic"
        '
        'GroupBox8
        '
        Me.GroupBox8.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmbScotchTapeCurrPro, Me.Label23, Me.cmbScotchTapeOrderValue, Me.Label24, Me.cmbScotchTapeOrdFreq, Me.Label25, Me.chkbScotchTape})
        Me.GroupBox8.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox8.Location = New System.Drawing.Point(8, 11)
        Me.GroupBox8.Name = "GroupBox8"
        Me.GroupBox8.Size = New System.Drawing.Size(520, 72)
        Me.GroupBox8.TabIndex = 54
        Me.GroupBox8.TabStop = False
        Me.GroupBox8.Text = "Scotch Tape"
        '
        'cmbScotchTapeCurrPro
        '
        Me.cmbScotchTapeCurrPro.BackColor = System.Drawing.Color.LightCyan
        Me.cmbScotchTapeCurrPro.Enabled = False
        Me.cmbScotchTapeCurrPro.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbScotchTapeCurrPro.Items.AddRange(New Object() {"Perfect Stationery Inc.", "Best Stationary Inc.", "Global Inc.", "CountrySide Markets", "Multistore", "Mountain Marketing", "Top Stationary"})
        Me.cmbScotchTapeCurrPro.Location = New System.Drawing.Point(344, 42)
        Me.cmbScotchTapeCurrPro.Name = "cmbScotchTapeCurrPro"
        Me.cmbScotchTapeCurrPro.Size = New System.Drawing.Size(168, 21)
        Me.cmbScotchTapeCurrPro.TabIndex = 33
        '
        'Label23
        '
        Me.Label23.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label23.Location = New System.Drawing.Point(240, 42)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(104, 16)
        Me.Label23.TabIndex = 77
        Me.Label23.Text = "Current Provider:"
        '
        'cmbScotchTapeOrderValue
        '
        Me.cmbScotchTapeOrderValue.BackColor = System.Drawing.Color.LightCyan
        Me.cmbScotchTapeOrderValue.Enabled = False
        Me.cmbScotchTapeOrderValue.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbScotchTapeOrderValue.Items.AddRange(New Object() {"2000", "3000", "4000", "5000", "6000", "10000"})
        Me.cmbScotchTapeOrderValue.Location = New System.Drawing.Point(344, 18)
        Me.cmbScotchTapeOrderValue.Name = "cmbScotchTapeOrderValue"
        Me.cmbScotchTapeOrderValue.Size = New System.Drawing.Size(168, 21)
        Me.cmbScotchTapeOrderValue.TabIndex = 31
        Me.cmbScotchTapeOrderValue.Text = "0"
        '
        'Label24
        '
        Me.Label24.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label24.Location = New System.Drawing.Point(191, 18)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(157, 16)
        Me.Label24.TabIndex = 75
        Me.Label24.Text = "Annual Order Value (in $):"
        '
        'cmbScotchTapeOrdFreq
        '
        Me.cmbScotchTapeOrdFreq.BackColor = System.Drawing.Color.LightCyan
        Me.cmbScotchTapeOrdFreq.Enabled = False
        Me.cmbScotchTapeOrdFreq.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbScotchTapeOrdFreq.Items.AddRange(New Object() {"Weekly", "Fortnightly", "Monthly", "Quarterly", "Yearly"})
        Me.cmbScotchTapeOrdFreq.Location = New System.Drawing.Point(112, 42)
        Me.cmbScotchTapeOrdFreq.Name = "cmbScotchTapeOrdFreq"
        Me.cmbScotchTapeOrdFreq.Size = New System.Drawing.Size(128, 21)
        Me.cmbScotchTapeOrdFreq.TabIndex = 32
        '
        'Label25
        '
        Me.Label25.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label25.Location = New System.Drawing.Point(8, 42)
        Me.Label25.Name = "Label25"
        Me.Label25.Size = New System.Drawing.Size(104, 16)
        Me.Label25.TabIndex = 55
        Me.Label25.Text = "Order Frequency:"
        '
        'chkbScotchTape
        '
        Me.chkbScotchTape.Location = New System.Drawing.Point(8, 18)
        Me.chkbScotchTape.Name = "chkbScotchTape"
        Me.chkbScotchTape.Size = New System.Drawing.Size(160, 16)
        Me.chkbScotchTape.TabIndex = 30
        Me.chkbScotchTape.Text = "Uses Scotch Paper"
        '
        'ClientInfo
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.Color.PowderBlue
        Me.ClientSize = New System.Drawing.Size(565, 448)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl1})
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.Name = "ClientInfo"
        Me.Text = "ClientInfo"
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.Panel1.ResumeLayout(False)
        Me.TabPage2.ResumeLayout(False)
        Me.Panel2.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.TabPage3.ResumeLayout(False)
        Me.Panel3.ResumeLayout(False)
        Me.GroupBox7.ResumeLayout(False)
        Me.GroupBox8.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim NewMDIParent As New MainMDI()
        'show the main mdi form again to activate it
        NewMDIParent.Show()