(04-10-18, 06:13 PM)rnmr كتب : جرب هذا




استبدل هذا الكود

كود :

ColorBlend.Colors = {Color.FromArgb(25, 25, 25), Color.FromArgb(17, 17, 17), Color.FromArgb(25, 25, 25)}

بالكود التالي

كود :

Dim clrs(2) As Color
clrs(0) = Color.FromArgb(25, 25, 25)
clrs(1) = Color.FromArgb(17, 17, 17)
clrs(2) = Color.FromArgb(25, 25, 25)
ColorBlend.Colors = clrs

استبدل هذا الكود

كود :

ColorBlend.Positions = {0.0F, 0.5F, 1.0F}

بالكود التالي

كود :

Dim pos(2) As Single
pos(0) = 0.0
pos(1) = 0.5
pos(2) = 1.0
ColorBlend.Positions = pos

وضع في آخر كل من السطرين التاليين: مسافة ثم الرمز _

كود :

<TypeConverter(GetType(btnimProperty)), Category("Misc"), Description("Select Image from the list")>

كود :

<TypeConverter(GetType(btnColorProperty)), Category("Misc"), Description("Select color from the list")>

مثل

كود :

<TypeConverter(GetType(btnimProperty)), Category("Misc"), Description("Select Image from the list")> _

كود :

<TypeConverter(GetType(btnColorProperty)), Category("Misc"), Description("Select color from the list")> _