ne pas faire apparaitre un controle imageRésolu

Question

bonjour encore un petit soucis: quand je click sur un titre de ma listbox,j'ai bien les données qui s'affiche dans les textbox + l'image,mais je n'ait pas toujours l'image pour le titre,et je voudrais si c'est possible que : si il n'y à pas d'image associée au titre,alors ne pas faire apparaitre le controle image5 et faire apparaitre un Label "pas d'image disponible" CODE Private Sub ListFilm_Click() Label12.Visible = False Label1.Visible = True On Error Resume Next If ListFilm.Text <> "Aucun film dans la base de donnée" And ListFilm <> "" Then List1.ListIndex = ListFilm.ListIndex CodeFilm = CCur(List1) Else ListFilm.ListIndex = -1 List1.ListIndex = ListFilm.ListIndex Text1.Text = ListFilm.ListCount & " FILMS" End If Set Rs = New ADODB.Recordset Rs.Open "select * from film where code_film=" & CodeFilm, DB Image5.Picture = Nothing Image5.Visible = true Image5.Tag = "" ChargeImage App.Path & "\jaquettes" & LPRecordset.Fields("Jaquette").Value tx_titre.Text = Rs!nom_film 'titre tx_genre.Text = Rs!type_film 'genre tx_support.Text = Rs!format_film 'support tx_acteur.Text = Rs!langue_Film 'acteur Image5.ToolTipText = Rs.Fields("jaquettes") Image5.Picture = LoadPicture(App.Path & "\jaquettes" & Image5.ToolTipText) End Sub merci @plus petchy

Gobillot · Accepted Answer

On Error Goto ERROR

Image5.Picture = LoadPicture(App.Path & "\jaquettes" & Image5.ToolTipText)

- - - - - - - - - - - - - - 

Exit Sub



ERROR:
If Err.Number = 53 Then

    Image5.Visible = False

    Label12.Visible = True

    Label1.Visible = False

    Label12.Caption = "Pas d'image disponible pour cette r&#233;f&#233;rence. "

    Image5.Picture = Nothing

Else

    MsgBox Err.Description

    End If


Daniel

jpleroisse · Answer

Bonjour,
Je pense que tu dois faire un code du genre :
Private Sub ListFilm_Click()
If  ListFilm.Text = "Zorro" Then
Label1.Visible = True
Label1.Caption = "Il n'y a pas d'image associ&#233;e &#224; ce film"
End If
End Sub

jpleroisse

cs_petchy · Answer

merci jpleroisse pour ta r&#233;ponse
mais ton code fonctionne si "Zorro" est s&#233;lectionn&#233; mais si c'est un autre titre,il ne fonctionne pas,c'est possible de faire se code pour n'inporte quel titre
merci
petchy

jpleroisse · Answer

Re,
Tu peux faire comme ceci

Private Sub ListFilm_Click()
If  ListFilm.Text <> "" Then
Label1.Visible = True
Label1.Caption = "Il n'y a pas d'image associ&#233;e &#224; ce film"
End If
End Sub
A ce moment, quelque soit le titre s&#233;lectionn&#233; le Label apparaittra.

jpleroisse

cs_petchy · Answer

Re
d&#233;sol&#233; jpleroisse,mais se n'est pas exactement se que je cherche,car j'ai des titres ou il y &#224; des images et ton code ne m'affiche aucunne image.J'ai essay&#233; se code mais il ne fonctionne avec mon code (voir message dessus)
CODE
gestion: 'si pas d'image disponible pour chargement
If Err.Number = 53 Then
Image5.Visible = False
Label12.Visible = True
Label1.Visible = False
Label12.Caption = "Pas d'image disponible pour cette r&#233;f&#233;rence. "
Image5.Picture = LoadPicture()
End If

petchy

jpleroisse · Answer

Re,
Je pense que mon 1&#233;r code peut marcher si tu travailles avec la propri&#233;t&#233; LisIndex, chacune de tes entr&#233;es correspond &#224; un index,
ton premier nom &#224; l'index 0, le second l'index1 ect....
Donc tu peux faire

Private  Sub ListFilm_Click()
Select Case ListIndex
   Case 0
   Image1.Visible
   Case 1 
   Label1.Visible
   Label1.Caption = "Il n'y a pas d'image pour ce film"
   Case 2
   Image5.VisibleEnd Select
End Sub
ect...suivant le nombre d'entr&#233;es que tu as.

jpleroisse

cs_petchy · Answer

Re
le probleme,c'est que j'ai d&#233;ja plus de 400 donn&#233;es et je dois encore en mettre 
petchy

jpleroisse · Answer

Bonsoir,
Franchement, &#224; part le code avec select case, je ne trouve rien d'autres pour l'instant.Evidement + de 400 nom cele fait beaucoup, mais tu sais il y a des codes de trois pages pour une seule action.
Enfin je continue &#224; faire des essais, si je trouve mieux, je te pr&#233;viendrai

jpleroisse

cs_petchy · Answer

bonjour
merci Daniel et jpleroisse pour votre patience et vos r&#233;ponses.
@ plus
petchy

Ne pas faire apparaitre un controle image

9 réponses

Discussions similaires