Discussion :

[greg59fm]

Bonjour,

Je voudrais savoir comment faire pour mettre un ToolTip sur un diaporama d'image, ( les images défile quand on clique dessus ).
Donc sa serais un ToolTip avec le Nom de l'image quand on met la souris dessus.. Si possible.

Je vous remercie.

[Theze]

Bonjour,

Comme tes images défilent, tu les charge à fur et à mesure donc, à chaque chargement redéfini le Caption de ton ToolTip :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ToolTip1.SetToolTip(Picture1, "le nom de l'image")

Enfin, c'est une idée.

Hervé.

[greg59fm]

Merci de votre réponse,
Mais par exemple j'ai plus de 800 images.. il faut que je face 800 fois le même code avec les différents noms ?

Merci.

[Pol63]

biensur, ca te pose un problème ??

pour le chargement de tes 800 images tu n'as pas tapé 800 lignes de code, donc tu fais pareil pour le tooltip

[greg59fm]

Oui sa pose quand même un problème, 800 c'est pas rien surtout avec des nom de photo asser long..,
En effet j'ai fais 800 lignes de code, donc si vous pourriez me dire comment éviter cela.. Sa serais sympa et sa me ferais gagner beaucoup de temps..

Merci.

[Pol63]

je plaisantais ...
tu as tapé 800 lignes de code pour changer tes images au click ????
si oui il suffit de les mettre dans une liste et de faire suivant à chaque clic
elles sont où tes images ?

[greg59fm]

Non j'ai pas tapé 800 lignes pour faire changer les images au clic, comme elles viennent d'un dossier placer dans le dossier du logiciel..
Donc sa c'est bon, mais vous me dites que c'est le méme principe pour tooltip, mais où je vais mettre tous les noms des différentes images ?!
J'ai aussi mis un " 0 vote " en dessous des images, Et au clique sur l'image sa ajoute 1, et ainsi de suite, Mais il faut faire un truc comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Sub AddVote1()
 
        If PictureBox1.ImageLocation = Application.StartupPath + "\Pics\1.png" Then
            My.Settings.OneWin = Val(My.Settings.OneWin) + Val("1")
        End If
        If PictureBox1.ImageLocation = Application.StartupPath + "\Pics\2.png" Then
            My.Settings.TwoWin = Val(My.Settings.TwoWin) + Val("1")
        End If
        If PictureBox1.ImageLocation = Application.StartupPath + "\Pics\3.png" Then

Et tous sa image par image... Comment contourner sa ?!

Je vous remercie.

[Pol63]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Public Class Form1 ' que tu as déjà en théorie
 
 
    Public Class img ' une petite classe pour ranger toutes les infos liées à une image
 
        Public path As String ' chemin physique du fichier
        Public nom As String ' nom du fichier sans le chemin et sans l'extension
        Public vote As Integer ' nombre de +1
 
    End Class
 
 
    Private _Imgs As New List(Of img) ' une collection, qui permet de stocker x objet du type désiré (img ici)
    Private _CurrentIndex As Integer ' 0 par défaut     on s'en sert pour savoir où on en est dans la collection 
 
    Public Sub New()
        InitializeComponent()
 
        Dim dossier As String = "x:\dossier"
 
        For Each f As String In System.IO.Directory.GetFiles(dossier)
            Dim i As New img
            i.path = f
            i.nom = System.IO.Path.GetFileNameWithoutExtension(f)
            _Imgs.Add(i)
        Next
 
 
 
    End Sub
 
 
    Private Sub ShowImage()
        Me.Picturebox1.Image = System.Drawing.Image.FromFile(_Imgs(_CurrentIndex).path)
        Me.ToolTip1.SetTooltip(Me.Picturebox1, _Imgs(_CurrentIndex).nom)
    End Sub
 
 
End Class

sur le clic pour image suivante tu fais _currentindex += 1 et showimage
sur le clic sur +1 tu fais _Imgs(_CurrentIndex).vote +=1

etc...


pour enregistrer les valeurs des votes, tu peux utiliser un fichier texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
private sub enregistrement_votes
   dim sb as new system.text.stringbuilder
   for each i as img in imgs
      sb.appendline(i.path & "=" & i.vote)
   next
   system.io.file.writealltext("votes.ini",sb.tostring)
end sub

pour le chargement des votes, tu peux remplir un dictionary(of string, integer) (le string étant le path et l'integer étant le nombre de vote)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
for each ligne as string in system.io.file.readalltext("votes.ini")
   dim path as string = split(ligne, "=")(0).tostring
   dim vote as integer = cint(split(ligne, "=")(1))
   dico.add(path, vote)
next

et dans le sub new pendant la boucle, tu fais i.vote = dico(path)