常见问题：自动调整窗口内控间的大小

Sub FormResize(frm As Form)

   Dim I             As Integer
   Dim nCaptionSize  As Integer
   Dim dRatioX       As Double
   Dim dRatioY       As Double
   Dim nSaveRedraw   As Long

   On Error Resume Next
   nSaveRedraw = frm.AutoRedraw

   frm.AutoRedraw = True

   If bFirstTime Then
      bFirstTime = False
      Exit Sub
   End If

   If frm.Height < nFormHeight / 2 Then 
     frm.Height = nFormHeight / 2
   Endif

   If frm.Width < nFormWidth / 2 Then 
     frm.Width = nFormWidth / 2
   Endif
   
  nCaptionSize 


文章整理：西部数码--专业提供域名注册、虚拟主机服务

http://www.west263.com

以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!