| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 414 人关注过本帖
标题:[求助]控件移动的问题
只看楼主 加入收藏
zlx113
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-3-31
收藏
 问题点数:0 回复次数:5 
[求助]控件移动的问题

请问高手,如何实现象VB中控件任意移动到任何位置。

搜索更多相关主题的帖子: 控件 
2006-03-31 14:30
sniperzhao
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2006-3-5
收藏
得分:0 
利用各个控件的 Move(Left As Single, [Top], [Width], [Height]) 方法

可以调整参数到其 所在容器的任意位置


2006-03-31 14:56
zlx113
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-3-31
收藏
得分:0 
怎样写参数
2006-03-31 15:45
zlx113
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-3-31
收藏
得分:0 
这个参数不是固定的
2006-03-31 15:46
zlx113
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-3-31
收藏
得分:0 
版主给回个话,或写几个代码
2006-03-31 15:55
kfp_kaka
Rank: 4
等 级:贵宾
威 望:13
帖 子:353
专家分:0
注 册:2006-1-12
收藏
得分:0 

首先声明这两个APi函数
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Dim nodeText As Node

然后在控件的MouseDown事件里填上这段代码
If Button = 1 Then
ReleaseCapture '移动控件
SendMessage cm(Index).hwnd, &HA1, 2, 0&
End If
这样运行时鼠标左键按下时就可以把控件拖到你想要的地方去了


爱一个人不一定要拥有她 拥有一个人就一定要好好的爱她
2006-03-31 15:56
快速回复:[求助]控件移动的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025086 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved