La programación de pantalla animados en VB6

Microsoft Visual Basic 6.0 es un lenguaje de programación informática que proporciona las herramientas para desarrollar aplicaciones de Windows. Puede utilizar Visual Basic para desarrollar sencillas utilidades, así como aplicaciones de escritorio y de Internet avanzada. Salvapantallas están moviendo imágenes o diseños que aparecen en la pantalla del ordenador cuando el teclado o el ratón no se han utilizado durante un período de tiempo especificado. En unos pocos pasos usted será capaz de crear un programa de protector de pantalla utilizando Visual Basic.

Instrucciones

1 Inicie Microsoft Visual Basic 6.0, haga clic en "EXE estándar" en el "Nuevo proyecto" ventana de diálogo. Haga clic en el formulario y seleccione "Propiedades". Tipo "" al lado de "Leyenda." Set "CuadroDeControl", "MinButton" y "MaxButton" a "falso".

2 Seleccione "0-Ninguno" para "BorderStyle" y "2 - maximizado" ". WindowState" para Establecer el "BackColor" a "y H0."

3 Haga clic en el icono "Ver código" sobre el nombre del proyecto en el panel "Explorador de proyectos" para abrir la ventana de código. Copiar y pegar las dos funciones siguientes en la parte superior de la ventana de código:

Private Declare Function SetWindowPos Lib "user32" _

(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal Y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function ShowCursor Lib "user32" _

(ByVal bShow As Long) As Long

4 Copia y pega el código siguiente para crear un nuevo procedimiento que mantendrá la forma en la parte superior:

Sub AlwaysOnTop (FrmID como forma, ONTOP As Boolean)
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
BANDERAS const = O SWP_NOMOVE SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Si OnTop Entonces

OnTop = SetWindowPos(FrmID.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

Más

OnTop = SetWindowPos(FrmID.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)

Terminara si
End Sub

5 Haga clic en "Vista Diseño" en el "Explorador de proyectos" para ver el formulario. Haga doble clic en el formulario para crear el evento "Load". Copiar y pegar el siguiente código dentro del evento Form "carga" para manejar el protector de pantalla:

Seleccione la caja LCase (Izquierda (Comando, 2))

Case "/p": End
Case "/s"
Case Else: Me.Hide: frmSettings.Show: Exit Sub

End Select

Dim x As Integer
Llame AlwaysOnTop (Me, True)
x = ShowCursor (Falso)

6 Copia y pega el código siguiente en el evento "Descargar" del formulario para mostrar el cursor cuando termina el programa:

Dim x As Integer
x = ShowCursor (True)

7 Copia y pega el código siguiente en el evento "KeyPress" del formulario para descargar el protector de pantalla si el usuario pulsa una tecla en el teclado:

Conde estática como número entero
Count = count + 1
Si conde> 5 A continuación,
Unload Me
Terminara si

8 Haga clic en el menú "Archivo", luego haga clic en "Hacer <proyecto> .exe" para crear un archivo ejecutable. Vaya a su directorio de proyecto y cambie la extensión "EXE" para "SCR." Copiar el archivo en la carpeta "C: \ Windows \ System \" carpeta.