VB 神童教程:综合示例五

XPk中国设计秀
LblShow.Caption = VsbSize.Value & "%"XPk中国设计秀
End SubXPk中国设计秀

6、调试：XPk中国设计秀
按 F5 键进行调试，发现文本框的尺寸无法调整。这是因为，没有在初始状态XPk中国设计秀
下将原文本框的宽度、高度赋值给变量。XPk中国设计秀

在 Form 的 Load 事件中输入以下代码：XPk中国设计秀

Private Sub Form_Load()XPk中国设计秀
Iwidth = TxtContent.WidthXPk中国设计秀
Iheight = TxtContent.HeightXPk中国设计秀
LblShow.Caption = "100%"XPk中国设计秀
End SubXPk中国设计秀

7、最后结果如图二：XPk中国设计秀
 XPk中国设计秀

XPk中国设计秀
图二XPk中国设计秀

 XPk中国设计秀

 XPk中国设计秀