请问如何屏蔽掉VB窗口中的最大化按钮

我写详细一些，记住加分

创新互联建站专注为客户提供全方位的互联网综合服务，包含不限于成都做网站、网站建设、射洪网络推广、微信小程序、射洪网络营销、射洪企业策划、射洪品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联建站为所有大学生创业者提供射洪建站搭建服务，24小时服务热线：13518219792，官方网址：www.cdcxhl.com

vb6.0中 让最大化、最小化按钮蒸发:

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中做的弹出窗口，怎么让它跳出来后，不能改变之前的大小？就是拖动不了窗体？

步骤(这些设置应当在程序设计阶段进行，即：这些属性无法在程序中简单用代码来设置)

1.BorderStyle设置为1-Fixed Single

2.把MaxButton设置为True

3.根据自己需要设置是否可以移动窗口

1) 若Moveable=True 可以移动窗口

2) 若Moveable=False 不可以移动窗口

VB窗口不能拖动边缘改变大小

属性窗口中把窗体属性FormBorderStyle改为FixedSingle，即“固定边框”，就不允许更改大小了；BackgroundImageLayout改为Stretch，即“拉伸”，就可以使背景图片始终填充窗口

网页名称：vb.net禁止窗口拉大,VB窗体最大化
分享链接：http://kswjz.com/article/hopgog.html