JE PEUX pas DESSINER SUR PICTUREBOX EN VB.NETRésolu

Question

Bonjour, 
je suis débutant en programmation en VB.net
j'essai de faire un programme de simulation d'un réseau d'assainissement 
voici le code que j'ai fait pour dessiner les regards mais ça ne marche pas !!!
SVP aide moi!!!    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click        Dim btn As New Button        Dim MyLABEL As New Label        Dim i As Integer        If Button5.Enabled = False Then            btn.Size = New Size(75, 75)            btn.Location = New Point(MousePosition.X - 8, MousePosition.Y - 8)            MyLABEL.Location = New Point(MousePosition.X + 5, MousePosition.Y + 5)            MyLABEL.Width = 25            i = Val(Label1.Text)            btn.BackColor = Color.Brown            btn.Name = "R" & i            'Forme De regard circle0            Dim Fr As New Drawing.Drawing2D.GraphicsPath            Fr.AddEllipse(New Rectangle(New Point(3, 3), New Size(10, 10)))            btn.Region = New Region(Fr)            Me.Controls.Add(btn)            'Forme Du text circle            Dim Ft As New Drawing.Drawing2D.GraphicsPath            Ft.AddEllipse(New Rectangle(New Point(3, 3), New Size(15, 15)))            Me.Controls.Add(MyLABEL)            MyLABEL.Text = btn.Name        ElseIf Button6.Enabled = False Then            btn.Size = New Size(75, 75)            btn.Location = New Point(MousePosition.X - 8, MousePosition.Y - 8)            MyLABEL.Location = New Point(MousePosition.X + 5, MousePosition.Y + 5)            MyLABEL.Width = 25            i = Val(Label2.Text)            btn.BackColor = Color.BlueViolet            btn.Name = "R" & i            'Forme De regard circle            Dim Fr As New Drawing.Drawing2D.GraphicsPath            Fr.AddEllipse(New Rectangle(New Point(3, 3), New Size(10, 10)))            btn.Region = New Region(Fr)            Me.Controls.Add(btn)            'Forme Du text circle            Dim Ft As New Drawing.Drawing2D.GraphicsPath            Ft.AddEllipse(New Rectangle(New Point(3, 3), New Size(15, 15)))            'MyLABEL.Region = New Region(Ft)            Me.Controls.Add(MyLABEL)            MyLABEL.Text = btn.Name        End If    End Sub

cs_ShayW · Answer

Bonjour

voici le code que j'ai fait pour dessiner les regards mais ça ne marche pas !!! 

"ça ne marche pas " n'aide pas comprendre le problème donc
sois plus précis. Un message d'erreur ?

vb95 · Answer

bonjour 
quelle est la valeur de la propriété Enabled des Boutons Button5 et Button6 ?
Le code ne s'exécute dans ton code que si cette propriété est = à False

Zermelo · Answer

Bonsoir SAID_ING_HYDRA. 
Je m'interroge à votre sujet. Vous débutez en VB.net. Vous rédigez des codes compliqués. Bizarre. Avez-vous déjà dessiné un trait sur un PictureBox ?
Cordialement.

Zermelo · Answer

Bonjour SAID_ING_HYDRA. 
Sur le formulaire Accueil, j'ai déposé un PictureBox noté pBox et un Button noté bTst et marqué Tester. Quand je clique sur ce dernier, un petit trait apparaît sur le PictureBox. Miracle !

Public Class Accueil    Private Sub bTst_Click(sender As Object, e As EventArgs) Handles bTst.Click        Dim Gph As Graphics        Gph = pBox.CreateGraphics        Gph.DrawLine(Pens.Black, 10, 20, 30, 40)    End SubEnd Class 
Cordialement.

cs_ShayW · Answer

Salut Said_ING_HYDRA 
Bizarre
C'est déja résolu  comment ?
Aussi dans ta question tu affiches un code montrant des connaissances en graphisme et après tu dis 
non jamais! c'est ma question de dessiner sur un PICTUREBOX!! 
si je ne suis pas un DEB je ne jamais a demander vos aides!
Pourquoi copier un code sans savoir ce qu'il fait et dire
voici le code que j'ai fait pour dessiner les regards mais ça ne marche pas !!! 

VB95 (que je salue) t'a dit 
Je me répète : Le code ne s'exécute que si cette propriété est = à False 
As tu verifié la valeur de  Button5.Enabled avec le debugger ?

JE PEUX pas DESSINER SUR PICTUREBOX EN VB.NET

5 réponses

Votre réponse

Discussions similaires