LibreOffice 24.8 Help
āļ´āˇāļģāˇāļĢāˇ MS-DOS āļ´āļ¯āļąāļ¸āˇāˇāˇ āļāˇâāļģāļ¸āļŊāˇāļāļąāļē āļ´āļ¯āˇāļ°āļāˇāļēāļ āˇāļģāˇāļĢ āļ āļāļēāļāˇ āļēāˇāˇāˇ āˇāˇāļ§ āļāˇāˇRGB āˇāļģāˇāļĢ āļāˇāļāļē āļŊāļļāˇ āļ¯āˇāļēāˇ.
QBColor (ColorNumber As Integer)
Long
ColorNumber: Any integer expression that specifies the color value of the color passed from an older MS-DOS based programming system.
ColorNumber can be assigned the following values:
0 : āļāˇ āˇ
1 : āļąāˇāļŊāˇ
2 : āļāˇāˇ
3 : āļ¸āļēāˇāļģ āļąāˇāļŊ
4 : āļģāļāˇ
5 : āļ¯āļ¸āˇāļ´āˇāļ§ āļāļ¯ āļģāļ (āļ¸āˇāļĸāˇāļąāˇāļ§āˇ)
6 : āļāˇ
7 : āˇāˇāļ¯āˇ
8 : āļ āˇ āˇāļ´āˇāļ§
9 : āļŊāˇ āļąāˇāļŊāˇ
10 : āļŊāˇ āļāˇāˇ
11 : āļŊāˇ āļ¸āļēāˇāļģ āļąāˇāļŊ
12 : Light Red
13 : āļŊāˇ āļ¯āļ¸āˇāļ´āˇāļ§ āļāļ¯ āļģāļ (āļ¸āˇāļĸāˇāļąāˇāļ§āˇ)
14 : āļŊāˇ āļāˇ
15 : āļ¯āˇāļ´āˇāļāˇāļ¸āļāˇ āˇāˇāļ¯āˇ
This function is used only to convert from older MS-DOS based BASIC applications that use the above color codes. The function returns a long integer value indicating the color to be used in the 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