7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
cqs76 2003-08-22
- 打赏
- 举报
我的意思是在设计的时候对此类设置都取默认值，在运行时动态设置？
danielinbiti 2003-08-22
- 打赏
- 举报
Option Explicit
Private hMenu As Long
Private CloseStr As String
Const WM_NCLBUTTONDBLCLK = &HA3
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Const MF_STRING = &H0&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060
Private Sub Command2_Click()
hMenu = GetSystemMenu(Form1.hwnd, 0)
CloseStr = String(255, 0)
GetMenuString hMenu, SC_CLOSE, CloseStr, 256, MF_BYCOMMAND
CloseStr = Left(CloseStr, InStr(1, CloseStr, Chr(0)) - 1)
DeleteMenu hMenu, SC_CLOSE, MF_BYCOMMAND
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub
Private hMenu As Long
Private CloseStr As String
Const WM_NCLBUTTONDBLCLK = &HA3
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Const MF_STRING = &H0&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060
Private Sub Command2_Click()
hMenu = GetSystemMenu(Form1.hwnd, 0)
CloseStr = String(255, 0)
GetMenuString hMenu, SC_CLOSE, CloseStr, 256, MF_BYCOMMAND
CloseStr = Left(CloseStr, InStr(1, CloseStr, Chr(0)) - 1)
DeleteMenu hMenu, SC_CLOSE, MF_BYCOMMAND
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub
lihonggen0 2003-08-22
- 打赏
- 举报
在设计时设置MaxButton 属性为False
射天狼 2003-08-22
- 打赏
- 举报
不过只能在设计阶段，在运行时设置不行。
AustinLei 2003-08-22
- 打赏
- 举报
MaxButton=False
射天狼 2003-08-22
- 打赏
- 举报
设置窗口的MaxButton 属性为False
cqs76 2003-08-22
- 打赏
- 举报
我是想在必要的时候，不让客户点击最大化！
