讓控件隨窗體大小改變而改變 -开发者知识库

讓控件隨窗體大小改變而改變 -开发者知识库,第1张

讓控件隨窗體大小改變而改變 -开发者知识库,第2张模塊作用:讓控件窗體大小改變而改變 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张模塊代碼: 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
====請看下面===== 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
Option Explicit 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
Private FormOldWidth As Long 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
'保存窗體的原始寬度 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
Private FormOldHeight As Long 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
'保存窗體的原始高度 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张

讓控件隨窗體大小改變而改變 -开发者知识库,第2张
Public Sub ResizeForm(FormName As Form) 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
Dim Pos(4As Double 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
Dim i As Long, TempPos As Long, StartPos As Long 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
Dim Obj As Control 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
Dim 窗體寬比例 As Double, 窗體高比例 As Double 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      窗體寬比例 
= FormName.ScaleWidth / FormOldWidth 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
'保存窗體寬度縮放比例 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
      窗體高比例 = FormName.ScaleHeight / FormOldHeight 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
'保存窗體高度縮放比例 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
      On Error Resume Next 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
For Each Obj In FormName 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      StartPos 
= 1 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
For i = 0 To 4 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张          
'讀取控件的原始位置與大小 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
          TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare) 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张          
If TempPos > 0 Then 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张          Pos(i) 
= Mid(Obj.Tag, StartPos, TempPos - StartPos) 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张          StartPos 
= TempPos   1 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张          
Else 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张          Pos(i) 
= 0 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张          
End If 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张          
'根據控件的原始位置及窗體改變大小的比例對控件重新定位與改變大小 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
          Obj.Move Pos(0* 窗體寬比例, Pos(1* 窗體高比例, Pos(2* 窗體寬比例, Pos(3* 窗體高比例 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
Next i 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
Next Obj 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
On Error GoTo 0 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
End Sub 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
Public Sub ResizeInit(FormName As Form) 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
Dim Obj As Control 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      FormOldWidth 
= FormName.ScaleWidth 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      FormOldHeight 
= FormName.ScaleHeight 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
On Error Resume Next 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
For Each Obj In FormName 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      Obj.Tag 
= Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " " 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
Next Obj 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张      
On Error GoTo 0 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
End Sub 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
=======代碼到這里止===== 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张模塊名字:自定義 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张模塊使用方法: 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
讓控件隨窗體大小改變而改變 -开发者知识库,第2张在窗體的 load 事件 調用: 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
Call ResizeInit(Me) 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
讓控件隨窗體大小改變而改變 -开发者知识库,第2张在窗體的 Resize 事件中調用: 
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
讓控件隨窗體大小改變而改變 -开发者知识库,第2张
Call ResizeForm(Me)
 

最佳答案:

本文经用户投稿或网站收集转载,如有侵权请联系本站。

发表评论

0条回复