老问题，没解决：去掉最大化按钮，保留最小化按钮！(Pls come in)

Question

其实，你只要在vb的窗口form属性里面设置：MaxButton为false而MinButton为true就可以了

Answer 1

emailtolhy(飞雨)　
我是让他消失！不是不可用（变灰）！

Answer 2

那就得象OICQ一样完全不要按钮,自己画.

Answer 3

去掉最大化或最小化按钮
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long) As LongConst WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)Dim lWnd As Long
lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)lWnd = lWnd And Not (WS_MINIMIZEBOX) 'remove maxButton
lWnd = lWnd And Not (WS_MAXIMIZEBOX) 'remove minButton
lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)将最大化或最小化按钮从窗口菜单中去掉
hMenu = GetSystemMenu(Me.hWnd, False)
Me.Top = 0
Me.Left = 0
Me.WindowState = 2
DeleteMenu hMenu, 4, &H400&  '最大化
DeleteMenu hMenu, 2, &H400& '移动
DeleteMenu hMenu, 1, &H400&  '大小
'DeleteMenu hMenu, 0, &H400&  '恢复

Answer 4

tyd163xx(我是VB初学者)　
先谢谢！我是一下！

Answer 5

lWnd = lWnd And Not (WS_MINIMIZEBOX) 'remove maxButton
lWnd = lWnd (WS_MAXIMIZEBOX) 'remove minButton
lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd) TEST,TEST!

Answer 6

我一直没有进这个贴子，是以为早解决了
我看的每一个例程，几乎都是用label画出来，放上image然后加上bmp的按钮我想大家都用过VB Shaped Form Creator.
而在最新版中支持MS Agent一样的动画窗体，上面有一个例程，就是这样搞的，关闭按钮做得很仿真。
因为他的窗体是BMP的图片，是没有标题栏的。你的API我看不懂，也不想看。是不是太长了一点，难道放两个Image就不行么？按钮想做成什么样子就什么样了。不是更好？

Answer 7

首先感谢大家的参与！
同意Wuxyingshu(无影石)的说法！不能说是吹毛求疵，我对每一个方面都很认真！
这绝对不是浮躁！
我的程序还有些bug我要仔细看看，不能多说了！