[الشاكي لله]

(14-04-17, 11:58 AM)السندبااد كتب : فكرة كود الحذف الموجود في Draw فهمتها جيداً والحمد لله، وقد أجريت عليها عدة تجارب، وهذا الدرس لأهميته تابعته مراراً وطبقت جميع الحالات، والحمد لله لم أعد أواجه أي مشكلة وكل شيء إلى الآن واضح، ولكن يراودني سؤال حسب ردك: هل يمكن تغيير قيمة الـ Color لأحد الـ Categories فقط دون تغيير أي شيء آخر ؟


بالنسبة للفطيرة Pie كلامك في محله فيما يتعلق بالشكل، ولكن أظن أن الفكرة واحدة؛ فكلاهما يعطيانك نسبة محددة لجزء من المجموع العام، ولكن Pie تكون ممتلئة، كل جزء منها يشبه الفطيرة.

على العموم يمكن صناعة الـ PieChart بتغيير خاصية StrokeThickness ضمن الـ Style

جربت تغييرها الى 125 ونجحت العملية ولكن الmargin بين الـ arcs يحتاج تعديل. 

المهم ..

--

بالنسبة لسؤالك ، هل تقصد تغيير اللون في الران تايم ؟

فاذا كان كذلك ، انظر هذا الكود :

PHP كود :

 Private Sub button_Click(sender As Object, e As RoutedEventArgs) Handles button.Click
        Dim chart As DonutChart = TryCast(CType(chartGeneralBorder, Grid).Children.Cast(Of FrameworkElement)().Where(Function(a) a.GetType() = GetType(DonutChart)).Single(), DonutChart)

        'حذف الكاتيغوريس
        PieChart.categories.Clear()
        PieChart.categories.Add(New Chart.DonutCategory() With {.NameA = "Visits", .ColorA = New SolidColorBrush(CType(ColorConverter.ConvertFromString("#FF60C6CF"), Color)), .PercentA = 40})
        PieChart.categories.Add(New Chart.DonutCategory() With {.NameA = "Members", .ColorA = New SolidColorBrush(CType(ColorConverter.ConvertFromString("#FF989CFF"), Color)), .PercentA = 25})
        PieChart.categories.Add(New Chart.DonutCategory() With {.NameA = "Sales", .ColorA = New SolidColorBrush(CType(ColorConverter.ConvertFromString("#FF59C5A0"), Color)), .PercentA = 23})
        PieChart.categories.Add(New Chart.DonutCategory() With {.NameA = "Lose", .ColorA = New SolidColorBrush(CType(ColorConverter.ConvertFromString("#FFF35958"), Color)), .PercentA = 12})


    End Sub

    Private Sub button1_Click(sender As Object, e As RoutedEventArgs) Handles button1.Click

        'تغيير لون الكاتيغوري لووس
        PieChart.categories.Where(Function(c) c.NameA = "Lose").Single().ColorA = New SolidColorBrush(Colors.Yellow)

    End Sub 


موفق