第一步,就是按照 wuyazhe(我的宝贝叫阿刺) 的方法把 相应的代码写上,会发现少了TopLevel 属性,编译不过。
代码如下:写在Button的Click中就可以的
Dim myForm As New Form4
myForm.Text = "My Form"
myForm.SetBounds(10, 10, 200, 200)
Get
Return MyBase.TopLevel
End Get
Set(ByVal Value As Boolean)
MyBase.TopLevel = Value
End Set
End Property
注意:这段代码需要写在[Region " Windows 窗体设计器生成的代码 "]部分
然后编译:通过,
运行:成功了