如何在a窗口中向b窗口发出keydown消息.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 14 行

你 可 以 使 用 API函 数 SendMessage来 发 送 WM_KEYDOWN消 息 。 例 如 ： 
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
    Const WM_KEYDOWN = &H100 
     
    Private Sub Command1_Click() 
     SendMessage hwndFormB, WM_KEYDOWN, Asc("B"), 0& 
    End Sub 
    这 里 的 hwndFormB是 FormB的 窗 口 句 柄 。 第 三 个 参 数 是 按 键 。 详 细 内 容 参 考 Win32 API。 
    如 果 FormB和 FormA都 是 来 自 同 一 个 项 目 。 你 也 可 以 不 使 用 这 个 API， 而 是 在 FormB中 定 义 如 下 函 数 ： 
    Public Sub CallFormBKeyDown(KeyCode As Integer, Shift As Integer) 
     Form_KeyDown KeyCode, Shift 
    End Sub 
    这 样 你 直 接 调 用 CallFormBKeyDown就 可 以 了 。 
<END>