Accueil > Manip’s > Visual Basic 6 > Drag and Drop > Drag and drop super facile en VB6
Drag and drop super facile en VB6
mercredi 25 mars 2009, par
Comment lire un texte RTF en le déposant simplement sur le formulaire ?
Rajoutez le COMPOSANT
- MICROSOFT RICHEDIT
Propriété
OleDropMode
- RtFOlEDropManual (1)
Action
OleDragDrop
Code
Private Sub RichTextBox1_OLEDragDrop(Data As RichTextLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim Droped_FileName As String
Droped_FileName = Data.Files(1)
RichTextBox1.LoadFile Droped_FileName, rtfRTF
End Sub
C’est tout :’-))
Le nom du (ou des) fichier(s) est automatiquement placé dans le Tableau
Data
S’il n’y a qu’un seul fichier, son nom est
Data(1)
Pour Déposer plusieurs fichiers, il suffit de lire leur nom dans la Liste
For i = 1 to Data.Files.Count
MsgBox Data.Files( i )
Next i