Contents

# QBColor Function

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

### Syntax:

QBColor (ColorNumber As Integer)

### Return type:

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 অ্যাপ্লিকেশন থেকে রূপান্তর করতে এই ফাংশনটি ব্যবহৃত হয় যা উল্লেখিত রঙের কোড ব্যবহার করে থাকে। এই ফাংশনটি LibreOfficeDev 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

Please support us!