？虚拟键盘的问题？急死我了！！！！

[zsjtop]

各位大虾：
我做了个虚拟键盘，但是只可以得到键盘本身的句柄，请问各位，在哪个消息里面加GetFocus函数可得到其他程序的句柄？？

[coolstar]

Option Explicit

Declare Function GetFocus Lib "coredll" () As Long
Declare Function SendMessage Lib "coredll" Alias "SendMessageW" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Const LVS_EX_FULLROWSELECT = &H20
Const LVM_FIRST = &H1000
Const LVM_GETEXTENDEDLISTVIEWSTYLE = &H1037
Const LVM_SETEXTENDEDLISTVIEWSTYLE = &H1036

Private Sub Form_Load()
Dim lStyle As Long

ListViewCtrl1.View = lvwReport
ListViewCtrl1.LabelEdit = lvwManual

'Add Column headers
ListViewCtrl1.ColumnHeaders.Add 1, "First", "First"
ListViewCtrl1.ColumnHeaders.Add 2, "Second", "SECOND"
ListViewCtrl1.ColumnHeaders.Add 3, "Third", "THIRD"

'Add first ListItem
ListViewCtrl1.ListItems.Add 1, "Item1", "First Item"
ListViewCtrl1.ListItems(1).SubItems(1) = "TEST"
ListViewCtrl1.ListItems(1).SubItems(2) = "TEST"

'Add second ListItem
ListViewCtrl1.ListItems.Add 2, "Item2", "Second Item"
ListViewCtrl1.ListItems(2).SubItems(1) = "TEST"
ListViewCtrl1.ListItems(2).SubItems(2) = "TEST"

ListViewCtrl1.SetFocus

lStyle = SendMessage(GetFocus(), LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0)
lStyle = lStyle Or LVS_EX_FULLROWSELECT
Call SendMessage(GetFocus(), LVM_SETEXTENDEDLISTVIEWSTYLE, 0, lStyle)
End Sub