QBColor Function

পুরনো MS-DOS ভিত্তিক প্রোগ্রামিং সিস্টেমের রঙের মান হিসেবে পাস করা রঙের RGB রঙের কোড প্রদান করা যায়।

Syntax:

QBColor (ColorNumber As Integer)

Return value:

Long

Parameters:

ColorNumber: যেকোনো ইনটিজার এক্সপ্রেশন যা একটি অপেক্ষাকৃত পুরনো MS-DOS ভিত্তিক প্রোগ্রামিং সিস্টেম থেকে পাস করা রঙের মান উল্লেখ করে।

ColorNumber নিম্নোক্ত মান প্রয়োগ করা যেতে পারে:

0 : কালো

1 : নীল

2 : সবুজ

3 : সায়ান

4 : লাল

5 : ম্যাজেন্টা

6 : হলুদ

7 : সাদা

8 : ধূসর

9 : হালকা নীল

10 : হালকা সবুজ

11 : হালকা সায়ান

12 : হালকা লাল

13 : হালকা ম্যাজেন্টা

14 : হালকা হলুদ

15 : উজ্জ্বল সাদা

শুধুমাত্র পুরাতন MS-DOS ভিত্তিক BASIC অ্যাপ্লিকেশন থেকে রূপান্তর করতে এই ফাংশনটি ব্যবহৃত হয় যা উল্লেখিত রঙের কোড ব্যবহার করে থাকে। এই ফাংশনটি LibreOffice IDE এ ব্যবহৃত হবে এমন একটি রং নির্দেশক দীর্ঘ পূর্ণসংখ্যা প্রদান করে।

Error codes:

5 Invalid procedure call

Example:


Sub ExampleQBColor
Dim iColor As Integer
Dim sText As String
    iColor = 7
    sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )
    MsgBox stext,0,"Color " & iColor
End Sub