如何接受从其它程序中拖来的文字.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 8 行

记 事 本 不 支 持 你 说 的 拖 放 文 字 的 功 能 ， 不 是 所 有 程 序 都 支 持 你 说 的 功 能 。 你 可 以 在 VB中 建 立 一 个 标 准 EXE程 序 ， 在 Form上 放 置 一 个 文 本 框 ， 将 MultiLine属 性 设 置 为 True， 将 文 本 框 的 OLEDropMode设 置 为 2。 然 后 在 OLEDragDrop事 件 中 加 上 以 下 代 码 ： 
    Private Sub Text1_OLEDragDrop(Data As DataObject, _ 
     Effect As Long, Button As Integer, Shift As Integer, _ 
     X As Single, Y As Single) 
     Text1.Text = Data.GetData(vbCFText) 
    End Sub 
    现 在 ， 你 可 以 从 写 字 板 拖 放 一 些 文 字 到 文 本 框 了 。 
<END>