当前位置 : 主页 > 编程语言 > c语言 >

.net – 根据屏幕分辨率更改表格分辨率(不更改显示器分辨率并使用最大化屏幕

来源:互联网 收集:自由互联 发布时间:2021-06-24
我在论坛上搜索过,我尝试了一些东西……但它们似乎并没有真正起作用.让我说出我的问题. 我的笔记本电脑屏幕分辨率非常高: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.经过测试和批准.

网友评论