Programación General > Visual Basic 6.0 e inferiores

 Screen Saver

(1/1)

Cyclop:
Como se crea un screen saver en VB

Gracias

Cyclop

Blag:
Es bastante sencillo  :lol:

Primero...Puedes crear una matriz de controles de imagenes...Y luego con un timer....mostrar cada imagen en secuencia.

En la seccion de propiedades del proyecto, tienes que grabarlo como SCRSAVER, si no me equivoco......Ahora estoy en el trabajo, pero en la noche te escribo con mas detalle.  :hola:

Saludos,

Blag  :devil:

Cyclop:
Pero me aparecera en la ventana donde se testea el SCRSAVER en la ventana propiedades de pantalla.


Y como se hacer para bloquear todas las teclas


Gracias ... por la ayuda Blag


Cyclop

Blag:
Disculpa por la demora Cyclop.....Aquí está módulo .BAS que utilizo....Lo conseguí en un tutorial hace tiempo  B)


--- Código: Text --- Option Explicit 'All variables must be declared 'Function ShowCursor used to hide the cursor during the'screen saver's runtime, and then enable it upon endingDeclare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long 'Function FindWindow used in determining whether or not'another instance of the screen saver is runningDeclare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'ConstantsPublic Const SW_SHOWNORMAL = 1Private Const APP_NAME = "Lara Images" Sub Main()'-----------------------------------------------------'--- The screen saver is called one way or another ---'--- and this Sub is called first. Must determine  ---'--- what mode screen saver is intended to me run  ---'--- and re-direct accordingly.                    ---'-----------------------------------------------------   Select Case Mid(UCase$(Trim$(Command$)), 1, 2)      Case "", "/S" 'Screensaver mode      runScreensaver          Case "/P" 'Preview mode      End          Case "/A" 'Password protect dialog      MsgBox "Password Protection not available with this" _      & " screen saver", vbInformation, "Error"        End SelectEnd Sub Private Sub runScreensaver() 'Run the screen saver  checkInstance 'Make sure no other instances are running  ShowCursor False 'Disable cursor  'load Screen Saver's main form  Load frm1  frm1.ShowEnd Sub Private Sub checkInstance()    'If no previous instance is running, exit sub    If Not App.PrevInstance Then Exit Sub     'check for another instance of screen saver    If FindWindow(vbNullString, APP_NAME) Then End     'Set our caption so other instances can find    'us in the previous line.    frm1.Caption = APP_NAMEEnd Sub  
Y por lo de bloquear los botones....Ni te preocupes.....Porque el Screen Saver es un programa, por lo tanto, si no lo cierras....no se cierra.


--- Código: Text --- Private Sub Form_KeyPress(KeyAscii As Integer)    If KeyAscii = 27 Then Unload Me    Set frm1 = Nothing    ShowCursor TrueEnd Sub  
Para poder generarlo, no es necesario lo de SCRSAVER  :lol: .....Es que eso lo leí en un tutorial....Pero no es necesario  :hola:  Solo tienes que generar el archivo con extensión .scr

Puedes hacer que se muestre el la ventana de propiedades de la pantalla.......Pero es un poco complicado.....Por eso, te estoy adjuntando un screen saver en VB con Flash.....Lo mejor que he visto  :lightsabre:

Saludos,

Blag  :devil:

Cyclop:
Gracias Blag por la ayuda, esto me a dado muchas ideas.


Salu2

Cyclop


 :D

Navegación

[0] Índice de Mensajes