PostMessage 问题

[ExeMan]

Private Sub PostKey(HWnd As Long, KeyCode As KeyCodeConstants)
PostMessage HWnd, WM_KEYDOWN, KeyCode, 0&
PostMessage HWnd, WM_KEYUP, KeyCode, 0&
End Sub


Call PostKey(Wnd, Asc("A")) '没反应
Call PostKey(Wnd, vbKeyA) '正常

通过Debug.Print发现，Asc("A")与vbKeyA是一样的。
想不明白，Asc("A")与vbKeyA有什么本质的区别。vbKeyA就通过，Asc("A")就失败

[ExeMan]

补充说明：
Private Sub PostKey(HWnd As Long, KeyCode As KeyCodeConstants)
PostMessage HWnd, WM_KEYDOWN, KeyCode, 0&
PostMessage HWnd, WM_KEYUP, KeyCode, 0&
End Sub



Call PostKey(Wnd, vbKeyA) '正常


目的就是想实现：Call PostKey(Wnd, 变量)
但无法使用变量代替常数，使用变量就没反应。。。

[贝隆]

http://download.csdn.net/detail/veron_04/2813308

[ExeMan]

已经试验很久了，但还是没找到解决的方法。来人啊。。。

[wcymiss]

Private Sub PostKey(HWnd As Long, KeyCode As Long)

[嗷嗷叫的老马]

Private Sub PostKey(HWnd As Long, KeyCode As KeyCodeConstants)
PostMessage HWnd, WM_KEYDOWN,byval KeyCode, 0&
PostMessage HWnd, WM_KEYUP,byval KeyCode, 0&
End Sub

[思考]

想实现什么