UC知道VB:将多个文件拖放至TEXT1,之后TEXT1里显示这些文件的完整路径
来源：百度知道 编辑：UC知道 时间：2024/09/22 13:37:29
有2个问题:
问题1:
我同时选中
C:\PIC\Star.JPG
C:\PIC\Moon.JPG
C:\PIC\Sun.JPG
C:\PIC\Mercury.JPG
C:\PIC\Mars.JPG
这5个文件,把他们拖放至TEXT1里,松开鼠标键后,TEXT1里就显示
C:\PIC\Star.JPG
C:\PIC\Moon.JPG
C:\PIC\Sun.JPG
C:\PIC\Mercury.JPG
C:\PIC\Mars.JPG
如何做到?
问题2:
和上面一样,但是TEXT1里显示
Star.JPG
Moon.JPG
Sun.JPG
Mercury.JPG
Mars.JPG
如何做到?
谢谢.
问题1:
我同时选中
C:\PIC\Star.JPG
C:\PIC\Moon.JPG
C:\PIC\Sun.JPG
C:\PIC\Mercury.JPG
C:\PIC\Mars.JPG
这5个文件,把他们拖放至TEXT1里,松开鼠标键后,TEXT1里就显示
C:\PIC\Star.JPG
C:\PIC\Moon.JPG
C:\PIC\Sun.JPG
C:\PIC\Mercury.JPG
C:\PIC\Mars.JPG
如何做到?
问题2:
和上面一样,但是TEXT1里显示
Star.JPG
Moon.JPG
Sun.JPG
Mercury.JPG
Mars.JPG
如何做到?
谢谢.
'将Text1的MultiLine属性设为True，OLEDropMode设为1-Manual
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
For Each n In Data.Files
s = s & n & vbCrLf
's = s & Mid(n, InStrRev(n, "\") + 1) & vbCrLf
Next
Text1.Text = s
End Sub