Um efeito muito legal do Visual Basic é este de derreter tela, e é muito simples.
Primeiro insira um botão(command1) agora basta inserir o código abaixo no seu projeto:
ByVal dwRop As Long) As Long
Private
Sub Command1_Click()
Dim lngDC As Long
Dim intWidth As Integer, intHeight As Integer
Dim intX As Integer, intY As Integer
lngDC = GetDC(0)
intWidth
= Screen.Width / Screen.TwipsPerPixelX
intHeight = Screen.Height / Screen.TwipsPerPixelY
frmMain.Width
= intWidth * 15
frmMain.Height = intHeight * 15
Call
BitBlt(hDC, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy)
frmMain.Visible = vbTrue
Do
intX = (intWidth - 128) * Rnd
intY = (intHeight - 128) * Rnd
Call BitBlt(lngDC, intX, intY + 1, 128, 128, lngDC, intX, intY, vbSrcCopy)
DoEvents
Loop
End Sub
Private
Sub Form_KeyPress(KeyAscii As Integer)
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set frmMain = Nothing
End
End Sub
Atenção!!, ao executar o programa, para parar com o derretimento da tela basta pressionar as teclas ALT+F4, assim o programa será encerrado!!
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco