Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class frmMain
- Inherits System.Windows.Forms.Form
- Public sDisplay As String()
- Dim gTolerance As Integer
- #Region " Windows Form Designer generated code "
- Public Sub New()
- MyBase.New()
- 'This call is required by the Windows Form Designer.
- InitializeComponent()
- 'Add any initialization after the InitializeComponent() call
- End Sub
- 'Form overrides dispose to clean up the component list.
- Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
- If disposing Then
- If Not (components Is Nothing) Then
- components.Dispose()
- End If
- End If
- MyBase.Dispose(disposing)
- End Sub
- 'Required by the Windows Form Designer
- Private components As System.ComponentModel.IContainer
- 'NOTE: The following procedure is required by the Windows Form Designer
- 'It can be modified using the Windows Form Designer.
- 'Do not modify it using the code editor.
- Friend WithEvents Timer1 As System.Windows.Forms.Timer
- Friend WithEvents lblDisplay As System.Windows.Forms.Label
- <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
- Me.components = New System.ComponentModel.Container()
- Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
- Me.lblDisplay = New System.Windows.Forms.Label()
- Me.SuspendLayout()
- '
- 'Timer1
- '
- Me.Timer1.Enabled = True
- Me.Timer1.Interval = 1000
- '
- 'lblDisplay
- '
- Me.lblDisplay.AutoSize = True
- Me.lblDisplay.BackColor = System.Drawing.Color.Transparent
- Me.lblDisplay.ForeColor = System.Drawing.Color.Yellow
- Me.lblDisplay.Location = New System.Drawing.Point(80, 120)
- Me.lblDisplay.Name = "lblDisplay"
- Me.lblDisplay.Size = New System.Drawing.Size(0, 13)
- Me.lblDisplay.TabIndex = 0
- '
- 'frmMain
- '
- Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
- Me.BackColor = System.Drawing.Color.White
- Me.ClientSize = New System.Drawing.Size(292, 273)
- Me.Controls.Add(Me.lblDisplay)
- Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
- Me.Name = "frmMain"
- Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
- Me.ResumeLayout(False)
- Me.PerformLayout()
- Dim ProcID As Integer
- ProcID = Shell("C:\Program Files\Infomonitor\Firefox.exe", AppWinStyle.MaximizedFocus)
- End Sub
- #End Region
- #Region " Form Events "
- Private Sub frmMain_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
- 'If the mouse moves any more then 10 points. Close the application
- gTolerance += 1
- If gTolerance > 10 Then
- Me.Close()
- End If
- End Sub
- Private Sub frmMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
- 'If any key is pressed, Close the application
- Me.Close()
- End Sub
- Private Sub frmMain_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
- If sDisplay Is Nothing Then Exit Sub
- 'Draw Command Line Args to screen. Good for Debugging
- Dim I As Int16
- Dim sText As String
- Dim F As New Font("Arial", 24, FontStyle.Bold)
- Dim B As New SolidBrush(Color.Yellow)
- For I = 0 To sDisplay.Length - 1
- sText = sDisplay(I)
- e.Graphics.DrawString(sText, F, B, I * F.Size, 50)
- Next
- End Sub
- #End Region
- #Region " Controls "
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- gTolerance = 0
- End Sub
- #End Region
- End Class
Add Comment
Please, Sign In to add comment