جرب هذا
استبدل هذا الكود
بالكود التالي
استبدل هذا الكود
بالكود التالي
وضع في آخر كل من السطرين التاليين: مسافة ثم الرمز _
مثل
استبدل هذا الكود
كود :
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")> _