Discussion :

[doudou47]

Bonjour à tous,

Je suis débutant en VB.net, voici mon programme ci-dessous.
J'ai une erreur au niveau de la condition while, je voudrais que ce qu'il y a dans la boucle while s'effectue à chaque fois que l'utilisateur appuie sur le bouttonP de la Form4 or je ne vois pas comment faire même en cherchant sur les tutoriels.

Merci d'avance pour votre aide.

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
 Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim x As Integer = 10
        While Form4.ButtonP.Click
            If Form4.TextBoxbranche1.Text = "" Then
            Else
                e.Graphics.DrawLine(Pens.Red, x, 40, x + 90, 40)
                e.Graphics.DrawString(Form4.TextBoxbranche1.Text, Font, Brushes.Black, 40, 27)
            End If
 
            If Form4.TextBoxbranche2.Text = "" Then
            Else
                e.Graphics.DrawLine(Pens.Red, x, 80, x + 90, 40)
                e.Graphics.DrawString(Form4.TextBoxbranche2.Text, Font, Brushes.Black, 45, 65)
            End If
            If Form4.TextBoxBranche3.Text = "" Then
            Else
                e.Graphics.DrawLine(Pens.Red, x, 0, x + 90, 40)
                e.Graphics.DrawString(Form4.TextBoxBranche3.Text, Font, Brushes.Black, 45, 3)
            End If
            x = x + 90
        End While
    End Sub

[shayw]

Salut

le picturebox1 est placé dans form4 ?

[doudou47]

Non, PictureBox1 est dans une autre Form (Form7)

[spottt]

De ce que je comprends, c'est un event "onClick" que tu dois faire, et non une boucle.

[Invité]

Cela me permet normal que ton événement ne soit pas détecté, tu essaye d'intercepter un événement sans rendre la main au gestionnaire d’événement.

[-N4w4k-]

Le problème c'est que l'on ne sait pas quel form connait quel form..

J'ai fait un test avec un form (Form1) contenant le bouton, les textboxs et qui appelle un nouveau form (Form2) contenant la picturebox:

Form1:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Class Form1
 
    Dim frm2 As Form2
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        frm2 = New Form2
        frm2.Show()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        frm2.UpdatePictureBox(TextBoxBranche1.Text, TextBoxBranche2.Text, TextBoxBranche3.Text)
    End Sub
 
End Class

Form2:

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
Public Class Form2
 
    Dim x As Integer = 0
    Dim txt1 As String = ""
    Dim txt2 As String = ""
    Dim txt3 As String = ""
 
    Public Sub UpdatePictureBox(ByVal txt1 As String, ByVal txt2 As String, ByVal txt3 As String)
        Me.txt1 = txt1
        Me.txt2 = txt2
        Me.txt3 = txt3
        PictureBox1.Refresh()
        x = x + 90
    End Sub
 
    Private Sub PictureBox1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
 
        If txt1 <> "" Then
            e.Graphics.DrawLine(Pens.Red, x, 40, x + 90, 40)
            e.Graphics.DrawString(txt1, Font, Brushes.Black, 40, 27)
        End If
 
        If txt2 <> "" Then
            e.Graphics.DrawLine(Pens.Red, x, 80, x + 90, 40)
            e.Graphics.DrawString(txt2, Font, Brushes.Black, 45, 65)
        End If
 
        If txt3 <> "" Then
            e.Graphics.DrawLine(Pens.Red, x, 0, x + 90, 40)
            e.Graphics.DrawString(txt3, Font, Brushes.Black, 45, 3)
        End If
 
    End Sub
 
End Class

[Pol63]

c'est surtout que ca n'a pas de sens d'écrire while un event
après une boucle dans une méthode empeche le rafraichissement de l'interface, il vaut mieux faire du traitement toutes les x millisecondes
le Form4. c'est étrange aussi

sur l'event click tu peux démarrer un timer, sur l'event du timer tu fais pctbox.invalidate, ce qui appellera l'event paint, et tu déplaces ton x en variable de classe pour l'incrémenter dans la méthode

enfin le mieux serait de nous dire ce que tu veux faire, pourquoi et quels sont les conditions

[doudou47]

Bonjour,

J'ai réalisé ce programme en suivant l'exemple de N4w4k :

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
Public Class Form7
 
    Dim x As Integer = -80
    Dim txt1 As String = ""
    Dim txt2 As String = ""
    Dim txt3 As String = ""
 
    Public Sub UpdatePictureBox(ByVal txt1 As String, ByVal txt2 As String, ByVal txt3 As String)
        Me.txt1 = txt1
        Me.txt2 = txt2
        Me.txt3 = txt3
        x = x + 90
        PictureBox1.Refresh()
    End Sub
 
    Private Sub PictureBox1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
 
        If txt1 <> "" Then
            e.Graphics.DrawLine(Pens.Red, x, 40, x + 90, 40)
            e.Graphics.DrawString(txt1, Font, Brushes.Black, 40, 27)
        End If
 
        If txt2 <> "" Then
            e.Graphics.DrawLine(Pens.Red, x, 80, x + 90, 40)
            e.Graphics.DrawString(txt2, Font, Brushes.Black, 45, 65)
        End If
 
        If txt3 <> "" Then
            e.Graphics.DrawLine(Pens.Red, x, 0, x + 90, 40)
            e.Graphics.DrawString(txt3, Font, Brushes.Black, 45, 3)
        End If
 
    End Sub
 
End Class
 
 
Public Class Form4
 
Private Sub ButtonV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonV.Click
        Form7.Show()
    End Sub
 
Private Sub ButtonP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonP.Click
 
        Form7.UpdatePictureBox(TextBoxbranche1.Text, TextBoxbranche2.Text, TextBoxbranche3.Text)
End Sub
 
End Class

J'ai le même soucis qu'avec le programme que j'avais réalisé.
En fait, le boutonV me permet de voir les traits tracés.
Ensuite, en appuyant sur le boutonP, je veux que cela trace les traits puis que à chaque appui sur ce bouton que x devient x+90.

En ce moment quand je clique sur le boutonP, cela trace bien les traits comme il faut mais lorsque je rappuis sur ce boutton pour tracer d'autres traits à x+90, cela remplace ceux tracé précédemment à l'abcisse x.

Donc je voudrais que pour un nouvel appui sur le boutonP, que cela trace les traits à x+90 tout en conservant les traits précédents tracés.

J'espère que j'ai été assez clair.
Merci
Cordialement