login1986 发表于 2006-4-24 09:39:00

(新手問)利用VBA這樣的功能怎麼實現!

Private Sub AcadDocument_BeginClose()
(呼出打开对话框)
End Sub

login1986 发表于 2006-4-24 12:58:00

是没有人会啊.还是不愿意告诉我啊...哎~~~~
我都等了一上午了....

wyj7485 发表于 2006-4-24 14:12:00

需要一个CommonDialog控件(在附加控件中添加),命名为ComDia,加入如下代码(比如要打开图片系列的文件):
ComDia.FileName = ""
ComDia.FilterIndex = cdIndex
ComDia.InitDir = cdDir
ComDia.Filter = "Icons (*.ico;*.cur)|*.ico;*.cur|Images (*.bmp;*.jpg;*gif;*wmf)|*.bmp;*.jpg;*.gif;*wmf"
ComDia.ShowOpen
If ComDia.FileName"" Then
ButtonImage.ControlTipText = ComDia.FileName
ButtonImage.Picture = LoadPicture(ComDia.FileName)
End If

login1986 发表于 2006-4-24 14:26:00

谢谢这位朋友.
也是我的错..我问的有点错.
我是想呼出CAD的打开对话框...
我想把一个DWG文件关了..然后自动运行CAD打开对话框..

login1986 发表于 2006-4-25 09:18:00

谢谢..............................
页: [1]
查看完整版本: (新手問)利用VBA這樣的功能怎麼實現!