UC知道紧急求助：vb中打开文件
来源：百度知道 编辑：UC知道 时间：2024/05/31 04:09:44
要打开的文件有word caj kdh
为什么运行时点击字段却没有反应，麻烦高手给我改一下，谢谢了！
Private Sub DataGrid1_Click()
Select Case DataGrid1.Text
Case ".caj"
retval = Shell("D:\Program Files\TTKN\CAJViewer 7.0\CAJViewer.exe d:\vb\gb\" & DataGrid1.Text & ".caj")
Case ".doc"
retval = Shell("C:\Program Files\Microsoft Office\OFFICE11\winword.exe d:\vb\gb\" & DataGrid1.Text & ".doc")
Case ".kdh"
retval = Shell("D:\Program Files\TTKN\CAJViewer 7.0\CAJViewer.exe d:\vb\gb\" & DataGrid1.Text & ".kdh")
End Select
End Sub
我还是没有实现功能，能否请高手说的更详细点，我不知道怎么来写，不论哪个文件在那行查出，点击即能打开文件，
为什么运行时点击字段却没有反应，麻烦高手给我改一下，谢谢了！
Private Sub DataGrid1_Click()
Select Case DataGrid1.Text
Case ".caj"
retval = Shell("D:\Program Files\TTKN\CAJViewer 7.0\CAJViewer.exe d:\vb\gb\" & DataGrid1.Text & ".caj")
Case ".doc"
retval = Shell("C:\Program Files\Microsoft Office\OFFICE11\winword.exe d:\vb\gb\" & DataGrid1.Text & ".doc")
Case ".kdh"
retval = Shell("D:\Program Files\TTKN\CAJViewer 7.0\CAJViewer.exe d:\vb\gb\" & DataGrid1.Text & ".kdh")
End Select
End Sub
我还是没有实现功能，能否请高手说的更详细点，我不知道怎么来写，不论哪个文件在那行查出，点击即能打开文件，
DataGrid1.Text 里面到底是什么？
是：123.doc？
是：123 ?
是：.doc ?
------------
看你的语句：
Select Case DataGrid1.Text
Case ".caj"
似乎是后缀名
----------
但是看：
gb\" & DataGrid1.Text & ".kdh"
好像里面又是没有后缀名的名字。
--------
如果是123.doc全名
那么Select Case DataGrid1.Text 改为Select Case right（DataGrid1.Text，4）
gb\" & DataGrid1.Text & ".kdh" 改为gb\" & DataGrid1.Text
----------
用shellexec这个API函数吧