如何在同一个工程中进行拖放操作.txt

VB技巧问答10000例 VB技巧问答10000例

实 际 上 ， 在 一 个 工 程 中 进 行 拖 放 和 在 一 个 窗 口 内 进 行 拖 放 并 没 有 什 么 不 同 。 下 面 是 一 个 例 子 ： 
    1、 建 立 一 个 工 程 ， 添 加 两 个 窗 体 ： Form1和 Form2。 
    2、 在 两 个 Form上 各 放 一 个 ListBox控 件 。 
    3、 设 置 Form1的 List1的 DragMode属 性 为 自 动 。 
    4、 在 Form1中 输 入 代 码 ： 
    Private Sub Form_Load() 
     Form2.Show 
     List1.AddItem "test" 
     List1.ListIndex = 0 
    End Sub 
    5、 在 Form2中 输 入 如 下 代 码 ： 
    Private Sub List1_DragDrop(Source As Control, X As Single, Y As Single) 
     List1.AddItem Source.Text 
    End Sub 
    6、 运 行 程 序 ， 将 Form1中 的 List1拖 放 到 Form2的 List1上 。 
    如 果 要 在 不 同 的 工 程 中 拖 放 ， 就 需 要 使 用 OLEDragDrop等 属 性 、 事 件 和 方 法 。 
<END>