|
发表于 2013-11-23 16:04:14
|
显示全部楼层
浙江省温州市
.版本 2
.支持库 EThread
.程序集 窗口程序集1
.程序集变量 Click, 逻辑型
.程序集变量 Y, 整数型
.程序集变量 X, 整数型
.子程序 _画板1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
Click = 真 ' 程序集变量
启动线程 (&画区域, , )
.子程序 _画板1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
Click = 假
.子程序 画区域
.判断循环首 (Click = 真)
画板1.画点 (X, Y, #红色)
.判断循环尾 ()
.子程序 _画板1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
X = 横向位置
Y = 纵向位置
剩下的你自己去修改,这个已经可以做到自己随意圈定设点了,画什么样的圈圈都可以,不一定标准圆或者矩形,如果要这两种,你可以直接调用
画板1.画椭圆 (, , , )
画板1.画矩形 (, , , )
|
评分
-
参与人数 1 | 荣誉 +1 |
收起
理由
|
笨潴
| + 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻 |
查看全部评分
|