7453
社区成员
- 主页
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
wyzjiguang 2009-10-05
忘记还有没结的帖子，不好意思
白发程序猿 2008-01-15
确实奇怪啊，做出来的程序还需要这样的功能干吗？
daisy8675 2008-01-14
奇怪，说的是设计还是代码
设计直接ctrl+A全选不就得了
设计直接ctrl+A全选不就得了
caofusheng 2008-01-12
楼上说的很好
TomyChoi 2008-01-12
声明两个全局变量， 一个标志变量
dim x_pos as long,y_pos as long
dim LButtonDown as boolean
在MouseDown事件里：
x_pos=鼠标点下的位置x
y_pos=鼠标点下的位置y
LbuttonDown=true
在MouseMove事件里:
if LbuttonDown=true then
循环每个控件看看是不是在点下时和目前鼠标位置之间的区域里，如果是
改变其BackColor，或都可以在每个控件的Tag属性做标志
在MouseUp事件里:
LbuttonDown=false
你只要在程序的其它地方检索Tag属性及可知道那些控件被选中
上面是给出思路，代码自己写应该不会很难的。
dim x_pos as long,y_pos as long
dim LButtonDown as boolean
在MouseDown事件里：
x_pos=鼠标点下的位置x
y_pos=鼠标点下的位置y
LbuttonDown=true
在MouseMove事件里:
if LbuttonDown=true then
循环每个控件看看是不是在点下时和目前鼠标位置之间的区域里，如果是
改变其BackColor，或都可以在每个控件的Tag属性做标志
在MouseUp事件里:
LbuttonDown=false
你只要在程序的其它地方检索Tag属性及可知道那些控件被选中
上面是给出思路，代码自己写应该不会很难的。
