vb.net 怎樣將窗體和所有控件根據(jù)電腦分辨率固定？

使用SplitContainer1控件不就行了，SplitContainer1控件的Fixedpanel屬性設(shè)置為Panel1\x0d\x0aSplitContainer1的Panel2里面再放置一個(gè)SplitContainer2\x0d\x0aSplitContainer2控件的Fixedpanel屬性設(shè)置為Panel2\x0d\x0a二個(gè)SplitContainer設(shè)置為水平折為器方向\x0d\x0a至于播放器控件就放在SplitContainer2控件Panel1里面\x0d\x0a播放器控件DOCK設(shè)置為FILL\x0d\x0a\x0d\x0a這樣不管放大縮小界面，播放器控件總是自適應(yīng)窗體大小而菜單按鈕總是在最邊緣

在臨汾等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場(chǎng)前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供網(wǎng)站設(shè)計(jì)、做網(wǎng)站 網(wǎng)站設(shè)計(jì)制作定制網(wǎng)站設(shè)計(jì),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站建設(shè),全網(wǎng)營銷推廣,成都外貿(mào)網(wǎng)站建設(shè)公司,臨汾網(wǎng)站建設(shè)費(fèi)用合理。

VB.net TreeView 展開節(jié)點(diǎn)自適應(yīng)寬度

'控制樹狀選單自動(dòng)調(diào)整寬度

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

'取得目前樹狀選單節(jié)點(diǎn)下展開的最大寬度

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窗口控件怎么做自適應(yīng)

窗體在改變大小時(shí)會(huì)有一個(gè)size事件的，在這個(gè)事件中寫代碼獲取窗體的高度和寬度再根據(jù)窗體的高度和寬度的比例來效果自己的控件的高度寬度比例

VB窗體控件自動(dòng)適應(yīng)窗體大小

Dim?f_size(1)?As?Long,?fist_re?As?Boolean??'用來存放窗體默認(rèn)大小?以及?是否第一次初始化,全局變量,可在?模塊中public聲明

Private?Sub?Form_Resize()

If?Me.WindowState??1?Then?'必須排除最小化的狀態(tài)

If?fist_re?=?False?Then?'窗體初始化只記錄窗體大小

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

fist_re?=?True

Else?'否則開始適應(yīng)屏幕變化

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?'重新記錄窗口大小,用于下次運(yùn)算

End?If

End?If

End?Sub

''對(duì)于一些控件??如listbox的高度不適宜?呵呵