恋老夕阳老伯鸡:请网络编程高手帮帮我的忙!帮我封闭窗口上的X!最好作个教程!

来源：百度文库 编辑：中科新闻网 时间：2024/05/07 02:04:07
本人有一个软件,想请哪位高手,帮我封了那个X,如果有教程更好!软件地址:
http://219.134.128.58/cgi-bin/dl/51367BBB9FFEA176BA49B0FC5207979CAC26B269430D4942C7EA705766262D1391D6FCC9738C7E031B49E2BD30CEE3251EE4D39454EE6C687B689452C373CF966C62C3D5EBD74AC0A97CDF37058B910CCF8E0A095B4AE9C52905/请高手帮我封X.rar

如果封不掉的话,那么请给我编为启动后0秒最小化!

做好后请发给xulang_19980313@163.com或285970451@QQ.COM 也可以直接加我的QQ发给我,但是要验证.
或是上传后,把地址发过来也可以!
请帮我做好了发过来！最好能自己缩小到看不到，
可能的话给我按个快键

让窗体的关闭按钮按了没有反应
－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub

让窗体的关闭按钮失效
－－－－－－－－－－－－－－－－－－－－－－－－
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Const MF_BYPOSITION = &H400&

Sub DeleteXButton(ByVal hwnd As Long)
Dim theSystemMenu As Long
theSystemMenu = GetSystemMenu(hwnd, 0)
Call DeleteMenu(theSystemMenu, 6, MF_BYPOSITION)
Call DeleteMenu(theSystemMenu, 5, MF_BYPOSITION)
End Sub

请网络编程高手帮帮我的忙!帮我封闭窗口上的X!最好作个教程! 网络高手请帮帮我! 请编程高手近来帮帮我，谢谢。 请编程高手或网络高手尽快帮我兄弟找到vb.net需要的硬件配置和软件环境。 现金请高手帮编程~~~~~~~~~~~有的加我QQ80156052+编程 vb编程的高手，帮帮我吧！ 请帮我编程 请各位网络高手帮帮我？？ 各位编程高手帮帮我 编程高手，帮帮我，谢谢！