在VB中的控件的Keypress事件中怎样得到控制键的状态？

Question

根据Shift参数可得到大小写信息

Answer 1

有这个函数数吗？我怎么找不到，是不是指的KeyAscii参数吧，那个不行的，
如果真的有这个函数的话，怎么用？

Answer 2

在keypress里找到ctrl,shift,alt的ascii值，然后用keyascii判断就ok

Answer 3

应该是KeyAscii参数，得到按键的值，ASCII值。

Answer 4

在keypress里找到ctrl,shift,alt的ascii值，然后用keyascii判断就ok

Answer 5

在keypress里找到ctrl,shift,alt的ascii值，然后用keyascii判断就ok

Answer 6

Option ExplicitPrivate sShift As Integer
Private sKeyCode As IntegerPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    sShift = Shift
    sKeyCode = KeyCode
    Debug.Print "KeyDown KeyCode:" & KeyCode & " Shift:" & Shift
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
    Debug.Print "keyPress" & KeyAscii
    '在这里调用sShift和sKeyCode就可以子，
    'keypress总是在KeyDown后发生。
End Sub运行时查看立即窗口shift的值就可以知了。

Answer 7

Option ExplicitPrivate sShift As Integer
Private sKeyCode As IntegerPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    sShift = Shift
    sKeyCode = KeyCode
    Debug.Print "KeyDown KeyCode:" & KeyCode & " Shift:" & Shift
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
    Debug.Print "keyPress" & KeyAscii
    '在这里调用sShift和sKeyCode就可以子，
    'keypress总是在KeyDown后发生。
End Sub
'运行一下，查看立即窗口中shift的值，就可以知道关系了。

Answer 8

楼上说的听起来有道理，我的实践如下，但是仍然一片茫然ING
-----------------------------
小写s不加CTRL
Keycode=83  58786KeyAscii=115  58786
----------------------------
小写s加CTRL
Keycode=17  58971.79Keycode=83  58971.89KeyAscii=19  58971.89
---------------------------小写d不加CTRL
Keycode=68  59025.49KeyAscii=100  59025.49---------------------------
小写d加CTRL
Keycode=17  59029.75Keycode=68  59029.84KeyAscii=4  59029.84不知道怎么一个算法啊，请再指点一下.

Answer 9

我试过了，关系复杂，毫无头绪，
比如：
    Ctrl=17
    s=115
    Ctrl+s=19

Answer 10

KeyDown事件里如果Shift为1,则为大写呀@---------------------------------------------------------------十年生死两茫茫。不思量，自难忘。千里孤坟，无处话凄凉。纵使相逢应不识。尘满面，鬓如霜。夜来幽梦忽还乡。小轩窗，正梳妆。相顾无言，惟有泪千行。料得年年肠断处。明月夜，短松岗。