Faça o seu
ScreenSaver com o VB6
Vamos criar um programa no Visual Basic e transformá-lo em um Screen Saver. Pode parecer
complexo, mas não é.
Primeiro vamos criar um programa que vá enchendo a tela de pontos (o código foi tirado de
um exemplo do próprio Visual Basic), e , a seguir fazê-lo funcionar como um Screen Saver.
Para isto basta atentarmos para os seguintes detalhes:
1-Ao criar o programa o form dever ocupar toda a janela e não ter título, nem os botões
para maximizar ou minimizar devem estar habilitados.
Valores das propriedades do Form1
------------------------------------------
Propriedade Valor
------------------------------------------
Caption ""
ControlBox False
BackColor &H00000000& (preto)
MaxButton False
MinButton False
WindowState 2
--------------------------------------------
2-Insira o controle Timer no formulário (fig 1.0) e defina as propriedades
fig 1.0
|
Valores das prop. de Timer1
-------------------------------
Propriedade Valor
-------------------------------
Name Timer1
Enabled True
Interval 60
--------------------------------
|
3-A seguir insira o código abaixo no evento timer do temporizador:
(Aqui fica a seu critério , use a sua imaginação...)
Private Sub Timer1_Timer()
Dim CX, CY, Msg, XPos, YPos
' Declara as variaveis
ScaleMode = 3
' Define ScaleMode como
' pixels.
DrawWidth = 5
' Define DrawWidth.
ForeColor = QBColor(4)
' Define o background para
vermelho
FontSize = 24
' define o tamanho do ponto
CX = ScaleWidth / 2 '
Obtem o centro horizontal
CY = ScaleHeight / 2
' Obtem o centro vertical.
Cls ' Limpa o formulario
Msg = "Bom Dia!"
CurrentX = CX - TextWidth(Msg) / 2
' posicao Horizontal
CurrentY = CY - TextHeight(Msg)
' posicao Vertical
Print Msg
' imprime mensagem.
Do
Counter = Counter + 1
XPos = Rnd * ScaleWidth
YPos = Rnd * ScaleHeight
PSet (XPos, YPos), QBColor(Rnd * 15)
' desenha o efeito.
DoEvents
If Counter > 2000 Then
'contador para limpar a tela
Counter = 0
Form1.Cls
End If
Loop
' processando
End Sub
4-Como o Screen Saver pode ser ativado mais de uma vez , insira o código
a seguir no evento Load do formulário para evitar mais de uma instância
de seu aplicativo na memória.
Private Sub Form_Load()
If App.PrevInstance Then
End
End If
End Sub
5-Para encerrar o programa utilize os eventos MouseMove , MouseDown
e KeyDown, pois quando o usuário pressionar algo ou movimentar o mouse o
Screen Saver deve ser encerrado. Insira os códigos como descrito abaixo :
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
End
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
End
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
End
End Sub
6-Como o evento MouseMove é ativado quando o form for lido pela primeira
vez, insira o código abaixo no evento MouseMouse para não fechar o programa na
sua ativação.
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static conta As Integer
If conta > 3 Then
End
Else
conta = conta + 1
End If
End Sub
7-Agora ative a opção File->Make EXE File... e informe o nome do seu Screen Saver.
8-Troque a extensão EXE do arquivo gerado para SCR, e copie o arquivo
para o diretório \WINDOWS\SYSTEM
9-Agora configure a proteção de tela no seu Windows 95 selecionando o nome do seu
programa como o protetor de tela.
10-Se quiser pode incrementar ainda mais este exemplo, mas atenção , eu não testei
este exemplo no Windows 3.X, só no Windows 95.
Tchau!
Retorna