窗体中控件自动随窗体变化大小
点击次数：14 次 发布日期：2008-11-26 23:44:45 作者：源代码网
|
源代码网推荐那么,怎么才能让窗体中控件自动随窗体变化大小呢? 源代码网推荐 源代码网推荐我觉得有一种原始方法很有用,不让窗体可以最大化:比如飞天餐饮软件....... 源代码网推荐 源代码网推荐当然这种方法是绕道而行.开发出来的软件肯定好看不了. 源代码网推荐好了,让我们来引出下面这个很有用,比较专业的Model吧. 源代码网推荐-------------------------------------------------------------------------------- 源代码网推荐Option Explicit 源代码网推荐Private FormOldWidth As Long 源代码网推荐"保存窗体的原始宽度 源代码网推荐Private FormOldHeight As Long 源代码网推荐"保存窗体的原始高度 源代码网推荐 源代码网推荐"在调用ResizeForm前先调用本函数 源代码网推荐Public Sub ResizeInit(FormName As Form) 源代码网推荐 Dim Obj As Control 源代码网推荐 FormOldWidth = FormName.ScaleWidth 源代码网推荐 FormOldHeight = FormName.ScaleHeight 源代码网推荐 On Error Resume Next 源代码网推荐 For Each Obj In FormName 源代码网推荐 Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " " 源代码网推荐 Next Obj 源代码网推荐 On Error GoTo 0 源代码网推荐End Sub 源代码网推荐 源代码网推荐"按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数 源代码网推荐Public Sub ResizeForm(FormName As Form) 源代码网推荐 Dim Pos(4) As Double 源代码网推荐 Dim i As Long, TempPos As Long, StartPos As Long 源代码网推荐 Dim Obj As Control 源代码网推荐 Dim ScaleX As Double, ScaleY As Double 源代码网推荐 源代码网推荐 ScaleX = FormName.ScaleWidth / FormOldWidth 源代码网推荐 "保存窗体宽度缩放比例 源代码网推荐 ScaleY = FormName.ScaleHeight / FormOldHeight 源代码网推荐 "保存窗体高度缩放比例 源代码网推荐 On Error Resume Next 源代码网推荐 For Each Obj In FormName 源代码网推荐 StartPos = 1 源代码网推荐 For i = 0 To 4 源代码网推荐 "读取控件的原始位置与大小 源代码网推荐 TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare) 源代码网推荐 If TempPos > 0 Then 源代码网推荐 Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos) 源代码网推荐 StartPos = TempPos + 1 源代码网推荐 Else 源代码网推荐 Pos(i) = 0 源代码网推荐 End If 源代码网推荐 "根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小 源代码网推荐 Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY 源代码网推荐 Next i 源代码网推荐 Next Obj 源代码网推荐 On Error GoTo 0 源代码网推荐End Sub 源代码网推荐 源代码网推荐"开发软件时候,把这个modal装入程序中.然后加入如下代码: 源代码网推荐Private Sub Form_Load() 源代码网推荐Call ResizeInit(Me) "在程序装入时必须加入 源代码网推荐End Sub 源代码网推荐 源代码网推荐Private Sub Form_Resize() 源代码网推荐Call ResizeForm(Me) "确保窗体改变时控件随之改变 源代码网推荐End Sub 源代码网推荐-------------------------------------------------------------------------------- 源代码网推荐 源代码网推荐ok,这样你的软件就可以窗体中控件自动随窗体变化大小! 源代码网推荐 源代码网推荐你的软件至少从外观上从此变得不再那么难看了.而且大分辨率下也显得比例协调了. 源代码网推荐 源代码网推荐 源代码网推荐 源代码网供稿. |
