From ed5640d8b587fbcfed7dd7967f3de04b37a76f26 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 11:06:44 +0200 Subject: Adding upstream version 4:7.4.7. Signed-off-by: Daniel Baumann --- .../source/text/sbasic/shared/03010303.xhp | 72 ++++++++++++++++++++++ 1 file changed, 72 insertions(+) create mode 100644 helpcontent2/source/text/sbasic/shared/03010303.xhp (limited to 'helpcontent2/source/text/sbasic/shared/03010303.xhp') diff --git a/helpcontent2/source/text/sbasic/shared/03010303.xhp b/helpcontent2/source/text/sbasic/shared/03010303.xhp new file mode 100644 index 000000000..361a1e747 --- /dev/null +++ b/helpcontent2/source/text/sbasic/shared/03010303.xhp @@ -0,0 +1,72 @@ + + + + + + + Red Function + /text/sbasic/shared/03010303.xhp + + + + + +

+ + Red function + + + +

Red Function

+Returns the Red component of the specified composite color code. +

+ +

+ +Red (ColorNumber As Long) + + +

+Integer + +

+ ColorNumber: Long integer expression that specifies any composite color code for which to return the Red component. +Under VBA compatibility mode (Option VBASupport 1), the function Red() is incompatible with VBA colors, when color from previous call to function RGB [VBA] is passed. + +

+ +

+ The color picker dialog details the red, green and blue components of a composite color code, as well as its hexadecimal expression. Changing the color of text and selecting Custom color displays the color picker dialog. +

+ +

+ +Sub ExampleColor +Dim lVar As Long + lVar = rgb(128,0,200) + MsgBox "The color " & lVar & " consists of:" & Chr(13) &_ + "red= " & red(lVar) & Chr(13)&_ + "green= " & green(lVar) & Chr(13)&_ + "blue= " & blue(lVar) & Chr(13) , 64,"colors" +End Sub + + + + -- cgit v1.2.3