IBM Lotus Symphony
|
返回作为颜色值通过基于 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 应用程序,因为这些应用程序使用上面列出的颜色代码。此函数返回一个长整型值,用于指示将在 Lotus® Symphony™ 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