startapplication.vb

这是一个VBA开发的项目实例

        Me.lblAddress_Line1.Text = "Address Line 1:"
        '
        'lblAddress_Line2
        '
        Me.lblAddress_Line2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblAddress_Line2.Location = New System.Drawing.Point(16, 188)
        Me.lblAddress_Line2.Name = "lblAddress_Line2"
        Me.lblAddress_Line2.TabIndex = 33
        Me.lblAddress_Line2.Text = "Address Line 2:"
        '
        'lblCellPhoneNumber
        '
        Me.lblCellPhoneNumber.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblCellPhoneNumber.Location = New System.Drawing.Point(271, 188)
        Me.lblCellPhoneNumber.Name = "lblCellPhoneNumber"
        Me.lblCellPhoneNumber.Size = New System.Drawing.Size(120, 23)
        Me.lblCellPhoneNumber.TabIndex = 34
        Me.lblCellPhoneNumber.Text = "Cell Phone Number:"
        '
        'lblCity
        '
        Me.lblCity.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblCity.Location = New System.Drawing.Point(16, 220)
        Me.lblCity.Name = "lblCity"
        Me.lblCity.TabIndex = 35
        Me.lblCity.Text = "City:"
        '
        'lblClient_Name
        '
        Me.lblClient_Name.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblClient_Name.Location = New System.Drawing.Point(16, 92)
        Me.lblClient_Name.Name = "lblClient_Name"
        Me.lblClient_Name.TabIndex = 36
        Me.lblClient_Name.Text = "Your Name:"
        '
        'editAddress_Line1
        '
        Me.editAddress_Line1.BackColor = System.Drawing.Color.LightCyan
        Me.editAddress_Line1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editAddress_Line1.Location = New System.Drawing.Point(122, 156)
        Me.editAddress_Line1.Name = "editAddress_Line1"
        Me.editAddress_Line1.Size = New System.Drawing.Size(136, 21)
        Me.editAddress_Line1.TabIndex = 4
        Me.editAddress_Line1.Text = ""
        '
        'editAddress_Line2
        '
        Me.editAddress_Line2.BackColor = System.Drawing.Color.LightCyan
        Me.editAddress_Line2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editAddress_Line2.Location = New System.Drawing.Point(122, 188)
        Me.editAddress_Line2.Name = "editAddress_Line2"
        Me.editAddress_Line2.Size = New System.Drawing.Size(136, 21)
        Me.editAddress_Line2.TabIndex = 5
        Me.editAddress_Line2.Text = ""
        '
        'editCellPhoneNumber
        '
        Me.editCellPhoneNumber.BackColor = System.Drawing.Color.LightCyan
        Me.editCellPhoneNumber.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editCellPhoneNumber.Location = New System.Drawing.Point(391, 188)
        Me.editCellPhoneNumber.Name = "editCellPhoneNumber"
        Me.editCellPhoneNumber.Size = New System.Drawing.Size(135, 21)
        Me.editCellPhoneNumber.TabIndex = 11
        Me.editCellPhoneNumber.Text = ""
        '
        'editCity
        '
        Me.editCity.BackColor = System.Drawing.Color.LightCyan
        Me.editCity.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editCity.Location = New System.Drawing.Point(122, 220)
        Me.editCity.Name = "editCity"
        Me.editCity.Size = New System.Drawing.Size(136, 21)
        Me.editCity.TabIndex = 6
        Me.editCity.Text = ""
        '
        'editName
        '
        Me.editName.BackColor = System.Drawing.Color.LightCyan
        Me.editName.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editName.Location = New System.Drawing.Point(122, 92)
        Me.editName.Name = "editName"
        Me.editName.Size = New System.Drawing.Size(135, 21)
        Me.editName.TabIndex = 2
        Me.editName.Text = ""
        '
        'lblEmailAddress
        '
        Me.lblEmailAddress.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblEmailAddress.Location = New System.Drawing.Point(271, 124)
        Me.lblEmailAddress.Name = "lblEmailAddress"
        Me.lblEmailAddress.TabIndex = 44
        Me.lblEmailAddress.Text = "Email Address:"
        '
        'lblFax
        '
        Me.lblFax.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblFax.Location = New System.Drawing.Point(271, 220)
        Me.lblFax.Name = "lblFax"
        Me.lblFax.TabIndex = 45
        Me.lblFax.Text = "Fax:"
        '
        'lblPhoneNumber
        '
        Me.lblPhoneNumber.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblPhoneNumber.Location = New System.Drawing.Point(271, 156)
        Me.lblPhoneNumber.Name = "lblPhoneNumber"
        Me.lblPhoneNumber.TabIndex = 46
        Me.lblPhoneNumber.Text = "Phone Number:"
        '
        'lblRemarks
        '
        Me.lblRemarks.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblRemarks.Location = New System.Drawing.Point(271, 252)
        Me.lblRemarks.Name = "lblRemarks"
        Me.lblRemarks.TabIndex = 47
        Me.lblRemarks.Text = "Company Name:"
        '
        'lblState
        '
        Me.lblState.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblState.Location = New System.Drawing.Point(16, 252)
        Me.lblState.Name = "lblState"
        Me.lblState.TabIndex = 48
        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(18, 124)
        Me.lblTitle.Name = "lblTitle"
        Me.lblTitle.TabIndex = 49
        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, 92)
        Me.lblZipCode.Name = "lblZipCode"
        Me.lblZipCode.TabIndex = 50
        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(391, 124)
        Me.editEmailAddress.Name = "editEmailAddress"
        Me.editEmailAddress.Size = New System.Drawing.Size(135, 21)
        Me.editEmailAddress.TabIndex = 9
        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(391, 220)
        Me.editFax.Name = "editFax"
        Me.editFax.Size = New System.Drawing.Size(135, 21)
        Me.editFax.TabIndex = 12
        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(391, 156)
        Me.editPhoneNumber.Name = "editPhoneNumber"
        Me.editPhoneNumber.Size = New System.Drawing.Size(135, 21)
        Me.editPhoneNumber.TabIndex = 10
        Me.editPhoneNumber.Text = ""
        '
        'editCompany
        '
        Me.editCompany.BackColor = System.Drawing.Color.LightCyan
        Me.editCompany.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editCompany.Location = New System.Drawing.Point(391, 252)
        Me.editCompany.Name = "editCompany"
        Me.editCompany.Size = New System.Drawing.Size(135, 21)
        Me.editCompany.TabIndex = 13
        Me.editCompany.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(122, 252)
        Me.editState.Name = "editState"
        Me.editState.Size = New System.Drawing.Size(136, 21)
        Me.editState.TabIndex = 7
        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(121, 124)
        Me.editTitle.Name = "editTitle"
        Me.editTitle.Size = New System.Drawing.Size(136, 21)
        Me.editTitle.TabIndex = 3
        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(391, 92)
        Me.editZipCode.Name = "editZipCode"
        Me.editZipCode.Size = New System.Drawing.Size(135, 21)
        Me.editZipCode.TabIndex = 8
        Me.editZipCode.Text = ""
        '
        'TabPage3
        '
        Me.TabPage3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel2})
        Me.TabPage3.Location = New System.Drawing.Point(4, 23)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Size = New System.Drawing.Size(536, 390)
        Me.TabPage3.TabIndex = 2
        Me.TabPage3.Text = "Help"
        '
        'Panel2
        '
        Me.Panel2.BackColor = System.Drawing.Color.PowderBlue
        Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.AxWebBrowser1})
        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
        '
        'AxWebBrowser1
        '
        Me.AxWebBrowser1.ContainingControl = Me
        Me.AxWebBrowser1.Enabled = True
        Me.AxWebBrowser1.Location = New System.Drawing.Point(8, 8)
        Me.AxWebBrowser1.OcxState = CType(resources.GetObject("AxWebBrowser1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxWebBrowser1.Size = New System.Drawing.Size(520, 376)
        Me.AxWebBrowser1.TabIndex = 15
        '
        'StartApplication
        '
        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.TabStart})
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.Name = "StartApplication"
        Me.Text = "StartApplication"
        Me.TabStart.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)