Discussion :

[Attila54]

Bonjour,
J'ai sur un form, une textbox appelée "valeur calculee" affichant une valeur precedemment calculée. Cette valeur est entiere.

J'ai egalement une picturebox appelée picturebox1 contenant 15 images (img1.png à img15.png) importées dans my project\resources.resx

Je veux juste qu'en fonction de la valeur affichée dans "valeur calculee", telle ou telle image soit visible et toutes les autres invisibles

exemple :
Si valeur affichée dans "valeur calculee" est 15
img1.png .visible = true
img2 a img15.png.visible = false

Je sais le faire si j'ai 1 image par picturebox, mais quand j'ai 15 images, je n'arrive pas à trouver la syntaxe malgre mes recherches

Merci beaucoup

[Neiflheim]

15 images dans une picturebox?

Quand tu redéfinie la propriété image de la picturebox, ça efface la valeur précédente, donc tu ne peux avoir qu'une image à la fois.

Essaie d'étudier cette option :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Select Case TextBox1.Text
            Case 1
                Me.picturebox1.image = My.Resources.image1
            Case 2
                Me.picturebox1.image = My.Resources.image2
                '...
        End Select
    End Sub

[Attila54]

disons que dans ma propriete de picturebox, j'ai coché fichier de ressources du projet puis dans my project\resources.resx, j'ai importé les 15 images

Je vois donc les images dans proprietes de la picturebox et je voudrais donc que telle ou telle image soit selectionnée comme background de la picturebox selon les valeurs de "valeur calculée" ce qui semble correspondre a ta proposition.
Je teste et te dis ca

[shurikeNzL]

disons que dans ma propriete de picturebox, j'ai coché fichier de ressources du projet puis dans my project\resources.resx, j'ai importé les 15 images

Je me trompe peut-être mais le fait que tes 15 images soient importées dans ton fichier ressources n'inclue pas qu'elles soient dans ton picturebox.

[Neiflheim]

Je vois ce que tu veux dire, mais le formulaire où tu dis que tu as coché les images de tes ressources, tu ne peux en sélectionner qu'une à la fois, et non pas plusieurs.

[Attila54]

je comprends ce que vous voulez dire oui, mais alors comment faire pour ces 15 images qui s'affichent toutes seules selon une valeur ?
Mettre une image par picturebox et empiler 15 picturebox ?
Puis ensuite mettre des tonnes de .visible = false et .visible = True ? c'est lourd non ?

[Neiflheim]

je comprends ce que vous voulez dire oui, mais alors comment faire pour ces 15 images qui s'affichent toutes seules selon une valeur ?
Mettre une image par picturebox et empiler 15 picturebox ?
Puis ensuite mettre des tonnes de .visible = false et .visible = True ? c'est lourd non ?

Ben non, il te suffit de redéfinir la propriété image de la picturebox à chaque fois que la valeur de la textbox change avec le code que je t'ai passé plus haut

[Attila54]

euh j'ai pas tout compris la comment cela redefinir la propriete image de la picturebox ?

moi je comprends par exemple :

Code :

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

 Me.picturebox1.image = My.Resources.image1

veut dire picturebox1 avec image1 comme backgroundImage. Cest faux ?

Dans ce cas il n'ay aurait rien a bouger dans le code, et pourtant cela ne fonctionne pas

[Neiflheim]

Dans les ressources, l’extension du fichier n’est pas retenue, mais seulement son nom. Donc si tu as ajouté dans tes ressources le fichier img1.png, tu y accèderas par

Code :

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

My.Resources.img1

Pour définir le background de ton image, il faut faire :

Code :

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

Me.PictureBox1.BackgroundImage = My.Resources.img1

[Attila54]

merci de ton explication, je teste ca des demain et te dis ce qu'il en est

[Attila54]

bon alors cela ne fonctionne pas ou j'ai mal compris.

Voila : en fonction de la valeur affichée dans le textbox "valeurcalculee" je voudrais, en cliquant sur le button "buttoncalcul" que une image "img1" ou "img2" s'affiche dans le picturebox1 selon ceci :

si valeur affichée dans textbox valeurcalculee <= 250 alors img1 s'affiche
si valeur affichée dans textbox valeurcalculee > 250 alors img2 s'affiche

j'ai fait ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 Sub Buttoncalcul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncalcul.Click
        Select Case valeurcalculee.Text
            Case Is =< 250
                Me.PictureBox1.BackgroundImage = My.Resources.img1
            Case Is >= 250
                Me.PictureBox1.BackgroundImage = My.Resources.img2
 
        End Select
End sub

ca me semble correct mais rien de rien ne s'affiche quand je clique sur le bouton

Merci

[Attila54]

Mauvais copier coller sur les valeurs de la textbox je corrige :

Code :

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

1
2
3
4
5
6
7
8
9
 Sub Buttoncalcul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncalcul.Click
        Select Case valeurcalculee.Text
            Case Is =< 250
                Me.PictureBox1.BackgroundImage = My.Resources.img1
            Case Is > 250
                Me.PictureBox1.BackgroundImage = My.Resources.img2
 
        End Select
End sub

[shurikeNzL]

j'ai fait ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 Sub Buttoncalcul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncalcul.Click
        Select Case valeurcalculee.Text
            Case Is =< 250
                Me.PictureBox1.BackgroundImage = My.Resources.img1
            Case Is > 250
                Me.PictureBox1.BackgroundImage = My.Resources.img2
 
        End Select
End sub

ca me semble correct mais rien de rien ne s'affiche quand je clique sur le bouton

Merci

Chez moi ce code marche, je pense que le problème vient d'ailleurs que de ce bout de code. Peut-être de ta textbox "valeuraffichée". Ou de tes images. Vérifie tout.

[Neiflheim]

Ou de la picturebox

Vu que tu as tripatouillé avant, vérifie bien que sa propriété visible est à true, et que sa propriété .image ne contient pas d'image (qui viendrait écraser le background donc)

[Attila54]

bah je comprends pas cela fonctionne maintenant ..... sauf une chose
si aucune valeur n'est affichée dans le textbox je voudrais qu'il ne m'affiche rien dans le background et ca, ca ne fonctionne pas

[Neiflheim]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Buttoncalcul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncalcul.Click
    If IsNumeric(valeurcalculee.Text) = True Then
        Select Case valeurcalculee.Text
            Case Is =< 250
                Me.PictureBox1.BackgroundImage = My.Resources.img1
            Case Is > 250
                Me.PictureBox1.BackgroundImage = My.Resources.img2
        End Select
    ElseIf valeurcalculee.Text = "" Then
           Me.PictureBox1.BackgroundImage = Nothing
    End If
 
End sub

[Attila54]

arffff nothing c'est le mot qui me manquait
merci bien

maintenant il va falloir :

que j'applique cela non pas a une textbox mais a deux textbox
si textboxcalculée =< 250 et textboxcalculée2 > 500 alors img affichée = img1
si textboxcalculée > 250 et textboxcalculée2 > 1000 alors img affichée = img2

que je fasse tourner l'image dans le sens inverse des aiguilles du'une montre en fonction d'une valeur en degrés affiches dans une autre textbox ...... la c'est pas gagné

[Neiflheim]

arffff nothing c'est le mot qui me manquait
merci bien

maintenant il va falloir :

que j'applique cela non pas a une textbox mais a deux textbox
si textboxcalculée =< 250 et textboxcalculée2 > 500 alors img affichée = img1
si textboxcalculée > 250 et textboxcalculée2 > 1000 alors img affichée = img2

que je fasse tourner l'image dans le sens inverse des aiguilles du'une montre en fonction d'une valeur en degrés affiches dans une autre textbox ...... la c'est pas gagné

Ce n'est pas insurmontable

Pour ta première question, voici le mot clé que tu devras utiliser :

Code :

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

1
2
3
4
5
6
 
If textboxcalculee.Text <= 250 AndAlso textboxcalculee2.Text > 500 Then
...
Elseif ...
 
End if

Pour ta deuxième question, la rotation de l'image de la picturebox :

Une sub que j'ai adaptée :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 Private Sub Rotation(ByVal Angle As Double)
 
        Dim bm_in As New Bitmap(Me.PictureBox1.Image)
 
        ' Make an array of points defining the
        ' image's corners.
        Dim wid As Single = bm_in.Width
        Dim hgt As Single = bm_in.Height
        Dim corners As Point() = { _
            New Point(0, 0), _
            New Point(wid, 0), _
            New Point(0, hgt), _
            New Point(wid, hgt)}
 
        ' Translate to center the bounding box at the origin.
        Dim cx As Single = wid / 2
        Dim cy As Single = hgt / 2
        Dim i As Long
        For i = 0 To 3
            corners(i).X -= cx
            corners(i).Y -= cy
        Next i
 
        ' Rotate.
        Dim theta As Single = Single.Parse(Angle) * PI / 180.0
        Dim sin_theta As Single = Sin(theta)
        Dim cos_theta As Single = Cos(theta)
        Dim X As Single
        Dim Y As Single
        For i = 0 To 3
            X = corners(i).X
            Y = corners(i).Y
            corners(i).X = X * cos_theta + Y * sin_theta
            corners(i).Y = -X * sin_theta + Y * cos_theta
        Next i
 
        ' Translate so X >= 0 and Y >=0 for all corners.
        Dim xmin As Single = corners(0).X
        Dim ymin As Single = corners(0).Y
        For i = 1 To 3
            If xmin > corners(i).X Then xmin = corners(i).X
            If ymin > corners(i).Y Then ymin = corners(i).Y
        Next i
        For i = 0 To 3
            corners(i).X -= xmin
            corners(i).Y -= ymin
        Next i
 
        ' Create an output Bitmap and Graphics object.
        Dim bm_out As New Bitmap(CInt(-2 * xmin), CInt(-2 * ymin))
        Dim gr_out As Graphics = Graphics.FromImage(bm_out)
 
        ' Drop the last corner lest we confuse DrawImage, 
        ' which expects an array of three corners.
        ReDim Preserve corners(2)
 
        ' Draw the result onto the output Bitmap.
        gr_out.DrawImage(bm_in, corners)
 
        ' Display the result.
        Me.PictureBox1.Image = bm_out
    End Sub

Ensuite tu appelles cette sub de cette façon (par exemple) :

Code :

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

1
2
Dim Angle as double = me.textboxcalculee.text
Rotation(Angle)

[Attila54]

ca c'est du grand art ....
j'avais trouvé in fine le truc avec andAlso car j'avais bien vu qu'on ne pouvais plus utiliser les case .....

Pour la rotation, alors la j'etais carrement dans les choux.
Je te remercie de l'eclairage precieux et je desosse tout cela pour bien comprendre.

Je repost des que j'ai teste

Encore merci

+1

[Attila54]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Buttoncalcul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncalcul.Click
        If textboxcalculee.Text <= "250" AndAlso textboxcalculee2.Text > "500" Then
            Me.PictureBox1.BackgroundImage = My.Resources.img2
        ElseIf textboxcalculee.Text > "250" AndAlso textboxcalculee2.Text > "800" Then
            Me.PictureBox1.BackgroundImage = My.Resources.img3
        ElseIf textboxcalculee.Text <= "" AndAlso textboxcalculee2.Text > "" Then
            Me.PictureBox1.BackgroundImage = Nothing
        End If
    End Sub

ne fonctionne pas chez moi, idem sans les guillemets autour des valeurs
j'ai fait faux ?