张志晨VB实例教程之文件拖放1.txt

张志晨VB实例教程之文件拖放1

2011-11-21 08:43

我要实现的效果是：从系统的某个地方拖拽一个TXT格式的文件到FORM1里　或者到Text文本框里，文件里的内容会直接显示在TEXT1。

 

Private Sub Form_Load()
    Text1.OLEDropMode = 1
End Sub

Private Sub Form_OLEDragDrop(data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
 readTxt (data)
End Sub

Private Sub Text1_OLEDragDrop(data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    readTxt data
End Sub

Function readTxt(data As DataObject)
  On Error GoTo invalidText
    Dim i As Integer
        If data.GetFormat(vbCFFiles) = True Then
            Dim sFileName$
            sFileName = data.Files(1)
            Text1.Text = lineRead(sFileName)'调用下面的自定义函数
        End If
    Exit Function
invalidText: