設計窗體的時候設置分辨率800*600或是1024*768,放到其他機子上時調成對應的就OK了,這是最簡單的方法,不然就用代碼控制。
成都創(chuàng)新互聯(lián)是一家集網站建設,新蔡企業(yè)網站建設,新蔡品牌網站建設,網站定制,新蔡網站建設報價,網絡營銷,網絡優(yōu)化,新蔡網站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網需求。同時我們時刻保持專業(yè)、時尚、前沿,時刻以成就客戶成長自我,堅持不斷學習、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網站。
'控制樹狀選單自動調整寬度
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é)點下展開的最大寬度
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
窗體在改變大小時會有一個size事件的,在這個事件中寫代碼獲取窗體的高度和寬度再根據窗體的高度和寬度的比例來效果自己的控件的高度寬度比例
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的框架結構上,因此開發(fā)人員可以充分利用所有.NET平臺特性,也可以與其他的.NET語言交互。
4.為Windows應用程序提供了XCOPY部署,開發(fā)者不再需要為DLL的版本問題擔憂。
名稱欄目:vbnet屏幕自適應的簡單介紹
文章轉載:http://m.kartarina.com/article12/dogeidc.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供企業(yè)網站制作、網站改版、微信公眾號、網站內鏈、虛擬主機、網站維護
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)