Fandom

Visual Basic Wiki

CGA Dither/FullScreen.frm/code

< CGA Dither | FullScreen.frm

66pages on
this wiki
Add New Page
Talk0 Share

VERSION 4.00 Begin VB.Form Form2

  BackColor       =   &H00000000&
  BorderStyle     =   0  'None
  ClientHeight    =   1200
  ClientLeft      =   9255
  ClientTop       =   5130
  ClientWidth     =   1545
  Height          =   1650
  Icon            =   "FullScreen.frx":0000
  KeyPreview      =   -1  'True
  Left            =   9195
  LinkTopic       =   "Form2"
  MouseIcon       =   "FullScreen.frx":000C
  MousePointer    =   99  'Custom
  ScaleHeight     =   80
  ScaleMode       =   3  'Pixel
  ScaleWidth      =   103
  ShowInTaskbar   =   0   'False
  Top             =   4740
  Width           =   1665
  WindowState     =   2  'Maximized
  Begin VB.Image Image1 
     Height          =   135
     Left            =   0
     Stretch         =   -1  'True
     Top             =   0
     Width           =   135
  End

End Attribute VB_Name = "Form2" Attribute VB_Creatable = False Attribute VB_Exposed = False Option Explicit

Public ScreenSaverMode As Boolean

Dim OX As Long, OY As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyEscape: Unload Me Case vbKeyUp, vbKeyDown, vbKeyLeft, vbKeyRight: Form1.Form_KeyDown KeyCode, Shift Case Else: ExitScreenSaverMode End Select End Sub

Private Sub Form_Load() OX = True End Sub

Private Sub Form_Resize() Image1.Move 0, 0, ScaleWidth, ScaleHeight End Sub

Private Sub Image1_Click() Unload Me End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim NX As Long, NY As Long NX = X: NY = Y If OX < 0 Then OX = NX: OY = NY: Exit Sub Select Case True Case Abs(NX - OX) > 120, Abs(NY - OY) > 120: ExitScreenSaverMode End Select End Sub

'Sluit het programma af, maar enkel wanneer ScreenSaverMode waar is. Private Sub ExitScreenSaverMode() Dim F As Form If ScreenSaverMode Then

   For Each F In Forms
       Unload F
   Next

End If End Sub

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.