怎么用鼠标选中窗体中的多个控件？

Question

我想鼠标按住左键拖动。鼠标松开。所选区域中的label控件要被选中，然后变色，应该怎么实现？先谢了。

Answer 1

声明两个全局变量， 一个标志变量
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属性及可知道那些控件被选中上面是给出思路，代码自己写应该不会很难的。

Answer 2

奇怪，说的是设计还是代码设计直接ctrl+A全选不就得了