在VB中调用了以下程序,弹出“打开”对话框,点击“打开”按钮,无反应。
这段程序的问题在哪?
设计目的:点击“打开”按钮,可以打开选中的文件Private Sub cmdload3d_Click()
Dim swApp As SldWorks.SldWorks
Dim fn As String
Dim FileName As String
Dim longwarnings As Long
Dim longstatus As Long
Set swApp = Application.SldWorksWith CommonDialog1
.flags = &H4
.CancelError = True
End WithCommonDialog1.Filter = "SolidWorks文件(*.sldprt;*.sldasm;*.slddrw)|*.sldprt;*.sldasm;*.slddrw|零件(*.prt;*.sldprt)|*.prt;*.sldprt|装配体(*.asm;*.sldasm)|*.asm;*sldasm|工程图(*.drw;*.slddrw)|*.drw;*.slddrw|All Files (*.*)|*.* "
CommonDialog1.ShowOpen
FileName = swApp.OpenDoc6("E:\", 2, 0, "", longstatus, longwarnings)
fn = CommonDialog1.FileName
End sub
这段程序的问题在哪?
设计目的:点击“打开”按钮,可以打开选中的文件Private Sub cmdload3d_Click()
Dim swApp As SldWorks.SldWorks
Dim fn As String
Dim FileName As String
Dim longwarnings As Long
Dim longstatus As Long
Set swApp = Application.SldWorksWith CommonDialog1
.flags = &H4
.CancelError = True
End WithCommonDialog1.Filter = "SolidWorks文件(*.sldprt;*.sldasm;*.slddrw)|*.sldprt;*.sldasm;*.slddrw|零件(*.prt;*.sldprt)|*.prt;*.sldprt|装配体(*.asm;*.sldasm)|*.asm;*sldasm|工程图(*.drw;*.slddrw)|*.drw;*.slddrw|All Files (*.*)|*.* "
CommonDialog1.ShowOpen
FileName = swApp.OpenDoc6("E:\", 2, 0, "", longstatus, longwarnings)
fn = CommonDialog1.FileName
End sub
解决方案 »
- 如何捕捉 ListView 滚动条事件
- 字符串问题
- 很简单的数组问题(送分了)
- 征集"洗浴"系统软件.合适现金购买!
- 在字符串中按一定间隔插入“,”,怎么实现?(高分跪求)
- 为什么GetDC(Picture1.hwnd)的返回值和Picture1.hDc不一样,谁能告诉我?
- 对象已打开,不能操作,如何解决我的问题?
- 在SQL-Server数据库中误删记录,如何找回?急~~~~~~~~~~在线等.......
- 请问处理事务时,connection的Cursorlocation一定要用adUseServer,不能用adUerClient吗?
- 数据库查找的问题!!
- vb的问题。。
- 关于VB结构体的问题
CommonDialog1.ShowOpen只是选择你要打开的文件(也就是返回一个文件路径给你),至于具体的打开操作,还得自己编程实现。
这个打开操作怎么写程序呢?
请赐教