哪位大哥教给我VB最大化FORM按比例扩大TEXT等的方法

来源:百度知道 编辑:UC知道 时间:2024/06/07 16:04:23
VB中有:

form1
text1
text2
label1

现在将form1最大化时,希望TEXT1和text2和label用计算的方法按比例扩大,以适合我希望的要求,代码怎么写才能实现这些效果?

窗体的resize事件中写代码
在窗体加载的时候就算好比例值

定义全局变量w 跟 h 就是高和宽的比值

w=text1.width / form1.width
h=text1.height / form1.height

在窗体的resize事件中代码
Private Sub Form_Resize()
text1.width=form1.width * w
text1.height=form1.hight * h
End Sub

text2的做法一样 自己研究下‘‘

其实只要在form_resize事件中使用move方法就可以了..

按比例规划你的控件.让它们保持一致..

试试我的代码:

Private Sub Form_Load()
Label1 = "这是一个测试文本:"
Label1.AutoSize = True
Text2.Text = "我也会保持在这个位置的!"
End Sub

Private Sub Form_Resize()
Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - 300
Label1.Move 0, Me.ScaleHeight - 220
Text2.Move Label1.Width + 50, Me.ScaleHeight - 280, Me.ScaleWidth - Label1.Width - 50, 280
End Sub