請(qǐng)問如何屏蔽掉VB窗口中的最大化按鈕

我寫詳細(xì)一些，記住加分

創(chuàng)新互聯(lián)建站專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都做網(wǎng)站、網(wǎng)站建設(shè)、射洪網(wǎng)絡(luò)推廣、微信小程序、射洪網(wǎng)絡(luò)營銷、射洪企業(yè)策劃、射洪品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)建站為所有大學(xué)生創(chuàng)業(yè)者提供射洪建站搭建服務(wù)，24小時(shí)服務(wù)熱線：13518219792，官方網(wǎng)址：www.cdcxhl.com

vb6.0中 讓最大化、最小化按鈕蒸發(fā):

Private Declare Function SetWindowLong Lib "user32" _

Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal _

nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" _

Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal _

nIndex As Long) As Long

Const WS_MINIMIZEBOX = H20000

Const WS_MAXIMIZEBOX = H10000

Const GWL_STYLE = (-16)

'使用:

Private Sub Form_Load()

Dim lWnd As Long

lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)

lWnd = lWnd And Not (WS_MINIMIZEBOX)

lWnd = lWnd And Not (WS_MAXIMIZEBOX)

lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)

End Sub

VB中做的彈出窗口，怎么讓它跳出來后，不能改變之前的大小？就是拖動(dòng)不了窗體？

步驟(這些設(shè)置應(yīng)當(dāng)在程序設(shè)計(jì)階段進(jìn)行，即：這些屬性無法在程序中簡單用代碼來設(shè)置)

1.BorderStyle設(shè)置為1-Fixed Single

2.把MaxButton設(shè)置為True

3.根據(jù)自己需要設(shè)置是否可以移動(dòng)窗口

1) 若Moveable=True 可以移動(dòng)窗口

2) 若Moveable=False 不可以移動(dòng)窗口

VB窗口不能拖動(dòng)邊緣改變大小

屬性窗口中把窗體屬性FormBorderStyle改為FixedSingle，即“固定邊框”，就不允許更改大小了；BackgroundImageLayout改為Stretch，即“拉伸”，就可以使背景圖片始終填充窗口