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