none
Windows API 之 HWnd RRS feed

  • 問題

  • 我在網路上找到這串程式碼,是要讓關閉紐沒作用:

    Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
    Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu 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 hSysMenu As Long, nCnt As Long
    hSysMenu = GetSystemMenu(Me.hwnd, False)
    nCnt = GetMenuItemCount(hSysMenu)
    RemoveMenu hSysMenu, nCnt - 1, &H1400&
    End Sub

    但是在"hSysMenu = ......(Me.hwnd, False) 的地方會出現錯誤:'hwnd' 不是 'TextEdit.Form1' 的成員。

    為甚麼會出現這樣?API只有VB6能用嗎?還是有別的方法可以達成我要的效果?

    2011年8月3日 下午 12:36

解答

  • 請將:

    hSysMenu = GetSystemMenu(Me.hwnd, False)

    改成:

    hSysMenu = GetSystemMenu(Me.Handle, False)

    • 已標示為解答 張源峷 2011年8月4日 上午 06:47
    2011年8月4日 上午 02:13

所有回覆