50分：如何让开始菜单在指定位置弹出？

Question

显示开始菜单的方法有很多，但如何做得就象自己的一个弹出菜单一样，从某个位置（比如鼠标当前位置）弹出？个人不太确定是否能实现，但CSDN上藏龙卧虎，应该有办法……
谢谢

Answer 1

是的，windows的开始菜单。
麻烦2楼的测试一下？
谢谢

Answer 2

开始菜单是一个窗口来的,你找到他的句柄以后用API移动最后在ShowWindow看看可以吗

Answer 3

努力了一天，还有很多问题：Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Const SW_SHOWNORMAL = 1
Private Const SWP_SHOWWINDOW = &H40
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const BM_CLICK = &HF5
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As LongPrivate Function GetHwnd(buttonHwnd As Long, MenuHwnd As Long) As Boolean
Dim LhWnd As Long
Dim StartMenuHwnd As Long
LhWnd = FindWindow("Shell_TrayWnd", vbNullString)
buttonHwnd = FindWindowEx(LhWnd, 0, "Button", vbNullString)
StartMenuHwnd = FindWindow("DV2ControlHost", vbNullString)
If StartMenuHwnd = 0 Then
    StartMenuHwnd = FindWindow("BaseBar", vbNullString)
End If
MenuHwnd = StartMenuHwnd
End FunctionPrivate Sub Command1_Click()
Dim hwnd As Long, bHwnd As Long
Dim myRect As RECT
GetHwnd bHwnd, hwnd
SendMessage bHwnd, BM_CLICK, 0&, 0& '开始 按钮
GetWindowRect hwnd, myRect '理论上是开始菜单，可见开始菜单其实是个“窗体”
'ShowWindow hwnd, SW_SHOWNORMAL
Print myRect.Top, myRect.Right'这个地方好象不加个操作就会有问题。在IDE下尤其明显
'SetWindowPos hwnd, 0, 200, 200, 200, 350, SWP_SHOWWINDOW
MoveWindow hwnd, 200, 200, 220, 300, True '无法获得其宽度和高度
End Sub除了注释的问题，还有就是显示后必须有个操作才能关闭菜单……

Answer 4

mnu1 为窗体上设计的菜单名PopupMenu mnu1 '直接在当前鼠标位置弹出菜单
PopupMenu mnu1, ,x, y '在坐标(x,y)处弹出菜单

Answer 5

Tiger_Zhao(VB老鸟) ,是windows的开始菜单，而不是我自己的菜单啊Alzzl(果子林) ，的确是我没说清楚。我希望的是：在我自己的程序窗体的一个按钮上点击的时候，在按钮旁边（也就是鼠标所在位置了）弹出WINDOWS的开始菜单……，不知道说清楚了没有？

Answer 6

lz,你的代码中所出现的问题的原因是这样的：
每当我们按下win键或者点击开始菜单时，explorer。exe都会为开始菜单重置位置，因此你的代码虽然模拟了开始按钮按下的操作，但是由于你代码中重置位置的代码与上一行，点击开始按钮的操作间隔十分的小，2行代码的延时可以十分轻松的超过，点击开始按钮至显示出开始菜单的时间，所以开始菜单的位置虽然被你改变了，但是随后又被explorer所重置，所以看上去好像，位置没有改变一样

Answer 7

对了 还有个问题是 ，是自己设置了开始菜单的大小，这时万万不可的，因为在windowsxp与windows经典的主题中，开始菜单的尺寸是不一样的，并且在这2个主题中设置普通的开始菜单和经典的开始菜单的尺寸也是不一样的，也就是说一般的系统（不包括可能安装新的windows主题）就有4种开始菜单的尺寸

Answer 8

以下是我的代码，解决了如上2个问题，开始菜单的位置在（200，200）根据需要自己设置吧
虽然代码很简单，但是应该能拿满50分吧Private Type RECT
        Left As Long
        Bottom As Long
        Right As Long
        Top As Long
End Type
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private hWndSMenu As Long, rSMenu As RECTPrivate Sub Command1_Click()
hWndSMenu = FindWindow("DV2ControlHost", "「开始」菜单")
GetWindowRect hWndSMenu, rSMenu
MoveWindow hWndSMenu, 200, 200, rSMenu.Right - rSMenu.Left, rSMenu.Top - rSMenu.Bottom, True
ShowWindow hWndSMenu, 1End Sub

Answer 9

谢谢，你的代码有以下问题：
鼠标在显示的开始菜单上移动的时候，菜单没有选中的的效果
切换为经典的时候无效
原因不仅仅因为hWndSMenu = FindWindow("DV2ControlHost", "「开始」菜单")之外还可能是hWndSMenu = FindWindow("BaseBar", vbNullString)
问题的关键在于，经典模式下的菜单GetWindowRect hWndSMenu, rSMenu无法取得正确的值。
请继续关注，谢谢。

Answer 10

PopupMenu 不是已经提供这个功能了吗?为什么那么费事去做呢?PopupMenu menuHandl, flag, X, Yx,y 随便你指定位置就可以了啊

Answer 11

怎么还是没明白呢？前面说了，windows的开始菜单其实是一个窗体！不是普通的菜单！PopupMenu可以吗？

Answer 12

通过分析资源文件看,windows的开始菜单应该是菜单,好象不是窗体