[silverlight]

رجاء اختبار الكود التالي و إبلاغي بالنتائج التي سوف تعود بها MessageBox
الرجاء تحديد نوع نسخة الويندوز او نوعية نظام التشغيل أيضا
الرجاء تحديد نوع الكمبيوتر

الكود سهل و ليس به اي ضرر  من اي نوع

PHP كود :

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim dominant As Color = Image.FromHbitmap(New Bitmap(Me.Width, Me.Height).GetHbitmap(), Me.Handle).GetPixel(0, 0)
        Dim result As String = String.Format("{0},{1},{2},{3}", dominant.A, dominant.R, dominant.G, dominant.B)
        MessageBox.Show(result, "dominant Color")
    End Sub

End Class 


و أيضا الكود التالي
أفترض أن النتائج ستكون واحدة في الحالتين

PHP كود :

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim dominant As Color = Image.FromHbitmap(New Bitmap(Me.Width, Me.Height).GetHbitmap(), IntPtr.Zero).GetPixel(0, 0)
        Dim result As String = String.Format("{0},{1},{2},{3}", dominant.A, dominant.R, dominant.G, dominant.B)
        MessageBox.Show(result, "dominant Color")
    End Sub

End Class