vb 中控件随窗体的改变成比例改变大小

---

这几天在设计阅读其中用到了很多好的技术,,让我们在设计软件的时候方便,,快捷,,美观.也是我们经常用到的一些控件.

所以在这里我会陆续把他分享出来.

 

这里是在窗体中改变窗体的大小.窗体内部所以控件的大小同比例的改变的一个程序

 

 

---

 

这些是在标准模块中

'定义 FormOldWidth, FormOldHeight 为全局变量，这样其他模块才能调用它Global FormOldWidth, FormOldHeight'在调用ResizeForm前先调用本函数Public Sub ResizeInit(FormName As Form)'Control是一个对象，表示所有 Visual Basic 内部控件的类名。'可以将一个变量标为 Control 对象，象引把控件放到窗体上的一样来引用它。例如：'Dim C As Control'Set C = Command1Dim Obj As ControlFormOldWidth = FormName.ScaleWidthFormOldHeight = FormName.ScaleHeightOn Error Resume Next'Each是一个关键字，作用是针对一个数组或集合中的每个元素，重复执行一组语句。'语法'For Each element In GroupFor Each Obj In FormName'Tag返回或设置一个表达式用来存储程序中需要的额外数据。Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "Next ObjOn Error GoTo 0End Sub'按比例改变表单内各元件的大小，'在调用ReSizeForm前先调用ReSizeInit函数Public Sub ResizeForm(FormName As Form)Dim Pos(4) As DoubleDim i As Long, TempPos As Long, StartPos As LongDim Obj As ControlDim ScaleX As Double, ScaleY As Double'保存窗体宽度缩放比例ScaleX = FormName.ScaleWidth / FormOldWidth'保存窗体高度缩放比例ScaleY = FormName.ScaleHeight / FormOldHeightOn Error Resume NextFor Each Obj In FormNameStartPos = 1'读取控件的原始位置与大小For i = 0 To 4'InStr函数，返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。语法:InStr([start, ]string1, string2[, compare])TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)If TempPos > 0 Then'Mid函数，返回Variant (String)，其中包含字符串中指定数量的字符。语法：Mid(string, start[, length])Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)StartPos = TempPos + 1ElsePos(i) = 0End If'根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小'Move方法，用以移动 MDIForm、Form 或控件。语法:object.Move Left, Top, Width, HeightObj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleYNext iNext ObjOn Error GoTo 0End Sub

---

 

然后在窗体的resize事件中调用resizeform(窗体名)

例如:call resizeform(me)

 

---