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

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

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

相关问答

Q1: 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的版本问题担忧。

Q2: VB.NET中设定窗体大小

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

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

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

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

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的高度不适宜 呵呵

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

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

SplitContainer1的Panel2里面再放置一个SplitContainer2

SplitContainer2控件的Fixedpanel属性设置为Panel2

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

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

播放器控件DOCK设置为FILL

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