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

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

<FONT color=#3809f7>Private Sub AcadDocument_BeginClose()<BR>(呼出打开对话框)<BR>End Sub</FONT><BR>

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

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

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

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

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

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

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

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

<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=23689" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=23689</A>

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

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