大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在代码中指定MdiParent属性为那个窗体就可以了。
迭部ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为创新互联建站的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:028-86922220(备注:SSL证书合作)期待与您的合作!
Dim
mdiChildForm
As
New
Form
mdiChildForm.MdiParent
=
Me
mdiChildForm.Show()
当用户可以设置或者得到属性的值的时候,这些属性就在改变。有此属性可以在设计的时候改变。用户可以在属性窗口设置这些属性的值,而不需要写任何代码,而有些代码在设计的时候是不能改变的,所以必须在运行的程序中写入一些设置属性的值的代码。
那些可以在运行的时候设置和读取的属性被称作"read-write"属性。而那些只能在运行的时候读取的代码称为"read-only"属性。
1.设置属性值
当需要改变一个对象的外观或者行为时,就可以改变对象的属性值。例如可以通过改变一个textbox控件的Text属性值,来改变Textbox里面的内容。
设置一个属性的值,可以用以下的语法:
object.property=expression
如下一些实例:
TextBox1.Top=200 '让Top属性值为200
TextBox1.Visible=True '显示TextBox
TextBox1.Text="hello" '在TextBox中显示"hello"
2.得到属性的值
当代码要对一个对象进行一些操作时,用户可能需要得到一个对象的状态,例如,在对一个TextBox控件进行下一步操作时,可能需要得知TextBox的text属性的值,等等。
通常情况下,用户可以通过下面这样的语法得到一个对象的属性值:
variable=object.property
用户可以把一个对象的属性值作为一个复杂表达式的一部分,而不需要先把属性值赋给一个变量再进行计算,下面这个例子就是改变一个radio按钮的属性的代码:
Private Sub cmdAdd_Click()
'[statements]
RadioButton1.Top=RadioButton1.top+20
'[statements]
End Sub
注意:如果用户需要多次使用一个属性值的话,那么先把属性值赋给一个变量,将会使效率更快一点。
注意下你给ButtonTop的Image属性赋值的地方,你的属性SET里是针对【上】这个类的改变,你如果这样写是触发不了属性改变的:
ButtonTop.背景 = Image.FromFile("C:/1.png")
正确的处理办法应该是new一个【上】类的对象,初始化时进行赋值就可以了
Me.ButtonTop = New Class1() With {.背景 = Image.FromFile("C:/1.png")}