解决方案 »
- 在线等Listview背景图问题(comctl5如何从picturebox中读入背景)
- 怎么能把开始按钮变的不可用了!!! 按windows键不起作用,谢谢
- 问一个很菜的问题,请大家指教!!
- 急!!!!!如何将access表中的东西导出到word排版?在线等!!!
- 怎样向excel 报表中插入分页符?着急阿。。。
- 关于两张表更新的问题
- 如何在SQL数据库中通过VB编程实现存储照片等图片呢?哪位达人能说一下原理?
- 打印问题,请各位提点建议。
- VB中将数据库中单条记录输出并打印!
- VB调用ADO远程修改MSsql7表格的时间字段问题!
- X轴的日期不出现
- 求助,求一个检测鼠标键盘无操作自动关机的脚本
'**模 块 名: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