如题。
难道要利用API不成?
还有怎么让子窗体最大化?
难道要利用API不成?
还有怎么让子窗体最大化?
解决方案 »
- 请帮忙纠错~~谢谢
- excel连接mdb,你有哪些好方法?
- 菜鸟问题—关于WebBrowser的问题(在线等!)
- 怎样用WEBBROWSER 不让他显示活动的小窗口
- 小弟的毕业设计大家帮帮忙吧!用VB做一个ATM机
- 紧急求救。。。。。。。。。。。
- 请教一个vb中图形的处理问题
- 各位大侠,我想用VB实现多线程,如何做?小弟在线急等,QQ:19671554
- OLE与数据记录的问题(在线等待,散分)
- 我有很多TXT文件,每个汉字后都跟着一个空格,请问如何编程将其删除并转换成正常文本?
- 如何得知已经到了DataGrid的最后一行呢?
- winsock调用close后,端口处于TIMED_WAIT状态请问如何释放该端口
.WindowState =2
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 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
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const GWL_STYLE = (-16)
Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&
Private Sub MDIForm_Load()
Dim lWnd As Long
DisableX
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
Private Sub DisableX()
Dim hMenu, nCount, LO As Long
hMenu = GetSystemMenu(Me.hwnd, 0)
nCount = GetMenuItemCount(hMenu)
LO = RemoveMenu(hMenu, nCount - 3, MF_REMOVE Or MF_BYPOSITION)
LO = RemoveMenu(hMenu, nCount - 4, MF_REMOVE Or MF_BYPOSITION)
End Sub