VB中有什么代码可以控制windows里开始按钮的弹出,并调用菜单中的各程序?

请大家指点小弟,我想编个能在自己的程序里控制windows开始按钮,让它弹出或不弹出,并能打开开始菜单里的程序. 问题点数：20、回复次数：8Top

1 楼wweilinux（王玮）回复于 2004-09-24 20:07:43 得分 0

怎么没人帮我解答啊?是不是问题问得不够清楚?Top

2 楼laviewpbt（人一定要靠自己）回复于 2004-09-24 20:12:11 得分 10

Private   Declare   Sub   keybd_event   Lib   "user32"   (ByVal   bVk   As   Byte,   ByVal   bScan   As   Byte,   ByVal   dwFlags   As   Long,   ByVal   dwExtraInfo   As   Long)  
  Private   Const   VK_LWIN   =   &H5B  
  Private   Const   KEYEVENTF_KEYUP   =   &H2  
  Private   Const   VK_APPS   =   &H5D  
  Private   Const   VK_PLAY   =   &HFA  
  Private   Sub   Command2_Click()  
  Call   keybd_event(VK_LWIN,   0,   0,   0)  
      call   keybd_event(&H5B,   0,   0,   0)  
      Call   keybd_event(VK_LWIN,   0,   KEYEVENTF_KEYUP,   0)  
  End   Sub  
  Top

3 楼wweilinux（王玮）回复于 2004-09-24 20:28:06 得分 0

上面的代码怎么加到程式中去?我有一个类似windows桌面和开始菜单的界面了.Top

4 楼wada0880（丹丹）回复于 2004-09-24 20:37:31 得分 0

用sendkeys方法去发送键盘键Top

5 楼wweilinux（王玮）回复于 2004-09-25 20:10:01 得分 0

sendkeys方法具体怎么用?Top

6 楼cso（无聊中...）回复于 2004-09-25 20:14:31 得分 0

SendKeys   "该键在键盘注明的名称"  
   
  这就为我们利用其他程序中的快捷键提供了可能，进而我们就可以在自己的程序中控制其他程序的动作。如果我们想发送Ctrl+V这个粘贴的指令，就可以用以下语句：  
   
  　　SendKeys   "^c"  
   
  　　其中Ctrl用“^”来代替。类似的组合键还有Shift和Alt，分别用“+”和“%”Top

7 楼zhangzumiao（梦里水香）回复于 2004-09-25 20:47:27 得分 0

用   WIN健。或。CRTL+ESCTop

8 楼lxcc（）回复于 2004-09-25 23:35:41 得分 10

Option   Explicit  
  '注释：有关   API   函数的注释，将在最后详细说明  
  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   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  
  Const   SW_HIDE   =   0  
  Const   SW_SHOW   =   5  
  Dim   wnd   As   Long  
  Public   Function   ShowHideTaskbar(ByVal   Part   As   String,   ByVal   Action   As   String)  
  '注释:   获得任务栏的窗口句柄  
  wnd   =   FindWindow("Shell_TrayWnd",   vbNullString)  
   
  Select   Case   Part  
  Case   "任务栏"  
  Case   "开始菜单"  
  wnd   =   FindWindowEx(wnd,   0,   "Button",   vbNullString)  
  Case   "图标"  
  wnd   =   FindWindowEx(wnd,   0,   "TrayNotifyWnd",   vbNullString)  
  Case   "程序按钮"  
  wnd   =   FindWindowEx(wnd,   0,   "ReBarWindow32",   vbNullString)  
  wnd   =   FindWindowEx(wnd,   0,   "MSTaskSwWClass",   vbNullString)  
  Case   "时钟"  
  wnd   =   FindWindowEx(wnd,   0,   "TrayNotifyWnd",   vbNullString)  
  wnd   =   FindWindowEx(wnd,   0,   "TrayClockWClass",   vbNullString)  
  Case   "快速启动"  
  wnd   =   FindWindowEx(wnd,   0,   "ReBarWindow32",   vbNullString)  
  wnd   =   FindWindowEx(wnd,   0,   "ToolbarWindow32",   vbNullString)  
  End   Select  
   
  If   Action   =   "显示"   Then   ShowWindow   wnd,   SW_SHOW  
  If   Action   =   "隐藏"   Then   ShowWindow   wnd,   SW_HIDE  
  End   Function  
   
  Private   Sub   Command1_Click()  
          ShowHideTaskbar   "开始菜单",   "隐藏"  
  End   Sub  
   
  Private   Sub   Command2_Click()  
          ShowHideTaskbar   "开始菜单",   "显示"  
  End   Sub  
  Top

相关问题

• 控制
• 程序
• wnd
• 弹出
• 按钮
• byval
• 菜单
• lwin
• 注释
• vbnullstring

• 帖主：wweilinux
• laviewpbt
• lxcc

• Visual Basic类图书
• Visual Basic类源码下载