请问VB怎样拖动TXT文件在VB的text就直接读

来源：百度知道 编辑：UC知道 时间：2024/05/12 05:18:57
系统自带的TXT没有置顶这一功能

我没办法之下。。用VB做一个。。。

我不要把把文字复制到TEXT。。我想直接拖动TXT文件在VB就直接读取。。。。请教各位大虾

将text的的OLEDragMode和OLEDropMode 属性值设为1

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Data.GetFormat(vbCFFiles) = True Then '判断是否为文件对象
Text1.Text = ""
filename = Data.Files(1) '获得文件名
Open filename For Input As #1 ' 读取文件
Do Until EOF(1)
Input #1, File
Text1.Text = Text1.Text & File '显示文件
Loop
Close #1
End If
End Sub