Vamos criar um descanso de tela em Vb.NEt com somente um formulário!1. Inicie um novo projeto no VB.NET e dê o nome a ele de
Descanso2. No Form1 (se não houver um, insira um Add New Form ao projeto), abra o Solution Explorer clique no View Designer.
3. Defina as seguintes propriedades no Form1:
StartPosition: Center
Size - Width: 1230; Height : 647
WindowState: Maximized
FormBorderStyle: None
KeyPreview: True
4. Acrescente ao formulário um componente Label e um componente Timer, e defina as propriedades do mesmo
como segue:
Componente LabelTextAlign : MiddleCenter
Size - Width: 898 ; Height: 578
Font: Tahoma; Size: 45; Bold: True; Italic: True
Componente TimerInterval: 1500
Enabled: True
5. Agora, vamos definir as propriedades de execução de nosso descanso de tela. No Solution Explorer, clique no botão View Code.
No início do Formulário, declare os seguintes imports:
Imports System.Random
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Drawing.Text
A seguir, declare estas variáveis dentro da classe Form1:
Public Class Form1
Public Numero As Integer
Public Valor As Random = New Random
Public ultimaPosicaoDoMouse As New Point(-1, -1)
6. Defina as propriedades abaixo, como seguem:
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
'Qualquer tecla pressionada encerra o aplicativo
If Asc(e.KeyChar) Then
Windows.Forms.Cursor.Show()
End
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Windows.Forms.Cursor.Hide()
''LbTexto2.Font = New Font("Tahoma", 50, FontStyle.Bold)
'LbTexto2.Text = "Esperei com paciência no SENHOR. Salmo 40:1"
'LbTexto2.ForeColor = Color.Black
EscolheVersiculo()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
EscolheVersiculo()
End Sub
7. A função EscolheVersiculo é dada abaixo. A mesma define um número entre 0 e 7 e adiciona o texto a tela. A função escolheCor define uma cor de fundo e do texto de modo aleatório.
Private Sub EscolheVersiculo()
Dim Stexto As String = ""
'Pegar próximo número aleatório sendo gerado entre 0 e 21
Numero = Valor.Next(7)
EscolherCor()
'Numero = 10
If Numero = 0 Then
LbTexto2.Text = ""
LbTexto2.Text = " Bem-aventurados os que têm fome e sede de justiça, porque eles serão fartos" + vbCrLf + vbCrLf + " Mateus 5:6"
End If
If Numero = 1 Then
LbTexto2.Text = ""
LbTexto2.Text = "Alegrei-em quando me disseram: Vamos à casa do SENHOR" + vbCrLf + vbCrLf + " Salmo 122:1"
End If
If Numero = 3 Then
LbTexto2.Text = ""
LbTexto2.Text = "Ponha sua esperança no SENHOR, ó Israel, desde agora e para sempre " + vbCrLf + vbCrLf + "Salmo 131:3"
End If
If Numero = 4 Then
LbTexto2.Text = ""
LbTexto2.Text = "A tua palavra é lâmpada que ilumina meus passos e luz que clareia o meu caminho " + vbCrLf + vbCrLf + " Salmo 119:105"
End If
If Numero = 5 Then
LbTexto2.Text = ""
LbTexto2.Text = "Chega até os céus, até as nuvens, a Tua fidelidade " + vbCrLf + vbCrLf + " Salmo 36:5"
End If
If Numero = 6 Then
LbTexto2.Text = ""
LbTexto2.Text = "Jamais retirarei dele a Minha bondade, nem desmentirei a Minha fidelidade " + vbCrLf + vbCrLf + "Salmo 89:33"
End If
If Numero = 7 Then
LbTexto2.Text = ""
LbTexto2.Text = "Grande é a Tua fidelidade " + vbCrLf + vbCrLf + "Lamentações 2:23"
End If
End Sub
8. A função EscolheCor também trabalha de modo aleatório. Abaixo, inclui três opções de cores possíveis, mas você pode aumentar o número de cores e incrementar esta função
Private Sub EscolherCor()
'Pegar próximo número aleatório sendo gerado entre 0 e 21
Numero = Valor.Next(3)
If Numero = 0 Then
Me.BackColor = Color.Black
LbTexto2.ForeColor = Color.White
End If
If Numero = 1 Then
Me.BackColor = Color.Black
LbTexto2.ForeColor = Color.White
End If
If Numero = 2 Then
Me.BackColor = Color.White
LbTexto2.ForeColor = Color.Black
End If
If Numero = 3 Then
Me.BackColor = Color.Blue
LbTexto2.ForeColor = Color.White
End If
End Sub
9. Finalmente, as funções abaixo realizam o controle do teclado, em conjunto com a função KeyPreview. Se uma tecla for pressionada, o mouse movido em qualquer sentido, o descanso de tela é encerrado automaticamente, retornando para a tela anterior.
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
Windows.Forms.Cursor.Show()
End
End Sub
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
' ----- ao clicar pára o programa.
Windows.Forms.Cursor.Show()
End
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
' ----- Ao mover o mouse -> para o programa
If (ultimaPosicaoDoMouse <> New Point(-1, -1)) Then
' ----- Verifica se o mouse moveu-se
If (ultimaPosicaoDoMouse <> New Point(e.X, e.Y)) Then
Windows.Forms.Cursor.Show()
End
End If
End If
'----- Grava a posicao atual
ultimaPosicaoDoMouse = New Point(e.X, e.Y)
End Sub
Finalmente, Você pode compilar este pequeno projeto e gerar o executável do mesmo. Basta clicar na opção Build no menu do Visual Studio 2008 e em seguida em Build Descanso. Após a compilação, vá até a pasta do projeto. Dentro da pasta Bin haverá a pasta Release e o executável da aplicação estará dentro desta última pasta.
Se você Renomear este executável gerado para Descanso.scr poderá usar o mesmo como um descanso de tela do Windows!
Basta copiar o arquivo renomeado para a pasta C:\Windows\System32. Em seguida volte para a área do Desktop, clique no botão direito do mouse e Selecione Propriedades no menu que Surge. A tela de Propriedades do Desktop será aberta. Vá até a aba ScreenSaver.
O descanso.scr estará na lista de screensavers válidos do sistema operacional.
Bom divertimento a todos e até a próxima!!
Nesse meu pequeno exemplo - que está funcional, acreditem! - simplesmente criei o DACTE em Crystal Reports e um table Adapter para associar ao mesmo.
