changer de photo

Question

Bonjour,

je voudrais pouvoir changer de photo dans un controle image
par rapport a une zone de texte

ex: si la zone de texte affiche 3 le controle image doit charger la photo 3

j'ai essayé ceci mais il y a un blème
//////////////////////
code
/////////////////////
Private Sub txtNumChauffeur_Change()
Dim x As Integer
 If x = Val(txtNumChauffeur.Text) Then
 imgChauffeur.Picture = LoadPicture("F:\Projet\Vb\Boulot\Images\PhotoChauffeur\x.jpg")
 End If

merci de me corriger

cs_liquide · Answer

salut


Private Sub txtNumChauffeur_Change()
Dim x As Integer
Dim Ximg as String

If x = Val(txtNumChauffeur.Text) Then
Ximg = x & ".jpg"
imgChauffeur.Picture = LoadPicture("F:\Projet\Vb\Boulot\Images\PhotoChauffeur" & Ximg)
End If


ou alors

Private Sub txtNumChauffeur_Change()
Dim x As Integer

If x = Val(txtNumChauffeur.Text) Then
imgChauffeur.Picture = LoadPicture("F:\Projet\Vb\Boulot\Images\PhotoChauffeur" & x & ".jpg")
End If

si jamais ca plante, je ne pense pas que ca vient du "Path", essais de mettre un "set" devant "imgChauffeur.Picture".
 
Bonne prog
liquide

cs_DARKSIDIOUS · Answer

Juste comme cà : le test if ne sert absolument à rien :


Private Sub txtNumChauffeur_Change()
Dim x As Integer

x = Val(txtNumChauffeur.Text)
imgChauffeur.Picture = LoadPicture("F:\Projet\Vb\Boulot\Images\PhotoChauffeur" & x & ".jpg")

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_stargates · Answer

Merci la deuxiéme proposition est la bonne 
un grand merci a tous

Marc

Changer de photo

3 réponses

Discussions similaires