form1.vb

Visual Basic.NET控件时尚编程百例

        Me.txtAddress.Size = New System.Drawing.Size(168, 21)
        Me.txtAddress.TabIndex = 47
        Me.txtAddress.Text = ""
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label11, Me.ListBox1, Me.Label3, Me.txtQuantity})
        Me.GroupBox2.Location = New System.Drawing.Point(280, 160)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(192, 200)
        Me.GroupBox2.TabIndex = 51
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "产品信息"
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(16, 24)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(80, 21)
        Me.Label11.TabIndex = 48
        Me.Label11.Text = "产品编码"
        Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'ListBox1
        '
        Me.ListBox1.ItemHeight = 12
        Me.ListBox1.Items.AddRange(New Object() {"10", "12", "18"})
        Me.ListBox1.Location = New System.Drawing.Point(16, 48)
        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.Size = New System.Drawing.Size(160, 100)
        Me.ListBox1.TabIndex = 50
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(16, 168)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(56, 21)
        Me.Label3.TabIndex = 36
        Me.Label3.Text = "数量:"
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'txtQuantity
        '
        Me.txtQuantity.Location = New System.Drawing.Point(72, 168)
        Me.txtQuantity.Name = "txtQuantity"
        Me.txtQuantity.Size = New System.Drawing.Size(104, 21)
        Me.txtQuantity.TabIndex = 42
        Me.txtQuantity.Text = "20"
        '
        'ComboBox1
        '
        Me.ComboBox1.Items.AddRange(New Object() {"SpeedyExpress ", "UnitedPackage", "FederalShipping "})
        Me.ComboBox1.Location = New System.Drawing.Point(104, 96)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(240, 20)
        Me.ComboBox1.TabIndex = 45
        '
        'txtEmail
        '
        Me.txtEmail.Location = New System.Drawing.Point(104, 128)
        Me.txtEmail.Name = "txtEmail"
        Me.txtEmail.Size = New System.Drawing.Size(352, 21)
        Me.txtEmail.TabIndex = 40
        Me.txtEmail.Text = ""
        '
        'txtCompanyName
        '
        Me.txtCompanyName.Location = New System.Drawing.Point(104, 60)
        Me.txtCompanyName.Name = "txtCompanyName"
        Me.txtCompanyName.Size = New System.Drawing.Size(352, 21)
        Me.txtCompanyName.TabIndex = 43
        Me.txtCompanyName.Text = ""
        '
        'txtCustomerNo
        '
        Me.txtCustomerNo.Location = New System.Drawing.Point(104, 24)
        Me.txtCustomerNo.Name = "txtCustomerNo"
        Me.txtCustomerNo.Size = New System.Drawing.Size(235, 21)
        Me.txtCustomerNo.TabIndex = 37
        Me.txtCustomerNo.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(16, 128)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(80, 21)
        Me.Label9.TabIndex = 31
        Me.Label9.Text = "E-mail:"
        Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(16, 96)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(80, 21)
        Me.Label4.TabIndex = 35
        Me.Label4.Text = "送货方式:"
        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(16, 60)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(80, 21)
        Me.Label2.TabIndex = 34
        Me.Label2.Text = "公司名称:"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(16, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(80, 21)
        Me.Label1.TabIndex = 33
        Me.Label1.Text = "客户编号:"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'LinkLabel1
        '
        Me.LinkLabel1.Location = New System.Drawing.Point(328, 392)
        Me.LinkLabel1.Name = "LinkLabel1"
        Me.LinkLabel1.Size = New System.Drawing.Size(80, 24)
        Me.LinkLabel1.TabIndex = 2
        Me.LinkLabel1.TabStop = True
        Me.LinkLabel1.Text = "订单细节"
        Me.LinkLabel1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(504, 429)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.LinkLabel1, Me.GroupBox1, Me.btnToFile})
        Me.Name = "Form1"
        Me.Text = "虚拟发送订单测试"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim sFile As String

    Private Sub btnToFile_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnToFile.Click

        With Me.SaveFileDialog
            .Title = ""
            .Filter = "XML文档(*.xml)|*.xml"
            .ShowDialog()
            sFile = .FileName
        End With
        If sFile.Trim <> "" Then
            Dim Order As New OrderGenerator.OrderGenerator()
            Order = CreateOrder()
            Order.Save(sFile)
            MsgBox("订单已经创建，保存在：" & sFile, _
            MsgBoxStyle.OKOnly, "订单填写成功")
        Else
            MsgBox("文件名不能为空。")
            Return
        End If
    End Sub

    Public Function CreateOrder() As OrderGenerator.OrderGenerator
        Dim Order As New OrderGenerator.OrderGenerator()
        Dim i As Integer
        Dim amount As Integer
        Dim str As Integer
        Order.CustomerID = Trim(Me.txtCustomerNo.Text)
        Select Case Me.ComboBox1.SelectedIndex
            Case 0
                Order.PreferShopMethod = Order.ShopMethod.SpeedyExpress
            Case 1
                Order.PreferShopMethod = Order.ShopMethod.UnitedPackage
            Case 2
                Order.PreferShopMethod = Order.ShopMethod.FederalShipping
        End Select
        Order.ReponseEmail = Trim(Me.txtEmail.Text)

        Order.ShopAddress.Name = Trim(Me.txtCompanyName.Text)
        Order.ShopAddress.City = Trim(Me.txtCity.Text)
        Order.ShopAddress.Country = Trim(Me.txtCountry.Text)
        Order.ShopAddress.Region = Trim(Me.txtRegion.Text)
        Order.ShopAddress.Address = Trim(Me.txtAddress.Text)
        Order.ShopAddress.PostalCode = Trim(Me.txtPostalCode.Text)
        For i = 0 To Me.ListBox1.Items.Count - 1
            str = CInt(Me.ListBox1.Items.Item(i).ToString.Trim)
            amount = CInt(Me.txtQuantity.Text)
            Order.Details.Add(str, amount)
        Next
        Return Order
    End Function

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
    Handles LinkLabel1.LinkClicked
        Me.LinkLabel1.LinkBehavior = LinkBehavior.SystemDefault
        If sFile <> "" Then
            System.Diagnostics.Process.Start(sFile)
        Else
            Return
        End If
    End Sub
End Class