06-12-16, 08:14 AM (آخر تعديل لهذه المشاركة : 06-12-16, 08:22 AM {2} بواسطة 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
