Voilà un bout de code qui peut faire l'affaire :
If Clipboard.GetFormat(vbCFText) Then
Dim Lines() As String
Lines = Split(Clipboard.GetText(vbCFText), vbCrLf)
Dim i As Integer
For i = 0 To UBound(Lines)
List1.AddItem Lines(i)
Next i
End If
|
libre a toi de l'ajouter dans le code d'un bouton, ou bien comme ceci :
Private Sub List1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyV And (Shift And vbCtrlMask) <> 0 Then
If Clipboard.GetFormat(vbCFText) Then
Dim Lines() As String
Lines = Split(Clipboard.GetText(vbCFText), vbCrLf)
Dim i As Integer
For i = 0 To UBound(Lines)
List1.AddItem Lines(i)
Next i
End If
End If
End Sub
|
ici, tu dois cliquer sur ton ListBox, et presser Ctrl + V
les lignes sont séparées, et ajoutées une a une a ta liste.
Amusez-vous !
Renfield -
thomas_reynald@msn.comAdmin CodeS-SourceS