Question

我认为答案非常简单，但问题在于，我的选项菜单有两部分，正常设置和高级设置，按高级按钮可以访问高级设置，相当基本。这将使形式更大，揭示进一步的设置，但我唯一的问题是使一个更大的不同分辨率的形式不会使它更大的相同因素 - 把我说的内容放入上下文，如果我增加我的大小在标准1080p显示器上运行，然后在笔记本电脑分辨率为1366 x 768的情况下运行我的程序，该格式将比我在1080p分辨率屏幕上绘制的格式小得多。

下面是我用来增加表单大小的代码：

Private Sub Advance_btn_Click(sender As Object, e As EventArgs) Handles Advance_btn.Click
    If advanced = 0 Then
        Me.Size = New Drawing.Size(262, 198) ' will increase form size
        Advance_btn.Text = "<" ' text for button changes to know i have pressed the button - (to '<')
        advanced = 1
    ElseIf advanced = 1 Then
        Me.Size = New Size(262, 85) ' will decrease form size
        Advance_btn.Text = ">" ' text for button changes to know i have pressed the button - (to '>')
        advanced = 0
    End If
End Sub

表格也没有边框，如果这有点不同，谢谢。

Answer 1

        Me.Height = Screen.PrimaryScreen.Bounds.Height
        Me.Width = Screen.PrimaryScreen.Bounds.Width * 0.6

在这个例子中，我使用多年，宽度设置为屏幕宽度的60％。这是在IF语句中，我检查用户是否有4K监视器，如果没有，则在应用程序启动时设置全屏模式。你可以，perpahs，你的绘图区域做类似的事情。

VB.NET - 按屏幕分辨率更改表单大小：

1 个答案: