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 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

happyjessica 2003-05-14

打赏
举报

回复

我要拖动的是image控件，那摸x,y各代表控件的什么坐标？

叶帆 2003-05-14

打赏
举报

回复

Source 你拖动的控件，你可以直接引用，如你知道是CommandBox

也可以这样使用
dim cm as CommandBox

set cm=Source

cm.top=???

X,Y－指拖动时的座标

Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer) ' 在此处编写逻辑判断，根据State值决定是否允许放下 End Sub ``` ##### 2. **MouseDown 和 MouseUp 事件** - **...

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Image1.Picture = Source.Sourse ' 此处应该是 Source.Picture Form2.Image1.Picture = LoadPicture() ' 加载图片到Form2中的Image1 ...

Private Sub Label1_DragDrop(Source As Control, x As Single, y As Single) Dim Label1X As Integer '记录空白控件Label1左上角X的位置 Dim Label1Y As Integer '记录空白控件Label1左上角Y的位置 Dim flag...

Private Sub imgGoti_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single) If (imgGoti(Index).Picture <> 0) _ Or Abs(Source.Index - Index) <> 2 _ And Abs(Source.Index - ...

- **图像支持：** 每个列表项可以关联一个图像，使得用户能够通过视觉标识快速识别选项。 - **基于对象的列表管理：** 使用 `ComboItem` 对象和 `ComboItems` 集合来管理列表项，使得对列表的操作更加简单高效。 - *...

7,785

社区成员

197,585

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章