在窗子上加一个Text1控件,加入如下代码试试? Private Sub Form_Resize() If Me.WindowState <> vbMinimized Then Text1.Move 0, Text1.Top, ScaleWidth, ScaleHeight - Text1.Top End If End Sub 主要是控件Move方法的使用,可以参照MSDN的说明。 SSTab也一样。
.Net或许只要改个属性,不过VB6嘛Form_Resize里自己写代码吧!
请问激流金属,那个ScaleWidth和ScaleHeight是指的Form的属性吗?
就在这里更换设置 Private Sub Form_Resize() sstab.width=me.width-(me.width-sstab.left*2) sstab.height=me.height-(me.heithg-sstab.top*2) end sub 主要设置width和height就可以了。
Private Sub Form_Resize()
SSTab1.Left = SSTab1原始Left * 比率
SSTab1.Top = SSTab1原始Top * 比率
SSTab1.width = SSTab1原始width * 比率
SSTab1.height = SSTab1原始width * 比率
End Sub
Private Sub Form_Resize()
If Me.WindowState <> vbMinimized Then
Text1.Move 0, Text1.Top, ScaleWidth, ScaleHeight - Text1.Top
End If
End Sub
主要是控件Move方法的使用,可以参照MSDN的说明。
SSTab也一样。
Private Sub Form_Resize()
sstab.width=me.width-(me.width-sstab.left*2)
sstab.height=me.height-(me.heithg-sstab.top*2)
end sub
主要设置width和height就可以了。
是的
变化窗体大小的时候 控件大小也随着改变,这样才能保持原有布局!
强烈关注!
Q1.dongge2000(※秋日私语※:非[版务].灌!), 你的那个例子怎么移植? 代码放到每个窗体的声明中?还是怎么做, 告诉我们吧!
Q2.控件的编号,窗体的编号 都是什么啊? 怎么编号?