向郑老师请教个问题。、

ilovehuizi · 发表于 2004-9-21 16:31:00

谢谢斑竹的及时回复，请问一下，如果先show窗体，怎么在窗体不隐藏的情况下（就是使窗体象cad工具栏一样停在绘图屏幕上），在cad图形窗口中选点画图？

雪山飞狐_lzh · 发表于 2004-9-21 22:03:00

http://www.vba.cn/bbs/dispbbs.asp?BoardID=4&replyID=17259&id=19794&skin=0

ilovehuizi · 发表于 2004-9-22 11:48:00

斑竹或明经高手可以给解释一下吗

小弟急需回复～

ilovehuizi · 发表于 2004-9-22 12:49:00

斑竹请问通过移动鼠标方法来实现时，运行时在该行： Me.Show 0 提示错误： Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Debug.Print X & "," & Y
If (X < 5 Or Y < 5 Or X > Me.Width - 15 Or Y > Me.Height - 25) Then
If i = True Then
i = False
Me.StartUpPosition = 3
Me.Hide
Me.Show 0

End If
Else
If i = False Then
i = True
Me.StartUpPosition = 3
Me.Hide
Me.Show 1
End If
End If
End Sub

ilovehuizi · 发表于 2004-9-22 12:53:00

d:/1.bmp

雪山飞狐_lzh · 发表于 2004-9-22 12:59:00

你把我给的链接看完了么？

ilovehuizi · 发表于 2004-9-22 14:21:00

================================
您没有浏览该精华帖子的权限
================================ ======================================
精华帖子: 原因：好文章,积分+1，金钱+10，经验+5，魅力+5 --by mccad

谢谢斑竹的耐心回答，可是你给我的哪个连接地址，我有一段代码不能看，显示如上提示。请麻烦斑竹能否在此处贴一下啊多谢了斑竹

sweetgirl · 发表于 2004-9-22 14:35:00

d:\1.bmp

斑竹运行时发生如上错误，怎么解决呢？帮帮偶！多谢

allblus · 发表于 2004-9-22 14:44:00

在userform显示时cad不能完成画圆任务搞定没？

你把userform的属性showmodel改为false就可以搞定了。

ilovehuizi · 发表于 2004-9-22 15:29:00

谢谢斑竹的回复！～真是太感动了，斑竹中秋快乐！！！

我的cad2000没有自带ACFOCUS控件，可能是版本的问题吧

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