主题:[原创]急!!!!!求助
'打开文件
Private Sub MenuOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuOpen.Click
Dim filesuffix As String '文件扩展名
Dim tempstr As String
For Each litem In lvfileviewer.SelectedItems
tempstr = litem.Tag
filesuffix = tempstr.Substring(tempstr.IndexOf(".") + 1).ToLower
Select Case filesuffix
Case "exe"
WinExec(litem.Tag, 1) '第一个参数为文件的路径,第二个参数为文件打开的方式,1为正常显示方式
Case "bat"
WinExec(litem.Tag, 1)
Case "txt"
WinExec("notepad" + litem.Tag, 1)
Case "doc"
WinExec("c:\program files\microsoft office\OFFICE11\winword" + litem.Tag, 1)
Case Else
MsgBox("本程序未给该类型的文件做相关的链接", MsgBoxStyle.OKOnly, "警告")
End Select
Next
End Sub
为什么我在listview中左击一个文件的时候打开时他会说没有做连接
Private Sub MenuOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuOpen.Click
Dim filesuffix As String '文件扩展名
Dim tempstr As String
For Each litem In lvfileviewer.SelectedItems
tempstr = litem.Tag
filesuffix = tempstr.Substring(tempstr.IndexOf(".") + 1).ToLower
Select Case filesuffix
Case "exe"
WinExec(litem.Tag, 1) '第一个参数为文件的路径,第二个参数为文件打开的方式,1为正常显示方式
Case "bat"
WinExec(litem.Tag, 1)
Case "txt"
WinExec("notepad" + litem.Tag, 1)
Case "doc"
WinExec("c:\program files\microsoft office\OFFICE11\winword" + litem.Tag, 1)
Case Else
MsgBox("本程序未给该类型的文件做相关的链接", MsgBoxStyle.OKOnly, "警告")
End Select
Next
End Sub
为什么我在listview中左击一个文件的时候打开时他会说没有做连接