Fandom

Visual Basic Wiki

CGA Dither/FullScreen.frm

< CGA Dither

66pages on
this wiki
Add New Page
Talk0 Share
Download
Edit
Compatibility:
VB4Yes
VB5untested
VB6untested
VB.NETuntested
The form that displays the fullscreen image.B9A171

LicenseEdit

Version 3 of the GNU General Public LicenseB9A171

CodeEdit

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

B9A171

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.