UC知道vb的通用对话框问题，小白求助
来源：百度知道 编辑：UC知道 时间：2024/07/05 07:33:34
Private Sub Command1_Click()
On Error Resume Next
Dim strtxt$
CommonDialog1.DialogTitle = "通过对话框示例-打开对话框"
CommonDialog1.InitDir = "E:\My Documents\VB"
CommonDialog1.Filter = "AutoCAD文档（*.dwg）|*.dwg|所有文件（*.*）|*.*"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
If Err.Number = 0# Then
Do While Not EOF(1)
Line Input #1, strtxt
Text1 = Text1 + strtxt + vbCrLf
Loop
Close #1
End If
End Sub
通过单击按钮 跳转至windows自带的打开对话框
但是选中文件后打不开 比如说E:\My Documents\VB\draw1.dwg
点击打开对话框中的 打开按钮不管用
使用了commondialog的这个插件
谁能知道如何修改、
本人不胜感激
On Error Resume Next
Dim strtxt$
CommonDialog1.DialogTitle = "通过对话框示例-打开对话框"
CommonDialog1.InitDir = "E:\My Documents\VB"
CommonDialog1.Filter = "AutoCAD文档（*.dwg）|*.dwg|所有文件（*.*）|*.*"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
If Err.Number = 0# Then
Do While Not EOF(1)
Line Input #1, strtxt
Text1 = Text1 + strtxt + vbCrLf
Loop
Close #1
End If
End Sub
通过单击按钮 跳转至windows自带的打开对话框
但是选中文件后打不开 比如说E:\My Documents\VB\draw1.dwg
点击打开对话框中的 打开按钮不管用
使用了commondialog的这个插件
谁能知道如何修改、
本人不胜感激
启动用API winexec这个函数。
给你看一个例子，自己体会一下。
Public Sub OpenFile() '打开
If Changed = True Then
SaveIt = MsgBox("文档内容已经更改，是否保存？", 51, "提示...")
If SaveIt = 2 Then
Cancel = 1
Exit Sub
End If
If SaveIt = 6 Then SaveFile
If SaveIt = 7 Then OpenFile
Else
MainForm.Dialog1.CancelError = True
On Error GoTo ErrHandler
MainForm.Dialog1.Filter = FileFilter
MainForm.Dialog1.FLAGS = &H4
MainForm.Dialog1.ShowOpen
If MainForm.Dialog1.filename = "" Then Exit Sub
filename = MainForm.Dialog1.filename
MainForm.TxtEdit.LoadFile filename, 1
Changed = False
ErrHandler:
End If
Exit Sub
End Sub
只是得到这个文件的文件名和路径！然后你可以对这个文件操作，比如
shell "C:\Program Files\AutoCAD 2002\acad.exe " & CommonDialog1.FileName
是CAD文件，你这样直截了当的打开，当然是开不了的，不过一楼以回答了你的问题了