你能否提供VB或C的具体应用场景?

2026-05-06 12:161阅读0评论SEO资源
  • 内容介绍
  • 文章标签
  • 相关推荐

本文共计423个文字,预计阅读时间需要2分钟。

你能否提供VB或C的具体应用场景?

我想开发一个应用程序,它在加载时位于系统托盘,直到我打开另一个程序(如记事本或VLC等)后,应用程序才不会干扰。如果我在键盘上按G,托盘图标会显示工具提示+。

我想制作一个应用程序,它在加载时位于系统托盘中,甚至在我打开另一个程序(比如记事本或vlc或其他任何程序)后,即使应用程序没有对焦,如果我在键盘上按G,托盘图标应显示工具提示 – “按下G键”.
我已经尝试了几个代码但是当应用程序失焦时没有任何效果.我可以使用 Register Hot Key,但它也需要一个修饰符(比如Ctrl或Alt等以及我的键G).那么,有什么办法可以实现这个目标吗?
许多托盘图标像防病毒应用程序等的东西.
我不想使用AutoHotkey应用程序.我想建立一个但需要一些帮助. WindowsHookLib.dll已经多次保存了我.它可以让您轻松地连接鼠标和键盘系统.

www.vbforums.com/showthread.php?t=436321

挂钩键盘并在按下’G’时动作:

你能否提供VB或C的具体应用场景?

Imports WindowsHookLib Public Class frmMain Dim WithEvents gkh As New LLKeyboardHook Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing gkh.RemoveHook() ghk.Dispose() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load gkh.InstallHook() End Sub Private Sub gkh_KeyDown(ByVal sender As Object, ByVal e As WindowsHookLib.KeyEventArgs) Handles gkh.KeyDown If e.KeyCode = Keys.G Then REM G is pressed! End If End Sub Private Sub gkh_KeyUp(ByVal sender As Object, ByVal e As WindowsHookLib.KeyEventArgs) Handles gkh.KeyUp If e.KeyCode = Keys.G Then REM G was pressed and now released End If End Sub End Class

本文共计423个文字,预计阅读时间需要2分钟。

你能否提供VB或C的具体应用场景?

我想开发一个应用程序,它在加载时位于系统托盘,直到我打开另一个程序(如记事本或VLC等)后,应用程序才不会干扰。如果我在键盘上按G,托盘图标会显示工具提示+。

我想制作一个应用程序,它在加载时位于系统托盘中,甚至在我打开另一个程序(比如记事本或vlc或其他任何程序)后,即使应用程序没有对焦,如果我在键盘上按G,托盘图标应显示工具提示 – “按下G键”.
我已经尝试了几个代码但是当应用程序失焦时没有任何效果.我可以使用 Register Hot Key,但它也需要一个修饰符(比如Ctrl或Alt等以及我的键G).那么,有什么办法可以实现这个目标吗?
许多托盘图标像防病毒应用程序等的东西.
我不想使用AutoHotkey应用程序.我想建立一个但需要一些帮助. WindowsHookLib.dll已经多次保存了我.它可以让您轻松地连接鼠标和键盘系统.

www.vbforums.com/showthread.php?t=436321

挂钩键盘并在按下’G’时动作:

你能否提供VB或C的具体应用场景?

Imports WindowsHookLib Public Class frmMain Dim WithEvents gkh As New LLKeyboardHook Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing gkh.RemoveHook() ghk.Dispose() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load gkh.InstallHook() End Sub Private Sub gkh_KeyDown(ByVal sender As Object, ByVal e As WindowsHookLib.KeyEventArgs) Handles gkh.KeyDown If e.KeyCode = Keys.G Then REM G is pressed! End If End Sub Private Sub gkh_KeyUp(ByVal sender As Object, ByVal e As WindowsHookLib.KeyEventArgs) Handles gkh.KeyUp If e.KeyCode = Keys.G Then REM G was pressed and now released End If End Sub End Class