首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

怎样在VB中调用"小弟我的电脑"

2011-12-28 
怎样在VB中调用我的电脑哪位能给我讲下啊怎样在VB中调用我的电脑我用Shell(pathname[,windowstyle])试着

怎样在VB中调用"我的电脑"
哪位能给我讲下啊
      怎样在VB中调用我的电脑
      我用Shell(pathname[,windowstyle])      
      试着打开C盘也不行啊

[解决办法]
shellExecute() 这个Win32 API
或者
Shell "explorer c:\ ", vbNormalFocus



[解决办法]
楼上的可以,或者

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() '我的文档
ShellExecute Me.hwnd, "open ", "explorer ", vbNullString, vbNullString, 1
End Sub

Private Sub Command2_Click() '我的电脑
ShellExecute Me.hwnd, "open ", "explorer ", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D} ", vbnulstring, 1

End Sub

Private Sub Command3_Click() '网上邻居
ShellExecute Me.hwnd, "open ", "explorer ", "::{208d2c60-3aea-1069-a2d7-08002b30309d} ", vbNullString, 1
End Sub

Private Sub Command4_Click() '回收站
ShellExecute Me.hwnd, "open ", "explorer ", "::{645ff040-5081-101b-9f08-00aa002f954e} ", vbNullString, 1
End Sub

Private Sub Command5_Click() '控制面板
ShellExecute Me.hwnd, "open ", "explorer ", "::{21ec2020-3aea-1069-a2dd-08002b30309d} ", vbNullString, 1
End Sub

热点排行