[RaggiTech]

مثل السابق لكن أوقفنا امكانية تكوين لون

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' هنا نوقف الامكانيات

ColorDialog1.AllowFullOpen = False


If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.BackColor = ColorDialog1.Color
End If
End Sub

مرفق ملف عبارة عن مثال على الكود السابق



صفحة الكائن فى مكتبة مايكروسوفت

http://msdn2.microsoft.com/en-us/lib...og(VS.90).aspx