آموزش برنامه نويسي

رنگ ها باعث جذابیت و زیبایی تصاویر می شوند . در ویژوال بیسیک به چند طریق می توان از رنگ ها استفاده کرد که عبارتند از :

1 – استفاده از ثوابت : ویژوال بیسیک ثوابتی برای رنگ ها دارد که در جدول زیر  آمده اند :

2 – استفاده از تابع RGB : با استفاده از این تابع می توان یک رنگ را تولید کرد . تابع  RGB به صورت زیر به کار می رود :

RGB  (Red , Green , Blue)

پارامتر Red ، شدت رنگ قرم (درصد مقدار رنگ قرمر) ، پارامتر Green ، شدت رنگ سبز و پارامتر Blue شدت رنگ آبی را تعیین می کند . هر یک از پارامتر های Red , Green , Blue می توانند مقادیر 0 تا 256 را بپذیرند . پس در ویژوال بیسیک 256 * 256 * 256  (حدود 16 میلیون رنگ) را می تواند ایجاد کرد . به عنوان مثال ، دستورات زیر را در نظر بگیرید :

Dim  Color1  As  Long

Color1 = Rgb (225 , 100 , 170)

Form1 . Forecolor = Color1

این دستوارت ، رنگی را ایجاد کرده در خاصیت Forecolor فرم قرار می دهد.

3 – استفاده از تابع Qbcolor : برای تولید رنگ استفاده می شود و به صورت زیر به کار می رود :

Qbcolor  (Qbcolor)

پارامتر Qbcolor عددی صحیح بین 0 تا 15 می باشد . لیست رنگ هاییی که تابع Qbcolor می تواند ایجاد کند در جدول زیر آمده است . به عنوان مثال ، دستورات زیر را در نظر بگیرید :

Private  Sub  Squaredraw_Click ()

Form1 . Cls

Form1 . Scaleheight = 10

For I = 0 To 15

Form1 . Line (0 , I) – ((Form1 . Scalewidth) , I + 1) , Qbcolor (I) ,Bf

Next I

End  Sub

این دستورات ، فرم را به 16 مستطیل رنگی تقسیم می کند (برای ایجاد رنگ ها از تابع Qbcolor استفاده شده است).

متد Point : رنگ نطقه ای از فرم یا عنصر Picturebox را بر می گرداند و به صورت زیر به کار می رود :

Point  (X , Y) . نام عنصر

(X , Y) مختصات نقطه ای از فرم می باشد که رنگ آن باید تعیین گردد . به عنوان مثال ، دستو زیر رنگ نقطه ( 100 , 100)) را در متغیر Colorxy قرار می دهد :

Dim Colorxy As Long

Colorxy = Form1 . Point (100 , 100)