Discussion :

[Pierrelec]

Bonsoir,

Je suis avec Visual Studio 2015, et j'utilise VBA, et .... j'ai dans un programme deux problèmes, en réalité j'en ai bcp plus, mais deux à la fois.

le premier: j'aimerai que dans mes textbox, les utilisateurs puissent entrer les décimales indifféremment avec un point ou une virgule ....

deuxième: j'ai fais une petite animation, pour résumer une tuyau se vide dans un bidon, le niveau de liquide de l'un passe dans l'autre, j'ai fais ça dans les limites de mes connaissances, c'est à dire j'ai fais avec visio 14 dessins identiques mais ou a chaque fois le liquide varie, et j'ai crée 14 picturesbox, que je fais apparaitre a tour de rôle grâce à un if then, visible false/true, genre dessin animé si vous voyez ce que je veux dire, j'ai collé le code qui est tout bête. et ça fonctionne mais

le problème à mon sens c'est que le mouvement est trop rapide, j'aimerai le ralentir et surtout, j'ai is une trackbar, j'aimerai l'associer à cette trackbar !, faire bouger mon liquide dans un sens comme dans l'autre !

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
63
64
65
66
67
Public Class Form1
    Dim a As Double
    Dim b As Integer
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        PictureBox1.Visible = True
 
        If PictureBox1.Visible = True Then
            PictureBox1.Visible = False
            PictureBox2.Visible = True
 
            If PictureBox2.Visible = True Then
                PictureBox2.Visible = False
                PictureBox3.Visible = True
 
                If PictureBox3.Visible = True Then
                    PictureBox3.Visible = False
                    PictureBox4.Visible = True
 
                    If PictureBox4.Visible = True Then
                        PictureBox4.Visible = False
                        PictureBox5.Visible = True
 
                        If PictureBox5.Visible = True Then
                            PictureBox6.Visible = False
                            PictureBox6.Visible = True
 
                            If PictureBox7.Visible = True Then
                                PictureBox7.Visible = False
                                PictureBox8.Visible = True
 
                                If PictureBox8.Visible = True Then
                                    PictureBox9.Visible = False
                                    PictureBox9.Visible = True
 
                                    If PictureBox10.Visible = True Then
                                        PictureBox10.Visible = False
                                        PictureBox11.Visible = True
 
                                        If PictureBox11.Visible = True Then
                                            PictureBox12.Visible = False
                                            PictureBox13.Visible = True
 
                                            If PictureBox13.Visible = True Then
                                                PictureBox13.Visible = False
                                                PictureBox14.Visible = True
 
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
 
    End Sub
 
    Private Sub TrackBar1_ValueChanged(sender As Object, e As EventArgs) Handles TrackBar1.ValueChanged
        b = TrackBar1.Value
        Label2.Text = "lenght of inches" &
        Format(b / 5, "#.00#")
    End Sub
End Class

[jopopmk]

Salut,

je pense que tu fais du VB.NET et non du VBA, ça c'est juste pour la précision.

Pour ton problème de séparateur décimal il suffit de faire un Replace(",", ".") avant de parser ta string vers un double. Si la valeur contient une virgule elle sera remplacée par un point, si ta valeur contient un point le replace ne fera rien.

Pour ton animation je trouve ton code bien étrange. Perso (et c'est peut-être pas la meilleure solution) j'aurai fait une ImageList qui contient mes 14 images et lors du click sur le Button j'aurais lancé un Timer qui aurait rafraichi l'attribut Image de ma PictureBox jusqu'à les avoir toutes déroulées.

Je te donnerai bien des exemples mais je peux te faire que du C#.

PS : utilise la balise "code" (bouton #) pour rendre ton code plus lisible sur le forum.

[Pierrelec]

Merci je vais essayer les "imagelist"

est ce que tu crois que je peux l'associer a la trackbar ?

[jopopmk]

ImageList est juste un conteneur d'image (en gros), donc je vois pas bien ce que tu pourrais faire comme association avec une TrackBar.
Je te passe quand même un code C# au cas où ça pourrait t'aider un brin :

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
// btnAnime : Button qui lance l'animation
// tmAnime : le Timer qui change l'image à chaque tick
// picbxAnime : la PictureBox dans laquelle je mets mes images
// imglstAnime : l'ImageList qui contient les images de mon animation, dans l'ordre
 
// événement click sur le bouton : on start le timer
private void btnAnime_Click(object sender, EventArgs e) {
	tmAnime.Start();
}
 
// index de l'image actuellement affichée dans la picturebox
private int _imgIdx = 0;
 
// événement tick (appelé tous les Timer.Interval millisecondes, si starté)
private void tmAnime_Tick(object sender, EventArgs e) {
	// je mets l'image suivante de mon imagelist dans ma picturebox
	picbxAnime.Image = imglstAnime.Images[_imgIdx++];
	// si on a parcouru toutes les images de l'imagelist on reset l'index et on arrête le timer
	if (_imgIdx >= imglstAnime.Images.Count) {
		_imgIdx = 0;
		tmAnime.Stop();
	}
}

[Pierrelec]

en gros j'aimerai que ma trackbar fasse "bouger" mon dessin dans un sens ou dans l'autre, pour etre plus précis, mes dessins représentent une bouteille qui se vide dans un fut, ma trackbar ferait vider la bouteille dans un sens et la remplir dans l'autre....

pour info, c'est pas de l'alcool !!!!

[jopopmk]

Alors oui, c'est tout à fait possible. En C# toujours :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
// trkAnime : la TrackBar
 
// dans le constructeur de la form
public FrmMain() {
	InitializeComponent();
	// après l'initialisation des composants on met le max de la TrackBar en corrélation avec le nombre d'images de l'ImageList
	trkAnime.Maximum = imglstAnime.Images.Count - 1;
}
 
// événement scroll de la TrackBar
private void trkAnime_Scroll(object sender, EventArgs e) {
	// on met l'image de l'ImageList qui correspond à la valeur de la TrackBar dans notre PictureBox
	picbxAnime.Image = imglstAnime.Images[trkAnime.Value];
}