查看vbkeycode PrivateSubForm_Load() Check1.Value=1 EndSub PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger) IfCheck1.Value=1Then MsgBoxKeyCode ElseIfCheck2.Value=1Then MsgBoxShift EndIf DimShiftDown,AltDown,CtrlDown,Txt ShiftDown=(ShiftAndvbShiftMask)>