VB窗体控件自动适应窗体大小

Dim f_size(1) As Long, fist_re As Boolean  '用来存放窗体默认大小 以及 是否第一次初始化,全局变量,可在 模块中public声明

成都创新互联为客户提供专业的成都网站建设、网站设计、程序、域名、空间一条龙服务，提供基于WEB的系统开发. 服务项目涵盖了网页设计、网站程序开发、WEB系统开发、微信二次开发、成都做手机网站等网站方面业务。

Private Sub Form_Resize()

If Me.WindowState  1 Then '必须排除最小化的状态

If fist_re = False Then '窗体初始化只记录窗体大小

f_size(0) = Me.Height: f_size(1) = Me.Width

fist_re = True

Else '否则开始适应屏幕变化

For Each a In Form1.Controls

On Error Resume Next

a.Width = a.Width * (Me.Width / f_size(1))

a.Height = a.Height * (Me.Height / f_size(0))

a.Top = a.Top * (Me.Height / f_size(0))

a.Left = a.Left * (Me.Width / f_size(1))

Next

f_size(0) = Me.Height: f_size(1) = Me.Width '重新记录窗口大小,用于下次运算

End If

End If

End Sub

''对于一些控件  如listbox的高度不适宜 呵呵

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

使用SplitContainer1控件不就行了，SplitContainer1控件的Fixedpanel属性设置为Panel1

SplitContainer1的Panel2里面再放置一个SplitContainer2

SplitContainer2控件的Fixedpanel属性设置为Panel2

二个SplitContainer设置为水平折为器方向

至于播放器控件就放在SplitContainer2控件Panel1里面

播放器控件DOCK设置为FILL

这样不管放大缩小界面，播放器控件总是自适应窗体大小而菜单按钮总是在最边缘

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中怎么可以让窗体全屏显示？

Me.Height = My.Computer.Screen.Bounds.Height

Me.Width = My.Computer.Screen.Bounds.Width

这是设置窗体的长宽和屏幕的分辨率一样大小，相当于全屏。

如果Me.WindowState=FormWindowState.Maximized的话，只是单纯的将窗体最大化，但恢复窗口大小后窗体的大小实际上还和原来一样大。

VB.NET的特点

1.真正成为面向对象以及支持继承性的语言。

2.窗体设计器支持可视化继承，并且包含了许多新的特性，比如自动改变窗体大小、资源本地化支持、数据类工具内在支持XML数据。

3.直接建立在.NET的框架结构上，因此开发人员可以充分利用所有.NET平台特性，也可以与其他的.NET语言交互。

4.为Windows应用程序提供了XCOPY部署，开发者不再需要为DLL的版本问题担忧。

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

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

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