【VB6】如何自动识别分辨率并根据情况调整窗口大小
RT，我做的程序窗口大小几乎占了整个屏幕，而且不是以最大化模式运行的，边框样式为0（无边框），我的本本分辨率是1366X768，系统WIN764位，在自家电脑上是可以正常...
RT，我做的程序窗口大小几乎占了整个屏幕，而且不是以最大化模式运行的，边框样式为0（无边框），我的本本分辨率是1366X768，系统WIN7 64位，在自家电脑上是可以正常运行的，但是换了别的分辨率的电脑，程序窗口就会显示不正常，溢出屏幕。
我的要求如下：
打开程序时自动识别系统分辨率，若≥1366X768则不做任何操作，直接打开程序，若≤1366X768则根据所检测到的分辨率设置窗口大小（例如，若检测到的分辨率为1280X720则将窗口大小设置为1280X700，也就是窗口高度大约是屏幕高度减去任务栏高度），并打开程序。由于我有安装resize32.cox，会自动随窗口大小改变控件位置大小，所以不用考虑控件位置问题。
本人为VB新手，希望各位大大给出详细代码，语言通俗一些，万分感谢！！！ 展开
我的要求如下：
打开程序时自动识别系统分辨率，若≥1366X768则不做任何操作，直接打开程序，若≤1366X768则根据所检测到的分辨率设置窗口大小（例如，若检测到的分辨率为1280X720则将窗口大小设置为1280X700，也就是窗口高度大约是屏幕高度减去任务栏高度），并打开程序。由于我有安装resize32.cox，会自动随窗口大小改变控件位置大小，所以不用考虑控件位置问题。
本人为VB新手，希望各位大大给出详细代码，语言通俗一些，万分感谢！！！ 展开
1个回答
展开全部
Private Sub Form_Resize()
If Me.WindowState <> 1 And Me.WindowState <> 2 Then
Me.Move 0, 0, Screen.Width, Screen.Height - 1500
'Me.Width = Screen.Width
'Me.Height = Screen.Height - 1500
'Debug.Print (Screen.Height - 1500) / 15
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
