谢谢斑竹的及时回复，请问一下，如果先show窗体，怎么在窗体不隐藏的情况下（就是 使窗体象cad工具栏一样 停在绘图屏幕上），在cad图形窗口中选点画图？
<A href="http://www.vba.cn/bbs/dispbbs.asp?BoardID=4&replyID=17259&id=19794&skin=0" target="_blank" >http://www.vba.cn/bbs/dispbbs.asp?BoardID=4&replyID=17259&id=19794&skin=0</A>
斑竹 或明经高手可以给解释一下吗
小弟 急需 回复～
斑竹 请问 通过移动鼠标方法来实现时 ，运行时在该行： Me.Show 0 提示错误：
<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:shapetype id=_x0000_t75 stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"> <SPAN lang=EN-US style="FONT-SIZE: 10.5pt; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-size: 12.0pt; mso-fareast-font-family: 宋体; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA"><v:shapetype id=_x0000_t75 stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"> <v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype><v:shape id=_x0000_i1025 style="WIDTH: 182.25pt; HEIGHT: 94.5pt" type="#_x0000_t75"><v:imagedata o:title="" src="file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msoclip1/01/clip_image001.png"></v:imagedata></v:shape>
<v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path><o:lock aspectratio="t" v:ext="edit"></o:lock>
<o:lock aspectratio="t" v:ext="edit"></o:lock>
<o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype></SPAN>
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)<BR>Debug.Print X & "," & Y<BR>If (X < 5 Or Y < 5 Or X > Me.Width - 15 Or Y > Me.Height - 25) Then<BR> If i = True Then<BR> i = False<BR> Me.StartUpPosition = 3<BR> Me.Hide<BR> Me.Show 0 <BR> <BR> <BR> End If<BR>Else<BR> If i = False Then<BR> i = True<BR> Me.StartUpPosition = 3<BR> Me.Hide<BR> Me.Show 1<BR> End If<BR>End If<BR>End Sub
d:/1.bmp
你把我给的链接看完了么？
<BLOCKQUOTE>
<TABLE class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 9pt; LINE-HEIGHT: 12pt" width="100%">================================<BR><FONT color=#00008b>您没有浏览该精华帖子的权限</FONT><BR>================================
======================================<FONT color=#ff0000><BR>精华帖子: 原因：好文章,积分+1，金钱+10，经验+5，魅力+5 --by mccad</FONT>
</TD></TR></TBODY></TABLE></BLOCKQUOTE>
谢谢斑竹的耐心回答，可是你给我的哪个连接地址，我有一段代码不能看，显示如上提示。
请麻烦斑竹 能否在此处贴一下啊
多谢了 斑竹
d:\1.bmp
斑竹 运行时 发生如上错误，怎么解决呢？帮帮偶！ 多谢
在userform显示时cad不能完成画圆任务搞定没？
你把userform的属性showmodel改为false就可以搞定了。
谢谢斑竹 的回复！～ 真是太感动了 ，斑竹中秋快乐！！！<BR>我的cad2000没有自带ACFOCUS控件，可能是版本的问题吧