我在论坛上搜索过,我尝试了一些东西……但它们似乎并没有真正起作用.让我说出我的问题. 我的笔记本电脑屏幕分辨率非常高:1400×1050.我正在设计我的应用程序. 我的同事在他的笔记
我的笔记本电脑屏幕分辨率非常高:1400×1050.我正在设计我的应用程序.
我的同事在他的笔记本电脑上测试了它(分辨率较低),并且应用程序不适合他的笔记本电脑.按钮拖出屏幕空间.
所以,我希望我的应用程序根据屏幕分辨率自动调整大小/调整大小.
我发现了一些类似的论坛,我尝试了开发人员提出的一些建议,但这对我来说并不合适.
我试过了 :
Solution 1:但是改变用户的屏幕重新调整形式.
我不想使用最大化屏幕选项,也不想更改用户的电脑设置.
不幸的是,我没有使用表格布局面板.
请建议我一个简单的解决方案.
好的,这就像它得到的一样简单.只需迭代VB控件并根据新屏幕分辨率与设计屏幕分辨率的比例调整其大小.即,像:Dim DesignScreenWidth As Integer = 1600 Dim DesignScreenHeight As Integer = 1200 Dim CurrentScreenWidth As Integer = Screen.PrimaryScreen.Bounds.Width Dim CurrentScreenHeight As Integer = Screen.PrimaryScreen.Bounds.Height Dim RatioX as Double = CurrentScreenWidth / DesignScreenWidth Dim RatioY as Double = CurrentScreenHeight / DesignScreenHeight For Each iControl In Me.Controls With iControl If (.GetType.GetProperty("Width").CanRead) Then .Width = CInt(.Width * RatioX) If (.GetType.GetProperty("Height").CanRead) Then .Height = CInt(.Height * RatioY) If (.GetType.GetProperty("Top").CanRead) Then .Top = CInt(.Top * RatioX) If (.GetType.GetProperty("Left").CanRead) Then .Left = CInt(.Left * RatioY) End With Next
请注意,我正在使用反射来查看每个控件是否具有我们需要调整的属性.我正在做的方式是干净但使用“后期绑定”并要求Option Strict Off.经过测试和批准.