KeyzPal/FrmDisplayFocusedWindow.vb at master · limbo666/KeyzPal · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Imports System.ComponentModel


Public Class FrmDisplayFormostWindow

    Dim hideLabelcounter As Integer = 0

    Private Sub FrmDisplayFormostWindow_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Me.Top = 0
        Me.Left = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim CapTxt As String = GetCaption()
        Label1.Text = CapTxt

        If hideLabelcounter < 30 Then
            hideLabelcounter += 1
        Else
            Label3.Visible = False
            hideLabelcounter = 0

        End If

    End Sub

    Private Sub FrmDisplayFormostWindow_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Timer1.Enabled = True
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label1_MouseHover(sender As Object, e As EventArgs) Handles Label1.MouseHover
        Try
            Clipboard.SetText(Label1.Text)
            Label3.Visible = True
        Catch ex As Exception

        End Try
    End Sub
End Class