VB中的几个小问题，1、怎样窗体的最大化按钮变为不可用后，并且不能再忙改变窗体的大小！2、在按钮上加图标，让图标在左文字在右！

Question

1.
BorderStyle=1
MinButton=True2.Style=1
再设置Picture属性

Answer 1

1、MAXBUTTON属性设置为FALSE
2、BORDERSTYLE属性设置为1 或3
3、添加部件MICROSOFT FORMS 2。0 OBJECT LIBRARY，用里面的COMMANDBUTTON控件可以解决。
或者设置COMMANDBUTTON的属性STYLE为1，再设置PICTURE属性为你要的图片，但是这样好象文字在下方。

Answer 2

TO: zyl910(910：分儿，我来了！)(L2002)
1、不行的，我要的是有最小化按钮！
2、文字在图标下面！
TO:daviddivad(你真行，居然比我还快！) 
你的前两条也不行！

Answer 3

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_DISABLED = &H2&
Sub DisableX(Frm As Form)
        '使子窗体的最大化按钮无效.
 Dim hMenu As Long, nCount As Long    '获得窗口系统菜单的菜单句柄
    hMenu = GetSystemMenu(Frm.hwnd, 0)
     '得到hMenu指定的菜单的菜单项数目
    nCount = GetMenuItemCount(hMenu)
  Call RemoveMenu(hMenu, nCount - 3, MF_DISABLED Or MF_BYPOSITION)
     '重画系统菜单
    DrawMenuBar Frm.hwnd
End Sub

Answer 4

TO:zyl910(910：分儿，我来了！) (L2002) Minbutton默认值就是True'-----------------------------------
To:lily0000000(黑百合) 
 
不好意思输错了几个字，具体问题是这样的！
1、把窗体的Maxbutton设为False后，让窗体大小始终保持在设计时的大小。

Answer 5

先将窗体的border style属性设为fixed single，使窗体无法改变大小，再将它的minbutton属性设为true,显示最小化按钮。

Answer 6

让窗体大小始终保持在设计时的大小
你在Form_Resize中设定form的宽和高不就行了
Private Sub Form_Resize()
Form1.Width = 设计时的宽
Form1.Height = 设计时的高
End Sub

Answer 7

1、怎样窗体的最大化按钮变为不可用后，并且不能再忙改变窗体的大小！Private Sub Form_Load()
    '设置 Me 的 MaxButton = False
    Me.Height = 2000
    Me.Width = 2000
End SubPrivate Sub Form_Resize()
    If Me.WindowState <> 1 Then
        Me.Height = 2000
        Me.Width = 2000
    End If
End Sub

Answer 8

1、怎样窗体的最大化按钮变为不可用后，并且不能再忙改变窗体的大小！Private Sub Form_Load()
    '设置 Me 的 MaxButton = False
    Me.Height = 2000
    Me.Width = 2000
End SubPrivate Sub Form_Resize()
    If Me.WindowState <> 1 Then
        Me.Height = 2000
        Me.Width = 2000
    End If
End Sub

Answer 9

If Me.WindowState <> 1 Then

Answer 10

1.在设计时:
BorderStyle=1
MinButton=True
注意先后顺序！！！2.Style=1
自己做一张图(有文字和图片）
再设置Picture属性

Answer 11

设置了BorderStyle后
MinButton会自动变为False！