1,453
社区成员
发帖
与我相关
我的任务
分享有谁用过resize32.ocx控件?
有谁用过resize32.ocx控件?能不能给个可以下载的链接，或者直接发我扣扣邮箱 861385734@qq.com,在想等，拜托了，急需！
...全文
请发表友善的回复…
发表回复
嗷嗷叫的老马 2014-03-17
- 打赏
- 举报
自动调整窗体内控件的大小?如果是,那何必使用控件:
'*************************************************************************
'**模 块 名：ModAutoSize
'**说 明：自动调整窗体控件大小及位置
'**创 建 人：嗷嗷叫的老马
'** http://www.m5home.com/
'**日 期：2003年12月17日
'**备 注: 摘于网络
'**版 本：V1.0
'*************************************************************************
'' 在Form_Load里面调用:
'' ControlAutoSize Me,0
'' 在Form_Resize里面调用:
'' ControlAutoSize Me,1
''**********************************
'
Option Explicit
Private Type cP
Wp As Single
Hp As Single
Tp As Single
Lp As Single
End Type
Dim Ap() As cP
Private Sub Ai(ByRef mForm As Form)
On Error Resume Next
Dim I As Integer
For I = 0 To mForm.Controls.Count - 1
With Ap(I)
.Wp = mForm.Controls(I).Width / mForm.Width
.Hp = mForm.Controls(I).Height / mForm.Height
.Lp = mForm.Controls(I).Left / mForm.Width
.Tp = mForm.Controls(I).top / mForm.Height
End With
Next I
End Sub
Public Function ControlAutoSize(ByRef mForm As Form, ByVal OptIndex As Long)
Select Case OptIndex
Case 0
mForm.Height = mForm.ScaleHeight
ReDim Ap(0 To mForm.Controls.Count - 1)
Call Ai(mForm)
Case Else
Dim I As Integer
On Error Resume Next
With mForm
For I = 0 To .Controls.Count - 1
.Controls(I).Move Ap(I).Lp * .ScaleWidth, _
Ap(I).Tp * .ScaleHeight, _
Ap(I).Wp * .ScaleWidth, _
Ap(I).Hp * .ScaleHeight
Next I
End With
End Select
End Function
