?? mainfrm.vb
字號:
Imports System.Text
Public Class MainFrm
Declare Function RegisterHotKey Lib "user32.dll" Alias _
"RegisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean
Declare Function UnRegisterHotKey Lib "user32.dll" Alias _
"UnregisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer) As Boolean
Declare Function WindowFromPoint Lib "user32" Alias _
"WindowFromPoint" (ByVal xPoint As Integer, ByVal yPoint As Integer) As Integer
Declare Function SendMessageA Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As StringBuilder) As Integer
Const WM_HOTKEY = &H312
Const Key_ALT = &H1
Const Key_CONTROL = &H2
Const Key_SHIFT = &H4
Const GWL_WNDPROC = (-4)
Const WM_GETTEXT = &HD
Const WM_GETTEXTLENGTH = &HE
Dim lngPosX, lngPosY As Integer
Dim intHwnd As Integer
Const intLengthA = 1500
Dim Str As New StringBuilder(intLengthA)
Private Sub TimerGetTxt_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerGetTxt.Tick
lngPosX = Windows.Forms.Cursor.Position.X
lngPosY = Windows.Forms.Cursor.Position.Y
LBMousXY.Text = lngPosX & "," & lngPosY
intHwnd = WindowFromPoint(lngPosX, lngPosY)
SendMessageA(intHwnd, WM_GETTEXT, intLengthA, Str)
Me.TxtBoxStr.Text = Str.ToString.Trim
End Sub
Private Sub BtExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtExit.Click
UnRegisterHotKey(Handle, 0)
Application.Exit()
End Sub
Private Sub MainFrm_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
UnRegisterHotKey(Handle, 0)
Application.Exit()
End Sub
Private Sub MainFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'注冊Ctrl+T的組合鍵
RegisterHotKey(Handle, 0, Key_CONTROL, Asc("T"))
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
If m.Msg = WM_HOTKEY Then
Me.TimerGetTxt.Enabled = Not Me.TimerGetTxt.Enabled
If Me.TimerGetTxt.Enabled Then
Me.LBColorShow.BackColor = Color.Lime
Else
Me.LBColorShow.BackColor = Color.Tomato
End If
End If
MyBase.WndProc(m)
End Sub
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -