Comment fair pour change une image dans une Picture

Résolu
Signaler
Messages postés
17
Date d'inscription
vendredi 23 mars 2007
Statut
Membre
Dernière intervention
31 août 2009
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Bonjour
Voila je debut en programamtion sur Visual Basic et je voudrai savoir comment fair pour quand je clique sur un texte dans une ComboBox , sa puisse me changer image (Picture1) avec un lien internet sait a dire :

Private Sub Combo1_Click()



If Combo1.ListIndex = 0 Then
WindowsMediaPlayer1.Url = "
http://vipmms9.yacast.net/nrj_webradio01
"


Je voudrai que dans se code je puisse fair changer image avec un lien net :

Picture1.********** = "http://flux.radio.free.fr/logoradio/Sans%20titre%2013.gif
"

End If


Merci si vous avez compri

4 réponses

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
possible via APIs :




Private Type CLSID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type

Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As CLSID, ByRef ppvRet As IPicture) As Long

Public Function LoadPicture(ByRef vsFileName As String) As Picture
Dim lpIID As CLSID
With lpIID
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End With

OleLoadPicturePath StrPtr(vsFileName), 0&, 0&, 0&, lpIID, LoadPicture
If LoadPicture Is Nothing Then
On Error Resume Next
Set LoadPicture = VB.LoadPicture(vsFileName)
End If
End Function
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
salut
Picture1.Picture = LoadPicture("http://flux.radio.free.fr/logoradio/Sans%20titre%2013.gif")

@++

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Sinon essaie de télécharger l'image source avant de la charger. Car ej ne suis pas sûr que un lien comme paramètre de LoadPicture fonctionne

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
cette fonction 'LoadPicture' remplace l'originale...
elle ajoute la possibilité de lire les images depuis un URL