我嘗試編輯我的文本，直到它可以供其他人比較。許多任務還沒有導致可識別。首先，我的作業仍然不超過兩個班級。我使用的主要語言不是英語。第一類，Form1 持有：
Class Form1
Sub New()
InitializeComponent()
End Sub
End Class
類二，可以命名為類 Form1 以外的類，名為 Second_Class 持有：
Class Second_Class
'Dim MainForm As New Form1 'object
WithEvents Button1 As New Button
Public Sub New()
Development()
End Sub
Sub Development()
Button1 = New Button With {
.Size = New Size(40, 40),
.Location = New Point(30, 30),
.Text = "Click me"
}
Form1.Controls.Add(Button1)
End Sub
End Class
不用除錯器直接按啟動鍵，解決辦法也可以用ctrl F5鍵，一個表單啟動。但是表單開始時沒有按鈕。
uj5u.com熱心網友回復：
在地球的這一部分還有很多作業要做。我住在下奧地利州的巴登，并使用可視化基本點網 VB.NET 搜索了很多簡單的步驟。避免側邊欄以通過我的代碼保持可讀性的一種方法是向我的表單專案添加一個新類。我將其命名為 'SecondProjectClass' 。然后我在代碼視窗中將名稱更改為“Form1”并放在公共類名稱“Partial”的前面。
Partial Public Class Form1 'second file with filename SecondProjectClass
End Class
Form1 類檔案包含：
Public Class Form1
WithEvents ButtonOne As New Button
Public Sub New()
InitializeComponent()
Development(ButtonOne)
Me.Controls.Add(ButtonOne)
End Sub
End Class
名為 SecondProjectClass 的第二個檔案包含：
Partial Public Class Form1
Sub Development(ButtonOne As Button)
With ButtonOne
.Size = New Size(40, 40)
.Location = New Point(30, 30)
.Text = "Click me"
End With
End Sub
End Class
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/393728.html