vb.net中窗体宽度 vb通过代码设置窗体大小

VB.NET中设定窗体大小

窗体初始化时，设定Windowstate= maximized.

创新互联是一家专业提供虎林企业网站建设,专注与成都做网站、成都网站制作、成都外贸网站建设、H5场景定制、小程序制作等业务。10年已为虎林众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。

窗体分辨率仍然可以设成1920x1080。设计元素的时候拖拽，或者使用代码初始化控件。

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平台上的升级版本，增强了对面向对象的支持。

窗体最大化按钮，按下后如何控制窗体大小（vb.net）

前几天的时候我帮人解决过这个问题,现在又出来了.

在form_Resize()事件 里判断窗口是不是最大化了 就行了,然后在把窗体大小调到自己的指定大小..

下面是我给你写的VB代码( 我没有.net编译器,不过相信你很容易就看懂了,我给你写上注释)

补充:刚才测试时有点小错误,现在更正好了.o(∩_∩)o...

Private kuandu As Long, gaodu As Long

Private Sub Form_Load()

'//将启动窗体的宽 ,高属性 赋值给全局变量

kuandu = Me.Width

gaodu = Me.Height

End Sub

Private Sub Form_Resize()

'//Resize()事件中如果最大化就会出错.错误号是384

On Error GoTo Errhandle

If Me.WindowState = 2 Then

Me.Left = 0

Me.Top = 0

Me.Width = Screen.Width '//只进行宽度变化

Me.Height = gaodu '//高度不变化

End If

Exit Sub

Errhandle:

If Err.Number = "384" Then '.net的我不知道是不是384

Me.WindowState = 0

Me.Left = 0

'Me.Top = 0

Me.Width = Screen.Width '//只进行宽度变化

Me.Height = gaodu '//高度不变化

End If

End Sub

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

还有好多方法  慢慢研究吧兄弟 希望能帮到你

在vb.net 中怎样控制运行时窗体的大小 和位置

Public Class Form1

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

Me.Left = 100'左

Me.Top = 100'上

Me.Width = 500'宽

Me.Height = 500'高

End Sub

End Class