changer une image de picturebox en fonction du continu d'une zone de texte ??

Question

bonjour tout le monde


j'aimerais que l'image ins&#233;r&#233; dans mon picturebox change a chaque fois que la zone de texte change. exemple 
si la zone de text = hub l'image du hab s'affiche dans le picturebox
et si text= routeur c l'image du routeur qui apparait??
j essay&#233; avec des teste if then m&#233; ca passe pas

'If Text1.Text = ppp Then
'Picture1.Picture = LoadPicture(applicat.Path&("/Images/hub2.JPEG"), vbLPCustom)
    'Else
        'Picture1.Picture = LoadPicture(applicat.Path&("/Images/hub3.JPEG"), vbLPCustom)
        
    'End If

cs_Tipo · Answer

Salut, 

Je ferai comme &#231;a :


Private Sub Text1_KeyPress(KeyAscii As Integer)
   If keyascii=13 'lors de l'appui sur enter
   If FileExist(app.Path&("/Images/" & text1.text & ")=True then
     Picture1.Picture = LoadPicture(app.Path&("/Images/" & text1.text & ",vbLPCustom)
   Else
   'Une image par d&#233;faut
   Picture1.Picture = LoadPicture(app.Path&("/Images/defaut.jpg",vbLPCustom)

   End if
   End if
End Sub



Avec la fonction FileExist que j'avais pomp&#233; je ne sais plus o&#249; sur ce site : 

Public Function FileExist(File As String) As Boolean
    Dim l As Long
    On Error GoTo FExErr
    l = FileLen(File)
    FileExist = True
    Exit Function
FExErr:     FileExist = False
    Exit Function
End Function

Comme &#231;a en tapant routeur, il charge routeur.jpg... Ceci impose que les noms des fichiers soit bien nomm&#233;s, tous dans le m&#234;me r&#233;pertoire et tous en JPG mais il y a moyen de faire mieux

jpleroisse · Answer

Bonjour,
Je n'ai pas utilis&#233; App.path, sinon j'aurais d&#249; rendre mon programme ex&#233;cutable.

Private Sub Text1_Change()
If Text1.Text = "hub" Then
Picture1.Picture = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Misc\Face01.ico")
    ElseIf Text1.Text = "routeur" Then
         Picture1.Picture = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Misc\Face02.ico")
    Else: Picture1.Picture = LoadPicture()
    End If
    
End Sub

jpleroisse

Changer une image de picturebox en fonction du continu d'une zone de texte ??

2 réponses

Discussions similaires