VB 窗体位置

来源：百度知道 编辑：UC知道 时间：2024/05/25 00:46:56
我家里电脑分辨率是1280*1024，我在上面开发VB程序，程序运行时，Form2首先被运行，上面有一个cmd部件，按下cmd，即可呼出Form2，在设计的时候，我用width和height两个属性，将Form2的运行位置定位在form1的上面接合处，总之就是设计好的位置，将form2呼出。
现在这个程序在我的单位的电脑上运行后，我发现位置偏离了好多，因为我的单位电脑的最大分辨率才1024*768，请问高手，我的目的是想不管分辨率是否改变，我的程序的位置能不能不可以变化呢?
给高分。

不用那么复杂，建立两个窗体，在form1上建立一个命令按钮，并编写代码，最后运行，不管form1在何处，单击Command1后form2总是在form1的上边紧挨着！快试试吧
Private Sub Command1_Click()
Form2.Show
Form2.Top = Form1.Top - Form2.Height
Form2.Left = Form1.Left
End Sub

先判断好你的form运行位置和宽高,程序运行时,用
Screen.Width / Screen.TwipsPerPixelX
Screen.Height / Screen.TwipsPerPixelY

得到水平和垂直分辨率,然后根据不同的情况来设置form2的top和left属性,
设置好之后在form2.show就行了

先要判断你的窗体分辨率
运用Screen.Width（水平）Screen.Height（垂直），后运用此作参照。
此不管对任何计算机分辨率都可。