mainform.vb

来自「讲解visual studio的应用」· VB 代码 · 共 22 行

Public Class MainForm

    Private Sub btnLoadCustomers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoadCustomers.Click
        Dim c As New Customer
        c.FirstName = "Fred"
        c.LastName = "Bloggs"

        Dim o As New Order
        o.Description = "Milk"
        o.Quantity = 5
        c.Orders.Add(o)

        o = New Order
        o.Description = "Eggs"
        o.Quantity = 12
        c.Orders.Add(o)


        Debugger.Break()
    End Sub
End Class