各位进来看看,看看着该怎么办

阿木的汤 2003-08-22 01:22:39
如何是一个form的close button变灰且不可用
...全文
93 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
xingnup 2003-08-22
  • 打赏
  • 举报
回复
up
射天狼 2003-08-22
  • 打赏
  • 举报
回复
楼上好快啊~~
射天狼 2003-08-22
  • 打赏
  • 举报
回复
Option Explicit


Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex 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 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 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 Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Const SC_CLOSE = &HF060
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)



Private Sub Form_Load()

Dim TempLng As Long

RemoveMenu GetSystemMenu(Me.hwnd, 0), SC_CLOSE, MF_REMOVE


TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)

TempLng = TempLng And Not WS_MINIMIZEBOX '最小化

TempLng = TempLng And Not WS_MAXIMIZEBOX '最大化

SetWindowLong Me.hwnd, GWL_STYLE, TempLng

End Sub



zqfleaf 2003-08-22
  • 打赏
  • 举报
回复
http://support.microsoft.com/default.aspx?scid=kb;en-us;184686
阿木的汤 2003-08-22
  • 打赏
  • 举报
回复
每人理我

1,485

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧