第三章 第3答题答案。
Private Sub Command1_Click()
label1.fontsize = label1.fontsize / 2
End Sub
Private Sub Command2_Click()
label1.move label1.left+100,label1.top+100
End Sub
介绍:
设置字体大小,只需要调用标签控件的FontSize 属性
放大设置:label1.FontSize = label1.FontSize * 2
让标签移动,需要调用标签控件的Move 方法
move方法的参数如下
move left,top,width,height
这道题目是相对移动,所以,只需要在以前的left和top基础上
相对的加上一个常数就可以实现了。
当然如果想在移动过程中修改宽度还有高度,可以同上加上
相应的参数如。
label1.move label1.left+100,label1.top+100,label1.width*2,label1.height*2
Private Sub Command1_Click()
label1.fontsize = label1.fontsize / 2
End Sub
Private Sub Command2_Click()
label1.move label1.left+100,label1.top+100
End Sub
介绍:
设置字体大小,只需要调用标签控件的FontSize 属性
放大设置:label1.FontSize = label1.FontSize * 2
让标签移动,需要调用标签控件的Move 方法
move方法的参数如下
move left,top,width,height
这道题目是相对移动,所以,只需要在以前的left和top基础上
相对的加上一个常数就可以实现了。
当然如果想在移动过程中修改宽度还有高度,可以同上加上
相应的参数如。
label1.move label1.left+100,label1.top+100,label1.width*2,label1.height*2