Převod RGB na systémovou barvu

Procedura:

Private Sub Command1_Click() 

  R = Val(InputBox$("Hodnota červené")) 
  B = Val(InputBox$("Hodnota modré")) 
  G = Val(InputBox$("Hodnota zelené")) 

Lng$ = B * 65536 + G * 256 + R 
MsgBox Lng$ 

End Sub

Zpět

Autor: The Bozena