Question

vb高手指点一下。怎么使得窗体最大化之后里面控件布局相对不变，

如图，有按钮 有datagrid。如图 从图一的到图二





Answer 1

按界面的放大比例放大控件尺寸即可。

追问

具体应该怎么写，我刚刚学习的不会'用，麻烦你详细说下，谢谢

追答

不是一二句能够说清楚的。

所有控件都必须按界面的尺寸变化而变化，你的界面控件不少，代码也不少，按比例变化吧！

追问

那比如就两个，一个command1一个datagrid1应该怎么写，麻烦了啊。网上看了好多方法，弄了都不对，还请你帮个忙

追答

Dim MH As Single, MW As Single, MH1 As Single, MW1 As Single

Private Sub Form_Load()
MH = Me.Height
MW = Me.Width
End Sub

Private Sub Form_Resize()
MH1 = Me.Height
MW1 = Me.Width
Text1.Left = Text1.Left * MW1 / MW
Text1.Top = Text1.Top * MH1 / MH
Text1.Height = Text1.Height * MH1 / MH
Text1.Width = Text1.Width * MW1 / MW
Command1.Left = Command1.Left * MW1 / MW
Command1.Top = Command1.Top * MH1 / MH
Command1.Height = Command1.Height * MH1 / MH
Command1.Width = Command1.Width * MW1 / MW
End Sub

以text文本框控件和Command按钮控件为例，其他自己琢磨吧。

追问

非常感谢哦。我运行了之后提示错误说除数为零怎么回事吗，麻烦再说一下

追答

除数是MH和MW二个变量，这二个变量是模块级变量，在启动时已经赋值，不可能是0，除非你的程序与我给你的代码有出入。

Answer 2

Form的Resize事件

比如

Text1.Width = Me.Width / 2 设置text1的宽为form1的一半