VisualBasic 學習資料
全部展開
-
清除表單右上方之關閉按鈕 (X) 的功能
VB 的表單 (Form) 上, 設有最大化及最小化按鈕的屬性設定, 但沒有提供設定關閉按鈕的屬性, 為了達到此目的, 唯有使用 API, 這方法是小弟現時知道的最佳方法
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 Sub Form_Load()
Dim n_SysMenu As Long
n_SysMenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu n_SysMenu, 6, 1024
RemoveMenu n_SysMenu, 5, 1024
End Sub
電腦學習區 - VisualBasic (h07show)
If you would like to contact me, please feel free E-Mail to:
jacky@ranseco.com