以 with 修改 Form Object 上既 Property
Form1.vb 部分 |
Private Sub ObjInit() Dim NewObj As New BBB Dim B As New Label With { _ .Name = "LabelB", _ .Text = NewObj.B, _ .Location = New Point(100, 100) _ } Me.Controls.Add(B) Dim D As New Label With { _ .Name = "LabelD", _ .Text = NewObj.D, _ .Location = New Point(100, 200) _ } Me.Controls.Add(D) End Sub |