章鱼哥出品——VB.NET 屏幕自适应功能的实现

最新推荐文章于 2020-12-04 06:14:57 发布

章鱼小哥0826

最新推荐文章于 2020-12-04 06:14:57 发布

阅读量3k

点赞数 3

分类专栏：控件类操作文章标签： VB.NET 屏幕自适应

本文链接：https://blog.csdn.net/zhangyubishoulin/article/details/40050969

版权

本文介绍如何在VB.NET中实现屏幕自适应功能，确保窗体在不同分辨率下都能正常显示所有控件。通过简洁的代码示例，帮助开发者快速理解和应用。

摘要由CSDN通过智能技术生成

最近有个网友问我屏幕自适应的问题，即如果屏幕的分辨率改变了，窗体也能适应屏幕的大小，不至于有些控件不能显示。其实代码还是很简单的，我不喜欢讲很多的原理啊什么的，直接上代码。所有代码可直接复制测试。方便后来人参考吧


<pre name="code" class="vb">'**********************************************
'作者：章鱼哥，QQ：3107073263 群：309816713    
'如有疑问或好的建议请联系我，大家一起进步    
'**********************************************

Imports System.Windows.Forms
Public Class Form1
    Dim Ini_Screen_Width As Integer = 1366 '开发时屏幕宽度
    Dim Ini_Screen_Height As Integer = 768 '开发时屏幕高度
    Dim Scale_X As Double '屏幕缩放比例
    Dim scale_Y As Double '屏幕缩放比例

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
        Dim Screen_Width As Integer = Screen.PrimaryScreen.Bounds.Width '当前屏幕的宽
        Dim Screen_Height As Integer = Screen.PrimaryScreen.Bounds.Height '当前屏幕的高