[VB6] screen saver

Neste tutorial vou apresentar como criar uma protecção de ecrã simples, a aparecer um texto em locais aleatórios, em apenas 10 passos.

1º passo:

Criar uma Form (Standard EXE)



2º passo:

Para que a Form não apareça qualquer tipo de borda, na propriedade "BorderStyle" da Form com o valor "0 - None". Assim a Form ficará sem qualquer borda.



3º passo:

Agora para que a Form fique com um aspecto de uma protecção de ecrã, temos de coloca-la com o fundo preto. Para isso na propriedade "BackColor" da Form com o valor "&H00000000&".




4º passo:

Para que ao clicar a Form desapareça, temos que desenhar uma PictureBox (com um tamanho qualquer).



E para que fique tudo igual teremos que alterar a propriedade "BorderStyle" na PictureBox com o valor "0 - None"



E também mudar a propriedade "BackColor" da PictureBox com o valor "&H00000000&"



5º passo:

Como iremos criar uma protecção de ecrã com texto, teremos de adicionar uma Label.



Para que o fundo a volta da Label não apareça, iremos à propriedade "BackStyle" e colocamos o valor "0 - Transparent"



E para que se possa ver o texto vamos alterar a propriedade "ForeColor" com o valor "&H00FFFFFF&" (por exemplo)




Agora vamos colocar o tamanho do texto maior, alterando a propriedade "Font" e clicamos em "...". Aparece uma janela com uma lista de vários tipos de letra a escolher, e colocamos o "Tamanho" para 18 (por exemplo).




6º passo:

Como o objectivo desta protecção de ecrã é mostrar um texto pretendido em sítios aleatórios teremos de colocar um Timer. Para isso basta criar um Timer com este símbolo . Ele pode ser desenhado em qualquer lugar dentro da Form pois, ao executar o programa ele não aparece.





Vamos agora definir o tempo de intervalo em que o texto muda sitio (2 segundos por exemplo). Para isso temos que alterar a propriedade "Interval" do Timer com o valor "2000" (no caso de 4 segundos "4000", 10 segundos "10000" e por ai a diante).




7º passo:

Agora iremos à parte da programação. Para que a Form ocupe o ecrã inteiro teremos de saber qual a resolução do ecrã. Para isso colocaremos no evento "Form_Load" o seguinte código:

Code

Private Sub Form_Load()
main.Height = Screen.Height
main.Width = Screen.Width
Picture1.Height = Screen.Height
Picture1.Width = Screen.Width
End Sub


Para que também a PictureBox fique do mesmo tamanho da Form, também redimensionamos para a resolução do ecrã.


7º passo:

Para que o texto fique a aparecer em locais aleatórios temos que adicionar este código no evento "Timer1_Timer":

Code

Private Sub Timer1_Timer()
Label1.Top = Rnd * 10001
Label1.Left = Rnd * 10001
End Sub



8º passo:

Agora para que sempre que clicamos na PictureBox o programa se feche automaticamente adicionamos este código no evento "Picture1_MouseDown":

Code

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End
End Sub



9º passo:

A nível de programação está concluida. Agora teremos que guardar o nosso projecto, compilar e alterar a extensão do ficheiro para .scr. Para isso so teremos de ir as "Opções de pastas" do explorador do Windows e tirar um "V" na tabulação "Ver" onde diz "Ocultar extensões para tipos de ficheiro conhecidos".




Alterar a extensão do ficheiro compilado para .scr





E instalar e colocar a protecção de ecrã que acabamos de criar.







10º passo:

E já está! Acabou de criar uma protecção de ecrã em Visual Basic 6.0!

O resultado é este: