Drag drop --> image dans une image box (via ole)

0/5 (9 avis)

Vue 8 711 fois - Téléchargée 834 fois

Description

Après pas Mal de recherche, j'ai enfin trouver comment draguer un fichier JPG, ou autre venant du bureau,... ou meme du PC CAM de creative, dans une picture/image.
Le code fait pas bcp de ligne.

-1 picture Box (image)
-1 text Box (text1)

Source / Exemple :


'Code Mr_pheus@ibelgique.com
Dim CheminImage As String
Dim fn

Private Sub Form_Load()
Image1.OLEDragMode = 0 'Manual
Image1.OLEDropMode = 1 'Manual 
' image1.DragIcon = chemin_icone
End Sub

Private Sub image1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

If Data.GetFormat(15) Then
    For Each fn In Data.Files
       CheminImage = CheminImage & fn
    Next
End If

Image1.Picture = LoadPicture(CheminImage)
Text1.Text = CheminImage
CheminImage = ""

End Sub

Conclusion :


J'ai trouver ca dans VISUAL BASIC 6 le gide du programeur OEM (Osman Eyrol Multimedia)
Tres Bon livre.

Bug connut :-) : Si tu met pas une image ca plante ( avec On error Goto error ca le fera plus)

Codes Sources

Ajouter un commentaire Commentaires
shawn004 Messages postés 1 Date d'inscription samedi 13 septembre 2003 Statut Membre Dernière intervention 12 avril 2004
12 avril 2004 à 20:21
c'est tout bête mais as-tu mis un "exit sub" devant le label Erreur: pour éviter d'afficher l'erreur si tout se passe bien...
1bhrunoh Messages postés 3 Date d'inscription mercredi 26 mars 2003 Statut Membre Dernière intervention 9 mars 2007
16 juin 2003 à 20:04
pas mal pas mal pas mal!!!
mrpheus Messages postés 13 Date d'inscription samedi 31 août 2002 Statut Membre Dernière intervention 28 septembre 2003
16 mars 2003 à 19:26
Tu Verifie que les 3 dernière letttre du paht est bien une image ( .jpg,bmp,....)
mais ca devrais aller avec On Error
J'ai pas trop le temp d'essayer

Bye
mrpheus Messages postés 13 Date d'inscription samedi 31 août 2002 Statut Membre Dernière intervention 28 septembre 2003
16 mars 2003 à 19:26
Tu Verifie que les 3 dernière letttre du paht est bien une image ( .jpg,bmp,....)
mais ca devrais aller avec On Error
J'ai pas trop le temp d'essayer

Bye
zizouweb Messages postés 17 Date d'inscription dimanche 5 mai 2002 Statut Membre Dernière intervention 25 février 2009
16 mars 2003 à 18:55
Juste une tite question, comment faire un message d'erreur quand le fichier glisser dans le prog n'est pas une image ?

J'ai essayé avec un "On Error GoTo Erreur" mais ça affiche l'erreur même quand je glisse une image.
Afficher les 9 commentaires

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.

Du même auteur (mrpheus)