请网络编程高手帮帮我的忙!帮我封闭窗口上的X!最好作个教程!
让窗体的关闭按钮按了没有反应－－－－－－－－－－－－－－－－－－－－－－－－privatE Sub Form_UnLoad(Cancel As Integer)Cancel = True让窗体的关闭按钮失效－－－－－－－－－－－－－－－－－－－－－－－－Public Declare Function GetSysteMMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As LongPublic Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As LongPublic Const MF_BYPOSITION = &H400&Sub DeleteXButton(ByVal hwnd As Long)Dim theSystemMenu As LongtheSystemMenu = GetSystemMenu(hwnd, 0)Call DeleteMenu(theSystemMenu, 6, MF_BYPOSITION)Call DeleteMenu(theSystemMenu, 5, MF_BYPOSITION)End Sub
