7476
社区成员
- 全部
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
daturawing 2002-05-21
原来如此，我看看好了，大概的意思已经知道了
这样操作如何：
在form中增加一个shape控件，必须要有的。
然后通过mousedown,mousemove,mouseup来确定circle的圆心、半径
在mouseup的时候生成一个shape控件
生成的写法：
Set cmd = form.Controls.Add("VB.shape", "shape")
其中form是object对象
你可以试试看，在不行的话，我就写写。
这样操作如何：
在form中增加一个shape控件，必须要有的。
然后通过mousedown,mousemove,mouseup来确定circle的圆心、半径
在mouseup的时候生成一个shape控件
生成的写法：
Set cmd = form.Controls.Add("VB.shape", "shape")
其中form是object对象
你可以试试看，在不行的话，我就写写。
lou_df 2002-05-21
做一个圆形窗口，想遮那里就遮那里。
daturawing 2002-05-21
操作中，如果由此项操作时，通过鼠标状态来控制添加shape空间不就可以解决了吗？我不知道是不是我想得太简单。还是没有理解搂主的意思！！
cshchina 2002-05-21
帮我解决了，我会再加100分的
