java 窗口最大化_vb窗口最大化问题的解决方法

VB实现控件与窗体不能同步缩放呢？

为什么会出现这种情况呢？原因很简单：当窗体的尺寸缩放(如最大化)时，窗体内的控件的尺寸以及在窗体内的相对位置没有得到相应的调整。事实上，窗体和控件的大小分别是由窗体和控件的Width属性和Height属性确定的。所以，当程序界面设计完成之后，窗体及其内部各控件的Width、Height属性便随之确定下来；从而窗体相对于每一个控件，它们的宽度之比、高度之比也被确定下来。

例如：如果窗体Form1内的一个文本框控件Text1的宽度(Width)为3600，高度(Height)为1900，；而窗体Form1的这两个值分别为4900和3700，则它们的宽度之比和高度之比分别为：3600／4900、1900／3700。而当用户在程序启动后调整了窗体的尺寸，则窗体的宽度和高度分别为Form1.ScaleWidth和Form1.ScaleHeight。由此可以看出，要保证控件与窗体之间的原有比例，只要按比例来调整文本框控件Text1的高度和宽度值即可。即：

调整后的Text1的Width值Κ(3600／4900)×Form1.ScaleWidth

调整后的Text1的Height值Κ(1900／3700)×Form1.ScaleHeight

将上面的例子中得出的结论推而广之：一般而言，当窗体尺寸调整后，窗体内控件的尺寸应按以下公式同步进行调整：调整后的控件的Width值Κ(控件原Width值／窗体原Width值)×窗体.ScaleWidth；调整后的控件的Height属性值Κ(控件原Height值／窗体原Height值)×窗体.ScaleHeight。

窗体尺寸缩放的同时，窗体内的控件在窗体中的相对位置应如何同步调整呢？控件在窗体中的位置由该控件的Left和Top属性确定。程序启动后如果窗体被缩放，只要按照缩放的比例来重新调整窗体内各控件的Left和Top属性值即可。因此，根据上面介绍的同步调整控件尺寸的原理，在窗体被缩放的同时，只要按照下面的关系来设置控件的Left和Top值即可；调整后控件的Left值Κ(控件原Left值／窗体原Left值)×窗体.ScaleWidth；调整后控件的Top值Κ(控件原Top值／窗体原Top值)×窗体.ScaleHeight。

上面谈了控件与窗体同步缩放及保持相对位置的原理，下面看看在VB程序中实现的具体方法。我们知道，Resize事件是窗体响应的一个事件；当窗体第一次显示或当窗体的状态被改变时(如窗体被最大化、最小化或被还原时)该事件发生。所以，只要将对控件大小和位置的调整代码写入窗体的Resize事件中便可达到目的。具体可在窗体的Re size事件过程中使用对象的Move方法：

PrivateSubForm-Resize()

Object.moveNewleft，Newtop，NewWidth，NewHeight

EndSub

其中：Object是需要调整大小和位置的任意一个控件的名称；NewLeft、NewTop、NewWidth与NewHeight分别是窗体缩放后控件应有的新的Left、Top、Width与Height的属性值，它们确定了当窗体被缩放后控件的大小和位置。NewWidth、NewHeight、NewLeft和NewTop可直接使用文中给出的相应公式的表达式。

最后要注意的是，不要对窗体内的不可见控件(如果有的话)进行类似的处理，否则会出错。

下面的代码可以实现，vb窗口最大化的时候，里面的控件一起变化

Option Explicit

Private InitWidth As Long       ' Form的原始大小Private InitHeight As Long

Private Sub Form_Load()

InitWidth = ScaleWidth

InitHeight = ScaleHeight

Dim Ctl As Control

'记录每个Control的原始位置、大小、字型大小,放在Tag属性中On Error Resume Next '确保left, top, width, height, Tag属性没有全有的Control

For Each Ctl In Me   '也能正常执行Ctl.Tag = Ctl.Left & " " & Ctl.Top & " " & Ctl.Width & " " & Ctl.Height & " "

Ctl.Tag = Ctl.Tag & Ctl.FontSize & " "

Next Ctl

On Error GoTo 0

End Sub

Private Sub Form_Resize()

Dim D(4) As Double

Dim I As Long

Dim TempPos As Long

Dim StartPos As Long

Dim Ctl As Control

Dim TempVisible As Boolean

Dim ScaleX As Double

Dim ScaleY As Double

ScaleX = ScaleWidth / InitWidth

ScaleY = ScaleHeight / InitHeight

On Error Resume Next

For Each Ctl In Me

TempVisible = Ctl.Visible

Ctl.Visible = False

StartPos = 1

'读取Control的原始位置、大小、字型大小For I = 0 To 4

TempPos = InStr(StartPos, Ctl.Tag, " ", vbTextCompare)

If TempPos > 0 Then

D(I) = Mid(Ctl.Tag, StartPos, TempPos - StartPos)

StartPos = TempPos + 1

Else

D(I) = 0

End If

'根据比例设定Control的位置、大小、字型大小Ctl.Move D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY

'Ctl.Width = D(2) * ScaleX

'Ctl.Height = D(3) * ScaleY

If ScaleX < ScaleY Then

Ctl.FontSize = D(4) * ScaleX

Else

Ctl.FontSize = D(4) * ScaleY

End If

Next I

Ctl.Visible = TempVisible

Next Ctl

On Error GoTo 0

End Sub