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

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

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打开对话框..

wyj7485 · 发表于 2006-4-24 14:41:00

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=23689

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

谢谢..............................

账号		自动登录	找回密码
密码			注册

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

回复：（login1986）(新手問)利用VBA這樣的功能怎麼實...