如何固定窗体的高宽比? - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 如何固定窗体的高宽比?

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1108 人关注过本帖

标题：如何固定窗体的高宽比?

只看楼主加入收藏

jrs123

等　级：论坛游民
威　望：1
帖　子：627
专家分：14
注　册：2006-9-5
结帖率：94.12%

楼主

问题点数：0 回复次数：3

如何固定窗体的高宽比?

下面是一段窗体内的控件大小可随窗体的大小变化而变的代码,
问题是:在拖动窗体大小变化过程中,始终保持窗体的高和宽的比例?
目前的高宽比是不限制的
Private Sub Form_Load()
  Form1.Height = Screen.Height / 6
  Form1.Width = Screen.Width / 6
End Sub

Private Sub Form_Resize()
Command1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Private Sub Command1_Click()
End
End Sub