Ativando o protetor de Tela com OLE.

Sempre vai existir mais de uma maneira de de se realizar uma tarefa. Em se tratando de programação esta verdade é quase uma norma. Voce lembra da tecnologia OLE. Pois é aqui nos vamos mostrar como ativar o seu protetor de tela usando apenas uma linha de código e alguns cliques de mouse. Vamos lá...

A primeira coisa que você tem que ter é o protetor de tela. Geralmente é um arquivo com a extensão .SCR que na verdade funciona como um arquivo executável. Eu vou usar um protetor pronto que achei na web . Ele simula uma peixe em um aquário.

Por questão de simplicidade vou usar apenas um formulário com um botão de comando para ativar o protetor , mas você vai achar formas mais criativas de fazer isto. Ao trabalho...

1- Inicie um novo projeto no VB e no formulário padrão insira um botão de comando - command1.

2- Agora insira um controle OLE no seu formulário. A janela Inserir Objeto irá surgir na tela. Nela selecione a opção - Criar do Arquivo , e a seguir clique no botão Procurar selecionando agora o seu protetor de tela. No meu caso o arquivo fish.scr.

3- O formulário em tempo de desenho deverá ter a seguinte aparência:

4- Agora no seu botão de comando , no evento Click , insira o seguinte código:

Private Sub Command1_Click()
   OLE1.DoVerb 1
End Sub

O método DoVerb abre um objeto realizando uma operação , no caso exibe o protetor de tela. A sintaxe é:

object.DoVerb (verb)

Onde:

5- Abaixo uma amostra , um pedaço da tela do protetor após clicarmos no botão - Ativar Protetor de Tela.:

O peixe não aparece pois é o cursor do mouse. Para encerrar basta mover o mouse. Gostou...

Obs: É obvio que você vai esconder o controle OLE.

Pegue o protetor clicando aqui : Protetor de tela - fisch.zip ( 23 KB )