常見問題：自動調整窗口內控間的大小

這是一個課程模塊:

1.創建一個新的類模塊，添加以下代碼，竝將類模塊命名爲(示例:autosize)
2。添加一個窗口竝添加:Private el作爲新的autosize
3。在Form_Load事件4中添加el.initme
。添加el。

option Explicit Private nFormHeight As Integer Private nFormWidth As Integer Private nNumOfControls As Integer Private nTop()As Integer Private nLeft()As Integer Private n height()As Integer Private nfontize()As Integer Private nRightMargin()As Integer Private bfirst time As Boolean

Sub Init(frm As Form，可選nWindState As Variant)Dim I As Integer Dim bwin max As Boolean bwin max = Not is missing(nWindState)nFormHeight = frm。高度nFormWidth = frm。寬度nNumOfControls = frm。controls . Count-1 bFirstTime = True ReDim nTop(nNumOfControls)ReDim nlef(nNumOfControls)ReDim n height(nNumOfControls)ReDim nWidth(nNumOfControls)ReDim nfontize(nNumOfControls)ReDim nRightMargin(nNumOfControls)出錯時恢複Next For I = 0到nNumOfControls如果類型爲frm。Controls(I)是Line，那麽nTop(I) = frm。Controls(I) .Y1 nLeft(I) = frm。Controls(I).X1 nHeight(I) = frm。控件(I). y2 n寬度(I) = frm。Controls(I).X2 Else nTop(I) = frm。對照(一)。Top nLeft(I) = frm。對照(一)。Left nHeight(I) = frm。對照(一)。高度nWidth(I) = frm。對照(一)。寬度nfontize(I)= frm。FontSize nRightMargin(I) = frm。對照(一)。如果下一步是bWinMax或frm，則右邊距結束。WindowState = 2 Then frm。高度=屏幕。高度frm。寬度=屏幕。寬度否則frm。高度= frm。高度*屏幕。身高/ 7290 frm。寬度= frm。寬度*屏幕。width/9690 End If bFirstTime = True End Sub

sub Form resize(frm As Form)Dim I As Integer Dim n options size As Integer Dim dratio x As Double Dim dratio n savered raw As Long On Error Resume Next nsavered raw = fr m . autore draw frm如果bFirstTime爲真，那麽bFirstTime =假，那麽退出Sub End If If frm。高度< n高度/ 2，然後是frm。如果是frm，Height = nFormHeight / 2 Endif。寬度< nFormWidth / 2然後frm。width = nFormWidth/2 Endif n options ize = 400 dratio y = 1 # *(nFormHeight-n options ize)_/(frm。height-nCaptionSize)dRatioX = 1 # * nFormWidth/frm。如果類型爲frm，I = 0到nNumOfControls的錯誤恢複下一個的寬度。控制(I)是線，然後是frm。controls(I). y1 = Int(nTop(I)/dRatioY)frm。controls(I). x1 = Int(nlef(I)/dRatioX)frm。controls(I). y2 = Int(n height(I)/dRatioY)frm。controls(I). x2 = Int(nWidth(I)/dRatioX)Else frm。對照(一)。Top = Int(nTop(I) / dRatioY) frm。對照(一)。left = Int(nlef(I)/dRatioX)frm。對照(一)。height = Int(n height(I)/dRatioY)frm。對照(一)。width = Int(nWidth(I)/dRatioX)frm。對照(一)。font size = Int(nfontize(I)/_ dRatioX) Int(nfontize(I)/dRatioX)Mod 2 frm。對照(一)。right margin = Int(nRightMargin(I)/dratio y)End If Next frm。auto draw = nsaveraw End Sub

位律師廻複