[VBScript] RGB関数

>Blog Top Page >[VBScript] Top Page >[VBScript] 関数 一覧

■構文
RGB(red, green, blue)

■説明
RGBからその色を表す値を返します。
第一引数：赤の割合を指定。0～255の整数値
第二引数：緑の割合を指定。0～255の整数値
第三引数：青の割合を指定。0～255の整数値

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. '白のRGB値を10進数で表示  
4. Wscript.Echo RGB(255, 255, 255) '16777215  
5.   
6. '白のRGB値を16新数で表示  
7. Wscript.Echo Hex(RGB(255, 255, 255)) 'FFFFFF  
8.   
9. '青のRGB値を16新数で表示  
10. Wscript.Echo Hex(RGB(0, 0, 255)) 'FF0000  
11.   
12. '赤のRGB値を16新数で表示(数値なので先頭の0は表示されない)  
13. Wscript.Echo Hex(RGB(255, 0, 0)) 'FF  
14.   
15. '先頭の0を補う  
16. Dim HexRGB  
17. HexRGB = Hex(RGB(255, 0, 0))  
18. HexRGB = String(6 - Len(HexRGB), "0") & HexRGB  
19. Wscript.Echo HexRGB '0000FF  

Option Explicit

'白のRGB値を10進数で表示
Wscript.Echo RGB(255, 255, 255) '16777215

'白のRGB値を16新数で表示
Wscript.Echo Hex(RGB(255, 255, 255)) 'FFFFFF

'青のRGB値を16新数で表示
Wscript.Echo Hex(RGB(0, 0, 255)) 'FF0000

'赤のRGB値を16新数で表示(数値なので先頭の0は表示されない)
Wscript.Echo Hex(RGB(255, 0, 0)) 'FF

'先頭の0を補う
Dim HexRGB
HexRGB = Hex(RGB(255, 0, 0))
HexRGB = String(6 - Len(HexRGB), "0") & HexRGB
Wscript.Echo HexRGB '0000FF

>Blog Top Page >[VBScript] Top Page >[VBScript] 関数 一覧