我想寫一個不受螢幕解析度影響的表單調整副程式...
大概如下：
Public Sub Getform(Gfrm As Form) '取得物件相對位置
ReDim ArrayProportions(0 To Gfrm.Controls.Count - 1)
Dim I As Integer
For I = 0 To Gfrm.Controls.Count - 1
If TypeOf Gfrm.Controls(I) Is Timer Then
Else
With ArrayProportions(I)
.WidthProportions=Gfrm.Controls(I).Width/Gfrm.ScaleWidth
.HeightProportions=Gfrm.Controls(I).Height/Gfrm.ScaleHeight
.LeftProportions=Gfrm.Controls(I).Left/Gfrm.ScaleWidth
.TopProportions=Gfrm.Controls(I).Top/Gfrm.ScaleHeight
End With
End If
Next I
End Sub
...........................................................
Public Sub Changform(Sfrm As Form)'改變表單物件大小
Dim I As Integer
For I = 0 To Sfrm.Controls.Count - 1
If TypeOf Sfrm.Controls(I) Is Timer Then
Else
Sfrm.Controls(I).Move_
ArrayProportions(I).LeftProportions * Sfrm.ScaleWidth, _
ArrayProportions(I).TopProportions * Sfrm.ScaleHeight, _
ArrayProportions(I).WidthProportions * Sfrm.ScaleWidth, _
ArrayProportions(I).HeightProportions * Sfrm.ScaleHeight
End If
Next I
End Sub
在其他表單的 Form_Resize()再以
Getform Me
Changform Me
Maxform Me
呼叫執行....可是執行的結果卻出現Height屬性唯讀..沒法改變的訊息（這樣我物件就沒法調整了啊）...拜託各位高手...指點一下...謝謝...^_^