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

VB技巧问答10000例 VB技巧问答10000例

你 可 以 使 用 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>