社区
VB基础类
帖子详情
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)里的三个参数source、X、Y各代表什么意思?
happyjessica
2003-05-14 09:28:52
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)里的三个参数source、X、Y各代表什么意思?
...全文
157
2
打赏
收藏
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)里的三个参数source、X、Y各代表什么意思?
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)里的三个参数source、X、Y各代表什么意思?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
happyjessica
2003-05-14
打赏
举报
回复
我要拖动的是image控件,那摸x,y各代表控件的什么坐标?
叶帆
2003-05-14
打赏
举报
回复
Source 你拖动的控件,你可以直接引用,如你知道是CommandBox
也可以这样使用
dim cm as CommandBox
set cm=Source
cm.top=???
X,Y-指拖动时的座标
VB 5.0中实现鼠标拖放...
Sub
Pic
tu
re1_
Drag
Over(
Source
As
Control
, X As
Single
, Y As
Single
, State As Integer) ' 在此处编写逻辑判断,根据State值决定是否允许放下 End
Sub
``` ##### 2. **MouseDown 和 MouseUp 事件** - **...
精彩编程与编程技巧-用VB实现拖放功能...
Private
Sub
Form_
Drag
Drop
(
Source
As
Control
, X As
Single
, Y As
Single
) Image1.
Pic
tu
re =
Source
.Sourse ' 此处应该是
Source
.
Pic
tu
re Form2.Image1.
Pic
tu
re = Load
Pic
tu
re() ' 加载图片到Form2中的Image1 ...
VB版数字排序拼图小游戏
Private
Sub
Label1_
Drag
Drop
(
Source
As
Control
, x As
Single
, y As
Single
) Dim Label1X As Integer '记录空白控件Label1左上角X的位置 Dim Label1Y As Integer '记录空白控件Label1左上角Y的位置 Dim flag...
餐馆:Jogo resta 1,contémapenas 13 linhas decódigo:)
Private
Sub
imgGoti_
Drag
Drop
(Index As Integer,
Source
As
Control
, X As
Single
, Y As
Single
) If (imgGoti(Index).
Pic
tu
re <> 0) _ Or Abs(
Source
.Index - Index) <> 2 _ And Abs(
Source
.Index - ...
vb 控件参考手册(PDF)
- **图像支持:** 每个列表项可以关联一个图像,使得用户能够通过视觉标识快速识别选项。 - **基于对象的列表管理:** 使用 `ComboItem` 对象和 `ComboItems` 集合来管理列表项,使得对列表的操作更加简单高效。 - *...
VB基础类
7,785
社区成员
197,585
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章