如何成比例的缩放窗体?谁又好方法..收买。。

xiayule 2003-11-18 02:59:28
如何成比例的缩放窗体的width和height,并且,窗体里有picbox,textbox等空间,让他们跟着窗体的变化也成比例放大或缩小。

Private Sub Form_Resize()
Dim lngScale As Long
' With Form
'
' End With

With fraVender
lngScale = .Width / .Height
.Width = Me.ScaleWidth
.Height = .Width / lngScale
End With

With picMiddle
lngScale = .Width / .Height
.Move 0, fraVender.Top + fraVender.Height + 10, Me.ScaleWidth, .Width / lngScale
End With

With DataGrd
lngScale = .Width / .Height
.Move 0, picMiddle.Top + picMiddle.Height + 10, Me.ScaleWidth, .Width / lngScale
End With

With picFoot
lngScale = .Width / .Height
.Move 0, DataGrd.Top + DataGrd.Height + 10, Me.ScaleWidth, .Width / lngScale
End With
End Sub

我是这样做的,达不到想要得结果,我觉得还差的远,高手指点一下。。。先谢了
...全文
100 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

7,762

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧