QBColor Function
পুরনো MS-DOS ভিত্তিক প্রোগ্রামিং সিস্টেমের রঙের মান হিসেবে পাস করা রঙের RGB রঙের কোড প্রদান করা যায়।
সিনট্যাক্স:
QBColor (ColorNumber As Integer)
প্রদান মান:
লং
প্যারামিটার:
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 এ ব্যবহৃত হবে এমন একটি রং নির্দেশক দীর্ঘ পূর্ণসংখ্যা প্রদান করে।
উদাহরণ:
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