vb.net自适应窗体的简单介绍

vb.net 怎样将窗体和所有控件根据电脑分辨率固定？

Public Class Form1

Dim 初始化控件自动大小调整与窗口的宽度比例 As Integer

    Dim 初始化控件自动大小调整与窗口的高度比例 As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        初始化控件自动大小调整与窗口的宽度比例 = Me.Width / 控件自动大小调整.Width

        初始化控件自动大小调整与窗口的高度比例 = Me.Height / 控件自动大小调整.Height

        显示控件的位置坐标()

End Sub

    Private Sub Form1_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd

        ' Form1_ResizeEnd  这个事件是 窗口大小变化完成后 再进行操作的

        控件自动大小调整.Location = New Point(控件自动大小调整.Left, 控件自动大小调整.Top)

        '设置控件的初始左位置坐标  与  上位置坐标

        控件自动大小调整.Size = New Point(Int(Me.Width / 初始化控件自动大小调整与窗口的宽度比例), Int(Me.Height / 初始化控件自动大小调整与窗口的高度比例))

        '更改控件的大小  按第一次窗口的比例 进行调整

显示控件的位置坐标()

    End Sub

Private Sub 显示控件的位置坐标()

        Label1.Text = "控件的上边距坐标： " 控件自动大小调整.Top

        Label2.Text = "控件的左边距坐标： " 控件自动大小调整.Left

        Label3.Text = "控件的宽度大小： " 控件自动大小调整.Width

        Label4.Text = "控件的高度大小： " 控件自动大小调整.Height

    End Sub

End Class

相关问答

Q1: vb.net如何设置一个窗体为 宽度不能调节，而高度可以调节

vb.net设置一个窗体为，宽度不能调节，而高度可以调节，

代码设置方法：

Dim form_width As Integer = Me.Width

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

If Me.Width form_width Then

Me.Width = form_width

'Debug.Print(TimeString "-" CStr(Me.Width))

End If

End Sub

vb.net，即Visual Basic.NET是基于微软.NET Framework之上的面向对象的编程语言。其在调试时是以解释型语言方式运作,而输出为EXE程序是是以编译型语言方式运作。可以看作是Visual Basic在.Net Framework平台上的升级版本，增强了对面向对象的支持。

Q2: VS2013 VB.NET窗口控件怎么做自适应

窗体在改变大小时会有一个size事件vb.net自适应窗体的vb.net自适应窗体，在这个事件中写代码获取窗体vb.net自适应窗体的高度和宽度再根据窗体vb.net自适应窗体的高度和宽度vb.net自适应窗体的比例来效果自己的控件的高度宽度比例

vb.net自适应窗体的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net自适应窗体的信息别忘了在本站进行查找喔。