欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

如何屏蔽掉窗體中的關(guān)閉按鈕X？

問(wèn)：如何屏蔽掉窗體中的關(guān)閉按鈕X？
答：可以使用API函數將窗體菜單中的 關(guān)閉 項灰掉，因為菜單同關(guān)閉按鈕是關(guān)聯(lián)的，這樣關(guān)閉
按鈕也會(huì )不可用。具體代碼如下：

Option Explicit

Private Declare Function GetSystemMenu Lib "user32" _

(ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "user32" _

(ByVal hMenu As Long, ByVal nPosition As Long, _

ByVal wFlags As Long) As Long

Private Declare Function EnableMenuItem Lib "user32" _

(ByVal hMenu As Long, ByVal wIDEnableItem As Long, _

ByVal wEnable As Long) As Long

Const SC_CLOSE = &HF060

Private Sub Form_Load()

Dim hMenu As Long

hMenu = GetSystemMenu(Me.hwnd, 0)

RemoveMenu hMenu, &HF060, &H200&

Debug.Print EnableMenuItem(hMenu, SC_CLOSE, 1)

End Sub