发信人: i_can()
整理人: winsy(2003-03-05 16:24:23), 站内信件
|
【 在 chendy (cdy) 的大作中提到: 】
: VB中如何将窗体右上角的关闭纽去掉？ 或者告诉我单击关闭钮的事件。
: mail to:[email protected]
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Lon
g, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long,
ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function AppendMenu Lib "User32" Alias "AppendMenuA" (
ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, B
yVal lpNewItem As Any) As Long
Private Declare Function GetMenuString Lib "User32" Alias "GetMenuStri
ngA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As St
ring, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
Const WM_NCLBUTTONDBLCLK = &HA3
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Const MF_STRING = &H0&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060
Private hMenu As Long
Private CloseStr As String
Private Sub Form_Load()hMenu = GetSystemMenu(Me.hwnd, 0)
CloseStr = String(255, 0)
Call GetMenuString(hMenu, SC_CLOSE, CloseStr, 256, MF_BYCOMMAND)
CloseStr = Left(CloseStr, InStr(1, CloseStr, Chr(0)) - 1)
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
End Sub
--
七里
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.102.47.15]
|
|