VB制作快捷打开电脑里的应用软件比如:我的电脑网上邻居等....-优快云博客

本文介绍如何使用Visual Basic (VB) 编程语言为我的电脑、网上邻居等常用软件创建快捷打开界面，通过编写简单的代码实现一键访问常用功能，提升操作效率。

VB制作快捷打开电脑里的应用软件比如:我的电脑网上邻居等....
2011年05月31日
　　Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
　　Const SW_SHOWNORMAL = 1
　　Private Sub Command1_Click(Index As Integer)
　　Select Case Index
　　Case 0
　　'我的文档
　　ShellExecute Me.hwnd, "open", "explorer", vbNullString, vbNullString, 1
　　Case 1
　　'我的电脑
　　ShellExecute Me.hwnd, "open", "explorer", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbnulstring, 1
　　Case 2
　　'网上邻居
　　ShellExecute Me.hwnd, "open", "explorer", "::{208d2c60-3aea-1069-a2d7-08002b30309d}", vbNullString, 1
　　Case 3
　　'回收站
　　ShellExecute Me.hwnd, "open", "explorer", "::{645ff040-5081-101b-9f08-00aa002f954e}", vbNullString, 1
　　Case 4
　　'控制面板
　　ShellExecute Me.hwnd, "open", "explorer", "::{21ec2020-3aea-1069-a2dd-08002b30309d}", vbNullString, 1
　　End Select
　　End Sub