画板拖动的问题 求指点

lcsq001

比如  画板 宽高 是 500 500
我画了一条直线 0开始 700 结束
画板显示不下 后面的看不到了 ！！！
怎么实现鼠标按下 来拖拽 查看 看不到的位置的线呢？

liwei321gogo

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
j_hxwz	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型

画板1.画笔粗细 ＝ 3
画板1.画笔颜色 ＝ #墨绿
计次循环首 (7, i)
画板1.画直线 ( (i － 1) × 100, 200, i × 100, 200)
画板1.画直线 ( (i － 1) × 100, 190, (i － 1) × 100, 200)
画板1.定位写出 ( (i － 1) × 100, 160, 到文本 ( (i － 1) × 100))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_画板1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

如果真 (纵向位置 ＞ 180 且 纵向位置 ＜ 220)
j_hxwz ＝ 取鼠标水平位置 ()
时钟1.时钟周期 ＝ 50

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
i	整数型
bzw	整数型

画板1.清除 (, , , )
画板1.画笔粗细 ＝ 3
画板1.画笔颜色 ＝ #墨绿
bzw ＝ j_hxwz － 取鼠标水平位置 ()
计次循环首 (7, i)
画板1.画直线 ( (i － 1) × 100 － bzw, 200, i × 100 － bzw, 200)
画板1.画直线 ( (i － 1) × 100 － bzw, 190, (i － 1) × 100 － bzw, 200)
画板1.定位写出 ( (i － 1) × 100 － bzw, 160, 到文本 (i × 100))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_画板1_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

时钟1.时钟周期 ＝ 0

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 j_hxwz, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> 画板1.画笔粗细 ＝ 3<br /> 画板1.画笔颜色 ＝ #墨绿<br /> .计次循环首 (7, i)<br />     画板1.画直线 ((i － 1) × 100, 200, i × 100, 200)<br />     画板1.画直线 ((i － 1) × 100, 190, (i － 1) × 100, 200)<br />     画板1.定位写出 ((i － 1) × 100, 160, 到文本 ((i － 1) × 100))<br /> .计次循环尾 ()<br /> <br /> .子程序 _画板1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (纵向位置 ＞ 180 且 纵向位置 ＜ 220)<br />     j_hxwz ＝ 取鼠标水平位置 ()<br />     时钟1.时钟周期 ＝ 50<br /> .如果真结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 i, 整数型<br /> .局部变量 bzw, 整数型<br /> <br /> 画板1.清除 (, , , )<br /> 画板1.画笔粗细 ＝ 3<br /> 画板1.画笔颜色 ＝ #墨绿<br /> bzw ＝ j_hxwz － 取鼠标水平位置 ()<br /> .计次循环首 (7, i)<br />     画板1.画直线 ((i － 1) × 100 － bzw, 200, i × 100 － bzw, 200)<br />     画板1.画直线 ((i － 1) × 100 － bzw, 190, (i － 1) × 100 － bzw, 200)<br />     画板1.定位写出 ((i － 1) × 100 － bzw, 160, 到文本 (i × 100))<br /> .计次循环尾 ()<br /> <br /> .子程序 _画板1_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 时钟1.时钟周期 ＝ 0

liwei321gogo