Есть ли возможность для Shape в свойстве BackStyle сделать градиентную заливку?

18.10.2006, 20:55. **Показов** 2052. **Ответов** 3

Студворк — интернет-сервис помощи студентам

Подскажите, пожалуйста, есть ли возможность для Shape в свойстве BackStyle сделать градиентную заливку?

19.10.2006, 13:00

Есть у меня переменная типа OLE_COLOR. Мне нужно получить три составляющие этого цвета - R, G, B.
Подскажите, пожалуйста, существует ли такая функция в VB

19.10.2006, 17:01

<FONT face="Courier New http://www.xtremevbtalk.com/showthread.php?t=249793 http://www.xtremevbtalk.com/showthread.php?t=249793
Sub UnRGB(ByVal Color As Long, ByRef r As Byte, ByRef g As Byte, ByRef b As Byte)
r = Color And (Not &HFFFFFF00)
g = (Color And (Not &HFFFF00FF)) &H100&
b = (Color And (Not &HFF00FFFF)) &HFFFF&
End Sub

19.10.2006, 17:45

Большое спасибо!

nnn
	19.10.2006, 13:00	2
	Есть у меня переменная типа OLE_COLOR. Мне нужно получить три составляющие этого цвета - R, G, B. Подскажите, пожалуйста, существует ли такая функция в VB<FONT color=#ff0080 size=1></P>

rank1
	19.10.2006, 17:01	3
	<FONT face="Courier New http://www.xtremevbtalk.com/showthread.php?t=249793 http://www.xtremevbtalk.com/showthread.php?t=249793 <FONT face="Courier New Если она 32 битная то можно <FONT face="Courier New Private <FONT color=blue>Sub UnRGB(<FONT color=blue>ByVal Color <FONT color=blue>As Long, <FONT color=blue>ByRef r <FONT color=blue>As Byte, <FONT color=blue>ByRef g <FONT color=blue>As Byte, <FONT color=blue>ByRef b <FONT color=blue>As Byte) r = Color <FONT color=blue>And (<FONT color=blue>Not &HFFFFFF00) g = (Color <FONT color=blue>And (<FONT color=blue>Not &HFFFF00FF)) &H100& b = (Color <FONT color=blue>And (<FONT color=blue>Not &HFF00FFFF)) &HFFFF& <FONT color=blue>End <FONT color=blue>Sub <FONT face="Courier New" color=#0000ff> <FONT face="Courier New" color=#0000ff>

Опции темы