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

wyzjiguang 2008-01-12 08:32:25
我想鼠标按住左键拖动。鼠标松开。所选区域中的label控件要被选中,然后变色,应该怎么实现?先谢了。
...全文
217 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
wyzjiguang 2009-10-05
  • 打赏
  • 举报
回复
忘记还有没结的帖子,不好意思
白发程序猿 2008-01-15
  • 打赏
  • 举报
回复
确实奇怪啊,做出来的程序还需要这样的功能干吗?
daisy8675 2008-01-14
  • 打赏
  • 举报
回复
奇怪,说的是设计还是代码

设计直接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属性及可知道那些控件被选中

上面是给出思路,代码自己写应该不会很难的。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧