不同分辨率窗口最大化问题

[ArmStronger]

在控件随窗口最大化过程中遇到 sstab控件除第一页上的控件正常外，其他页面的控件位置都不对，在网上找了很多资料都没解决，期待高手帮忙解决下！谢谢~

[孤独剑_LPZ]

我想是因为sstab其他页面的控件没有隶属与它,可以试一下,移动sstab控件,看它其它页的控件是否跟随变化,如果是就对了,否则要拷贝了粘贴进sstab控件属性页内

[ArmStronger]

[Quote=引用 1 楼 asftrhgjhkjlkttttttt 的回复:]
我想是因为sstab其他页面的控件没有隶属与它,可以试一下,移动sstab控件,看它其它页的控件是否跟随变化,如果是就对了,否则要拷贝了粘贴进sstab控件属性页内
[/Quote]
控件是放在sstab页面上的，这点没问题

[flfq]

代码中是否控制位置

[ArmStronger]

[Quote=引用 3 楼 flfq 的回复:]
代码中是否控制位置
[/Quote]
当然控制位置了，但是sstab的隐藏页面似乎很特殊，位置很难控制

[ArmStronger]

这是代码（网上找的），一般控件都可以，就sstab搞不定：

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 

Private   Sub   Form_Load() 
Call   ResizeInit(Me)   `在程序装入时必须加入 
End   Sub 

Private   Sub   Form_Resize() 
Call   ResizeForm(Me)   `确保窗体改变时控件随之改变 
End   Sub 

[ArmStronger]

搞定了，结贴

[张涛雷]

你好 我现在也遇到和你一样的问题 请问你的是怎么解决的呢