Bonjour,

J'essai d'intégré un chart (pour tracer des courbes de puissance), en VB 2019. La preview est bonne/normale dans "Design", mais une fois compilé, le graphique est tout petit (mais juste ...)

Malgré les nombreux tutos et sujets, je n'arrive pas à trouver la solution pour que graphique occupe toute la place du contrôle/composant Chart inséré dans le programme.

Voici le Designer :



Voici le programme en cours d'exécution :




Voici le code qui génère le Chart :

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
Try
            ButtonUnconnect.Enabled = False
            ButtonConnect.Enabled = False
            TextBoxIP.Enabled = False
            TextBoxPORT.Enabled = False
            TextBoxDELAY.Enabled = False
            ButtonCourbes.Enabled = False
            ButtonStopCourbes.Enabled = True
 
            Timer2.Interval = 5000 'Récupération des données toutes les 10s
            Timer3.Interval = 200 'Envoi des commandes à l'EcoPV toutes les 200 ms
            Application.DoEvents()
            Counter1 = 1
            Chart1.ChartAreas.Add(ChartArea1)    'Génération du graphique courbes.
            'Chart1.ChartAreas(0).AxisX.Minimum = 0
            'Chart1.ChartAreas(0).AxisX.Maximum = 3000
            'Chart1.ChartAreas(0).AxisX.Interval = 500
 
            'TextBoxLogToCSV.Clear()
            TextBoxLogToCSV.AppendText("Compteur;Time;PuissActive;PuissApparente;PuissRoutee;PuissImportee;PuissExportee;" + vbNewLine)
            TextBoxCourbes.Clear()
            Timer2.Start()
            Timer3.Start()
        Catch ex As Exception
Voici le code qui génère les courbes :

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
Try
            'Convertion des datas en chiffre
            Dim pact As Integer = CInt(TextBoxPuissActive.Text)
            Dim papp As Integer = CInt(TextBoxPuissApparente.Text)
            Dim prou As Integer = CInt(TextBoxPuissRoutee.Text)
            Dim pimp As Integer = CInt(TextBoxPuissImportee.Text)
            Dim pexp As Integer = CInt(TextBoxPuissExportee.Text)
 
            'Ajout des points au graphique
            Chart1.ChartAreas(0).AxisY.Minimum = 0
            Chart1.ChartAreas(0).AxisX.Minimum = 0
            'Chart1.ChartAreas(0).AxisY.Maximum = 7000
            'Chart1.ChartAreas(0).AxisY.Interval = 500
 
            Chart1.Series("P_active").Points.AddXY(Counter1, pact)
            Chart1.Series("P_apparente").Points.AddXY(Counter1, papp)
            Chart1.Series("P_routée").Points.AddXY(Counter1, pimp)
            Chart1.Series("P_exportée").Points.AddXY(Counter1, pexp)
 
            'TextBoxCourbes.AppendText("P active =" & CStr(pact) + vbNewLine)
            'TextBoxCourbes.AppendText("P apparente =" & CStr(papp) + vbNewLine)
            'TextBoxCourbes.AppendText("P routée =" & CStr(prou) + vbNewLine)
            'TextBoxCourbes.AppendText("P importée =" & CStr(pimp) + vbNewLine)
            'TextBoxCourbes.AppendText("P exportée =" & CStr(pexp) + vbNewLine)
 
        Catch ex As Exception
Voilà, si quelqu'un à une idée sur ce problème ... moi je sèche.

Merci.
Stéphane.