VB6实现控件从一个容器拖拽到另一个容器中2021-06-02

weixin_42429467

已于 2022-11-24 13:07:48 修改

阅读量459

点赞数

分类专栏：控件操作 VB6 文章标签： vb6

于 2021-06-02 19:26:13 首次发布

本文链接：https://blog.csdn.net/weixin_42429467/article/details/117480014

版权

控件操作同时被 2 个专栏收录

3 篇文章 0 订阅

订阅专栏

VB6

3 篇文章 0 订阅

订阅专栏

VB6实现控件从一个容器拖拽到另一个容器中

1.在From1中添加2个Pictuer和一个Command控件，Command控件设置成控件数组。

2.Command1的DragMode设置成1-Automatic

用DragDrop可以拖动Pictuer1中Command1控件放到Pictuer2中

Option Explicit
Private Sub Form_Load()
Command1(0).Visible = False
Load Command1(1)
Command1(1).Container = Picture1
Command1(1).Visible = True
End Sub

Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single)
Unload Command1(1)
Load Command1(1)
Set Command1(1).Container = Picture2
Command1(1).Visible = True
Command1(1).Left = X
Command1(1).Top = Y
End Sub