vb中如何将一个窗体的最小化最大化关闭三个按钮禁用启用
谢谢再线等!
谢谢再线等!
解决方案 »
- 求VB调用 xml rpc相关简短例子
- 关于相对路径和绝对路径的问题,help!
- 请问一下:我用PowerPoint控件在窗体中做了一个幻灯片,应该怎么放映啊????急用,请大家帮个忙
- 微软没有说怎么办的问题,怎么解决呢?
- 一个恼火的问题
- 请问一下VB高手~~如何在这程序(winsock)基础下~继续编程可以传送图片文件、声音文件?最好给些代码来看看~~谢谢拉~下面是我已经完成好的程序代码,只能传
- 哥们急死了,谁能帮我找到图表的控件!万分感谢!
- 怎么提高访问Com+的速度?
- 真丢人!
- 哪里有可用的VB3反编译工具
- 关于注释问题:(今天内给分)
- 在ACCESS数据库中怎么实现关于日期型字节的查询?
自己好好看看,
max开头的那个.
想要三个都没,那就改变窗体的样式.
想要关闭按钮无效,得用API函数.
把窗体的controlbox属性=false
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As LongConst MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&Private Sub Form_Load()
Dim hSysMenu As Long
Dim nCnt As Long
Me.Show
hSysMenu = GetSystemMenu(Me.hwnd, False)
If hSysMenu Then
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 3, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 4, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 5, MF_BYPOSITION Or MF_REMOVE
DrawMenuBar Me.hwnd
End If
End If
End Sub