前幾天的時(shí)候我?guī)腿私鉀Q過(guò)這個(gè)問(wèn)題,現(xiàn)在又出來(lái)了.
網(wǎng)站建設(shè)哪家好,找創(chuàng)新互聯(lián)建站!專(zhuān)注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、重慶小程序開(kāi)發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了鄉(xiāng)寧免費(fèi)建站歡迎大家使用!
在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
很簡(jiǎn)單
菜單的代碼可以這樣,不會(huì)重復(fù)打開(kāi),第一點(diǎn)擊的時(shí)候彈出窗體,下次打開(kāi)就最大化:
If F1.Visible = True Then
F1.WindowState = FormWindowState.Maximized
Else
F1.Show()
End If
選中空間,把它的DOCK屬性改成Top,Fill```屬性即可隨著窗體自動(dòng)變動(dòng)大小了
這個(gè)問(wèn)題,如有可能你應(yīng)當(dāng)先把大的控件??吭诖绑w的某部分,其他的控件用form的resize事件觸發(fā)控件寬高的數(shù)值或控件位置坐標(biāo)的數(shù)值。例:
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Dim pLabel1, pTextBox1, pButton1 As New Point
pLabel1.X = CInt(Me.Width / 7)
pLabel1.Y = CInt(Me.Height / 8) + 4
pTextBox1.X = CInt(Me.Width / 5)
pTextBox1.Y = CInt(Me.Height / 8)
pButton1.X = CInt(Me.Width / 3)
pButton1.Y = CInt(Me.Height / 8) - 1
Me.Label1.Location = pLabel1
Me.TextBox1.Location = pTextBox1
Me.Button1.Location = pButton1
End Sub
以上只是改變了控件的位置,如需改變控件的大小,重新定義計(jì)算控件的size屬性
vb.net在窗體設(shè)計(jì)時(shí)不可以最大化,但可以通過(guò)手動(dòng)調(diào)整Size屬性來(lái)模仿最大化,vb.net也沒(méi)有像VB6的窗體布局窗口,可以通過(guò)更改StartPosition屬性來(lái)實(shí)現(xiàn)
StartPosition取值范圍:
CenterParent:在父窗口的中心
CenterScreen:在屏幕中心
Manual:Location屬性中定義的坐標(biāo)
WindowsDefaultBounds:Windows默認(rèn)位置
WindowsDefaultLocation:Windows默認(rèn)位置,并且包括大小設(shè)置為默認(rèn)