VB 关于Webbrowser文件夹路径

来源：百度知道 编辑：UC知道 时间：2024/05/10 06:43:41
我用Webbrowser控件做了一个浏览器,用来显示本地的文件夹,如:C:\,现在我想实现以下功能:
1.选中某个文件夹后(单击选中,不是双击也不是其他事件),能得到这个文件夹的路径.(注意不是在Dri控件中,我强调是在Webbrowser里的)
2.添加一些按钮,能实现以下功能:
Command1 复制,对选中的文件夹复制(单击选中,其他不行)
C2mmand2 删除, 同上
Command3 剪切,同上
Command4 粘贴,同上
Command5 撤消,同上
Webbrowser能够很好地实现文件的拖放功能,不像Dir要弄API函数,我打算做一个资源管理器!高手指教!

Enum CommandNumber
复制 = 0
粘贴 = 1
剪切 = 2
删除 = 3
撤消 = 4
End Enum

Private Sub Form_Load()
WebBrowser1.Navigate "c:\"
End Sub

Private Sub WebBrowser1_TitleChange(ByVal Text As String)
Me.Caption = Text
End Sub

Private Sub Command1_Click()
RunCommand 复制
End Sub

Private Sub Command2_Click()
RunCommand 删除
End Sub

Private Sub Command3_Click()
RunCommand 剪切
End Sub

Private Sub Command4_Click()
RunCommand 粘贴
End Sub

Private Sub Command5_Click()
RunCommand 撤消
End Sub

Sub RunCommand(CmdNum As CommandNumber)
CmdArr = Array("^(c)", "^(v)", "^(x)", "{DEL}", "^(z)")
WebBrowser1.SetFocus
SendKeys CmdArr(CmdNum)
End Sub

只有那几个事件 似乎不行~~
PS:在XP中非经典界面时 WEBBROWSER会显示左侧