包含vb.net自适应界面的词条

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

使用SplitContainer1控件不就行了，SplitContainer1控件的Fixedpanel属性设置为Panel1\x0d\x0aSplitContainer1的Panel2里面再放置一个SplitContainer2\x0d\x0aSplitContainer2控件的Fixedpanel属性设置为Panel2\x0d\x0a二个SplitContainer设置为水平折为器方向\x0d\x0a至于播放器控件就放在SplitContainer2控件Panel1里面\x0d\x0a播放器控件DOCK设置为FILL\x0d\x0a\x0d\x0a这样不管放大缩小界面，播放器控件总是自适应窗体大小而菜单按钮总是在最边缘

在临汾等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站设计、做网站 网站设计制作定制网站设计,公司网站建设,企业网站建设,品牌网站建设,全网营销推广,成都外贸网站建设公司,临汾网站建设费用合理。

VB.net TreeView 展开节点自适应宽度

'控制树状选单自动调整宽度

Private Sub tvMenu_AfterExpand(sender As Object, e As TreeViewEventArgs) Handles tvMenu.AfterExpand, tvMenu.AfterCollapse

Dim iMaxWidth As Integer = 0

For Each tn As TreeNode In tvMenu.Nodes

Dim iCurPos As Integer = tn.Bounds.X

Dim iCurWidth As Integer = iCurPos + tn.Bounds.Width

If tn.IsExpanded Then

iCurWidth = GetTreeViewMaxWidth(tn)

End If

If iMaxWidth iCurWidth Then

iMaxWidth = iCurWidth

Me.gbMenu.Width = iCurPos + iMaxWidth

End If

Next

End Sub

'取得目前树状选单节点下展开的最大宽度

Private Function GetTreeViewMaxWidth(tn As TreeNode) As Integer

Dim iMaxWidth As Integer = 0

For Each tnItem As TreeNode In tn.Nodes

Dim iCurPos As Integer = tnItem.Bounds.X

Dim iCurWidth As Integer = iCurPos + tnItem.Bounds.Width

If tnItem.IsExpanded Then

iCurWidth = GetTreeViewMaxWidth(tnItem)

End If

If iMaxWidth iCurWidth Then

iMaxWidth = iCurWidth

End If

Next

Return iMaxWidth

End Function

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

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

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