Question

VB6如何自动适应不同分辩率，我只改变控件位置，不想改变控件大小。

Option Explicit
Private FormOldWidth As Long
Private FormOldHeight As Long

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 & " "
Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
Next Obj
On Error GoTo 0End Sub这样的代码即改变了位置又改变了大小，我只想改变位置，不想改变大小，怎么做？

Answer 1

你的代码中没有改变大小和位置的语句，你可以用Obj.Move方法改变位置，但不改大小

追问

你在吗？我可以把完整的代码发你

追答

百度Hi我

追问

已百度hi你，完整的代码网址已发到你百度hi里

追答

把这一行：
Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
改成：
Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY
就可以了

追问

如何单独控制呢？按钮放大了难看，但是文本框，datagrid什么的还必须放大，纠结啊。

追答

用控件名来区别：
if Obj.Name="Text1" Or Obj.Name="datagrid1" Then
Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
else
Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY
end if

Answer 2

你只要改变Obj.Left、 Obj.Top就可以了。

追问

http://zhidao.baidu.com/question/495702021.html&from=emailmsg这里有完整代码，请看看

Answer 3

你只要改变Obj.Left、 Obj.Top就可以了。
不过具体的代码我也不会，期望高手直接给代码。

追问

http://zhidao.baidu.com/question/495702021.html&from=emailmsg在这里有完整的代码，看看如何修改，我要具体的代码．