Visual Basic Tip: Criando efeito de "fade" entre imagens.

Aqueles que baixaram a versão alpha do programa MultiSystem que publiquei semana passada, puderam reparar que na Sidebar as imagens passam em "fade" (ou seja, se sobrepoem translucidamente). Isso eu creio que não vão encontrar em lugar nenhum na Internet, portanto, postarei aqui caso alguém quiser executar o mesmo efeito em algum programa. É de sua conta colocar ou não os créditos da minha autoria do tal "algorítimo".
Para quem não baixou, aí está um print:


Pois bem, eu não usei APIs para tal efeito, usei apenas algumas funções e procedures criadas por mim.

Criando tal efeito

Abra um novo projeto no VB do tipo Standard EXE (pode ser algum existente, desde que não haja conflitos com nomes de variáveis e de objetos) (também pode ser um activex, mas nesse tutorial usaremos apenas EXE).

Nas propriedades do form, defina ScaleMode=vbPixels.

Crie três pictureboxes, ambos com tamanho de 100x80. Nomes: "Picture1", "Picture2" e "resultado". Nas propriedades das pictureboxes, defina o ScaleMode deles para VbPixels e defina AutoRedraw para true.

Crie três images, ambas também com o tamanho de 100x80. Nomes: "Image1", "Image2" e "Image3". Nas propriedades, ative o Stretch.

Insira dois timers, "timer1" e "timer2". Timer1 com intervalo igual a 1 e timer2 com intervalo igual a 2000, este último desabilitado (em outras palavras, enabled=false).

Defina alguma imagem para Image1 e Image2. No exemplo usei duas imagens da pasta Wallpapper localizada em c:/WINDOWS/Web.

No código insira o seguinte:
Dim alpha As Integer Private Type tRGB R As Long G As Long B As Long End Type Private Function OLEtoRGB(OLEHX As Long) As tRGB kde = Hex(OLEHX) If Len(kde) = 1 Then kde = "00000" & kde If Len(kde) = 2 Then kde = "0000" & kde If Len(kde) = 3 Then kde = "000" & kde If Len(kde) = 4 Then kde = "00" & kde If Len(kde) = 5 Then kde = "0" & kde B = Mid(kde, 1, 2) G = Mid(kde, 3, 2) R = Mid(kde, 5, 2) B = CLng("&H" & B) G = CLng("&H" & G) R = CLng("&H" & R) OLEtoRGB.B = B OLEtoRGB.G = G OLEtoRGB.R = R End Function Private Function CalculateHalf(ColorA As tRGB, colorB As tRGB, AlphaA As Integer) As tRGB ialpha = AlphaA / 100 nialpha = 1 - ialpha CalculateHalf.R = ((ColorA.R * ialpha) + (colorB.R * nialpha)) CalculateHalf.G = ((ColorA.G * ialpha) + (colorB.G * nialpha)) CalculateHalf.B = ((ColorA.B * ialpha) + (colorB.B * nialpha)) End Function Private Sub Form_Load() alpha = 100 Picture1.PaintPicture Image1.Picture, 0, 0, 100, 80 Picture2.PaintPicture Image2.Picture, 0, 0, 100, 80 End Sub Private Sub Timer1_Timer() If alpha = 0 Then Timer1.Enabled = False Timer2.Enabled = True End If For y = 0 To 80 For x = 0 To 100 Step 5 Dim cora As tRGB Dim corb As tRGB Dim corr As tRGB cora = OLEtoRGB(Picture1.Point(x, y)) corb = OLEtoRGB(Picture2.Point(x, y)) corr = CalculateHalf(cora, corb, alpha) resultado.PSet (x, y), RGB(corr.R, corr.G, corr.B) cora = OLEtoRGB(Picture1.Point(x + 1, y)) corb = OLEtoRGB(Picture2.Point(x + 1, y)) corr = CalculateHalf(cora, corb, alpha) resultado.PSet (x + 1, y), RGB(corr.R, corr.G, corr.B) cora = OLEtoRGB(Picture1.Point(x + 2, y)) corb = OLEtoRGB(Picture2.Point(x + 2, y)) corr = CalculateHalf(cora, corb, alpha) resultado.PSet (x + 2, y), RGB(corr.R, corr.G, corr.B) cora = OLEtoRGB(Picture1.Point(x + 3, y)) corb = OLEtoRGB(Picture2.Point(x + 3, y)) corr = CalculateHalf(cora, corb, alpha) resultado.PSet (x + 3, y), RGB(corr.R, corr.G, corr.B) cora = OLEtoRGB(Picture1.Point(x + 4, y)) corb = OLEtoRGB(Picture2.Point(x + 4, y)) corr = CalculateHalf(cora, corb, alpha) resultado.PSet (x + 4, y), RGB(corr.R, corr.G, corr.B) Next x Next y resultado.Refresh Image3.Picture = resultado.Image alpha = alpha - 50 End Sub Private Sub Timer2_Timer() Timer2.Enabled = False Image3.Picture = Image2.Picture Image2.Picture = Image1.Picture Image1.Picture = Image3.Picture Picture1.PaintPicture Image1.Picture, 0, 0, 100, 80 Picture2.PaintPicture Image2.Picture, 0, 0, 100, 80 Image3.Picture = resultado.Image alpha = 100 Timer1.Enabled = True End Sub

Explicação:
tRGB é o tipo que irá receber valores RGB.
OLEtoRGB é a função que vai transformar cor OLE (&H00000000FF) em RGB(255,0,0).
CalculateHalf é a função que irá mesclar as cores.


Se quiser, você pode baixar o projeto pronto zipado pelo link: http://ys8hqw.bay.livefilestore.com/y1pJFGceE-n1OZLcKyEAABLEnbOdzOc0vTPhbjwRbIWTyYuGwDypb9B6Rl7KqHPIQdlRohvQejyH564qQuIZtf3MR8o3Ev7-Evi/FormFadeExample.zip?download&psid=1 ou http://cid-b278d5e7a71b5dca.office.live.com/self.aspx/.Documents/FormFadeExample.zip. Ao baixar, descompacte tudo em uma pasta antes de executar o projeto.

É isso, pessoal. Em breve postarei mais dicas e também programas que eu criar. Fiquem atentos!