[طالب برمجة]

أشكرك أخي على مشاعرك الجميلة

---

تحسين الكود السابق مع إضافة عنوان

PHP كود :

Imports System.Data.OleDb

Public Class Form1

    Dim provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DOUSSA.mdb;Persist Security Info=True"
    Dim Conn As OleDbConnection = New OleDbConnection(provider)

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        Dim da As New OleDbDataAdapter("SELECT [ANNEE], [MASCULIN] , [FEMININ]FROM [MMSHART]", Conn)
        Dim dt As New DataTable
        da.Fill(dt)

        Chart1.DataSource = dt

        Chart1.Titles.Clear()
        With Chart1.Titles.Add("إحصائية لعدد الذكور والإناث")
            .TextStyle = DataVisualization.Charting.TextStyle.Shadow
            .Font = New Font("Times New Roman", 20, FontStyle.Bold)
            .ForeColor = Color.Brown
        End With
        With Chart1.Titles.Add("الإحصائية للأعوام من سنة 2000")
            .TextStyle = DataVisualization.Charting.TextStyle.Shadow
            .Font = New Font("Times New Roman", 12, FontStyle.Bold)
            .ForeColor = Color.Brown
        End With

        Chart1.Series.Clear()
        With Chart1.Series.Add("الذكور")
            .Color = Color.Blue
            .XValueMember = "ANNEE"
            .YValueMembers = "MASCULIN"
        End With
        With Chart1.Series.Add("الإناث")
            .Color = Color.DeepPink
            .XValueMember = "ANNEE"
            .YValueMembers = "FEMININ"
        End With

    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Me.Hide()
        Form2.Show()
    End Sub

End Class