计算机窗口右上角 我电脑窗口右上角的关闭按钮跑到左上角去了 怎么把它调回右上角啊?...

右上角的上关闭按钮)

新建一个工程，什么也不用做，直接把这写代码复制粘贴到工程代码里就行，运行看！

Option Explicit

Private Declare Function DeleteMenu Lib user32 (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Declare Function GetMenuItemCount Lib user32 (ByVal hMenu As Long) As Long

Private Declare Function GetSystemMenu Lib user32 (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Const HWND_TOPMOST = -1 '让X为假值

Const SWP_SHOWWINDOW = &H40

Private Const DJ_BYPOSITION = &H400&

Private Sub Form_Load()

Dim hwndMenu As Long

Dim c As Long

hwndMenu = GetSystemMenu(Me.hwnd, 0)

c = GetMenuItemCount(hwndMenu)

DeleteMenu hwndMenu, c - 1, DJ_BYPOSITION

End Sub

取消

评论