怎么保持窗体最大化? 最简单的方法试再onsize中设置mode=max.. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Private Sub Form_Resize()Me.WindowState = 2End Sub或者用api去掉最大化或最小化按钮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 = &H20000Const WS_MAXIMIZEBOX = &H10000Const GWL_STYLE = (-16)Dim lWnd As LonglWnd = GetWindowLong(Me.hwnd, GWL_STYLE)lWnd = lWnd And Not (WS_MINIMIZEBOX) 'remove maxButtonlWnd = lWnd And Not (WS_MAXIMIZEBOX) 'remove minButtonlWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)将最大化或最小化按钮从窗口菜单中去掉hMenu = GetSystemMenu(Me.hWnd, False)Me.Top = 0Me.Left = 0Me.WindowState = 2DeleteMenu hMenu, 4, &H400& '最大化DeleteMenu hMenu, 2, &H400& '移动DeleteMenu hMenu, 1, &H400& '大小'DeleteMenu hMenu, 0, &H400& '恢复 vb 中如何打开各种类型文件 救命啊............. 紧急求助---一个虚拟内存释放问题,在线等待,谢谢 有什么方法让MSFlexGrid的每个格自动调整到适合的大小,即可以完全显示格里的内容啊? 蒙了,蒙了。点一下。listbox,cmobobox 在VB中怎么样去改变一个定义了的word文件中的控件的属性!!!!高分求救!! 模糊查询,遇到问题。 ?(两库结构相同) 谁有关于icon提取保存的源码。 我想用vb处理dwg文件,但是不知道文件格式,望各位高手指教。 属性页怎么用 请问高手,我有一个做电子黑板的问题 急急急!!!!
Me.WindowState = 2
End Sub
或者用api去掉最大化或最小化按钮
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& '恢复