Soyez le premier à donner votre avis sur cette source.
Vue 28 327 fois - Téléchargée 1 571 fois
Private Sub frmSample_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Autorise le drag & drop sur le controle lstTarget.AllowDrop = True End Sub Private Sub lstTarget_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstTarget.DragEnter 'Si le drop en question est un drop de fichiers, If e.Data.GetDataPresent(DataFormats.FileDrop) Then ' alors on accepte le drop sous forme de copyDrop e.Effect = DragDropEffects.Copy Else 'sinon 'on accepte pas e.Effect = DragDropEffects.None End If End Sub Private Sub lstTarget_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstTarget.DragDrop Dim strFiles() As String 'Variable qui contiendra un tableau contenant les fichiers Dim i As Long 'Variable boucle 'on recupere le drop dans le tableau strFiles = e.Data.GetData(DataFormats.FileDrop) For i = 0 To strFiles.GetUpperBound(0) lstTarget.Items.Add(strFiles(i)) Next End Sub
29 avril 2010 à 01:32
19 juin 2008 à 19:02
Est-il possible d'avoir la même chose mais pour des icone sur un Tabcontrol .
J'explique
mettre des icône sur une table control genre classeur d'icône par différentes catégories .
Merci
12 mai 2008 à 22:00
C'est simple et ça va à l'essentiel. C'est exactement ce que je cherchais !
Continuez à mettre des petits bouts de code comme ça ! Ca fait gagner un temps fou !
22 févr. 2008 à 19:57
12 févr. 2008 à 15:20
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.