窗體最大化按鈕，按下后如何控制窗體大?。╲b.net）

前幾天的時(shí)候我?guī)腿私鉀Q過(guò)這個(gè)問(wèn)題,現(xiàn)在又出來(lái)了.

創(chuàng)新互聯(lián)基于成都重慶香港及美國(guó)等地區(qū)分布式IDC機(jī)房數(shù)據(jù)中心構(gòu)建的電信大帶寬，聯(lián)通大帶寬，移動(dòng)大帶寬，多線(xiàn)BGP大帶寬租用,是為眾多客戶(hù)提供專(zhuān)業(yè)服務(wù)器托管報(bào)價(jià)，主機(jī)托管價(jià)格性?xún)r(jià)比高，為金融證券行業(yè)雅安服務(wù)器托管，ai人工智能服務(wù)器托管提供bgp線(xiàn)路100M獨(dú)享，G口帶寬及機(jī)柜租用的專(zhuān)業(yè)成都idc公司。

在form_Resize()事件 里判斷窗口是不是最大化了 就行了,然后在把窗體大小調(diào)到自己的指定大小..

下面是我給你寫(xiě)的VB代碼( 我沒(méi)有.net編譯器,不過(guò)相信你很容易就看懂了,我給你寫(xiě)上注釋)

補(bǔ)充:剛才測(cè)試時(shí)有點(diǎn)小錯(cuò)誤,現(xiàn)在更正好了.o(∩_∩)o...

Private kuandu As Long, gaodu As Long

Private Sub Form_Load()

'//將啟動(dòng)窗體的寬 ,高屬性 賦值給全局變量

kuandu = Me.Width

gaodu = Me.Height

End Sub

Private Sub Form_Resize()

'//Resize()事件中如果最大化就會(huì)出錯(cuò).錯(cuò)誤號(hào)是384

On Error GoTo Errhandle

If Me.WindowState = 2 Then

Me.Left = 0

Me.Top = 0

Me.Width = Screen.Width '//只進(jìn)行寬度變化

Me.Height = gaodu '//高度不變化

End If

Exit Sub

Errhandle:

If Err.Number = "384" Then '.net的我不知道是不是384

Me.WindowState = 0

Me.Left = 0

'Me.Top = 0

Me.Width = Screen.Width '//只進(jìn)行寬度變化

Me.Height = gaodu '//高度不變化

End If

End Sub

VB.NET中設(shè)定窗體大小

窗體初始化時(shí)，設(shè)定Windowstate= maximized.

窗體分辨率仍然可以設(shè)成1920x1080。設(shè)計(jì)元素的時(shí)候拖拽，或者使用代碼初始化控件。

VB.NET設(shè)計(jì)中窗體大小設(shè)定

從來(lái)只有高分辨率下為低分辨率環(huán)境開(kāi)發(fā)程序的。既然開(kāi)發(fā)環(huán)境是低分辨率，那就只能利用代碼初始化各個(gè)控件的位置和大小了。隨測(cè)隨改。

vb.net如何設(shè)置窗體內(nèi)部的大?。ǔミ吙蚣皹?biāo)題欄部分的大?。?/h2>

'窗體有個(gè)屬性ClientSize?是除去邊框及標(biāo)題欄部分的為工作區(qū)

'你要的應(yīng)該就是這個(gè)了。

'設(shè)置窗體工作區(qū)的大小?例為400*300

Me.ClientSize?=?New?Size(400,300)

分享文章：vb.net控制窗口大小 vb控制窗體大小的屬性
標(biāo)題來(lái)源：http://weahome.cn/article/hjeijh.html