Question

[vb]在form1上同时按下ctrl+回车,然后form1的标题就变成....

在form1上同时按下ctrl+回车,然后form1的标题就变成"您已按下了ctrl+回车"源代码如何写呢?谢谢.

Answer 1

CAMERA MODE KEYS　　画面模式切换键F1 - VIRUAL COCKPIT　　后机舱视角F2 - HUD WITH OR W/O COCKPIT　机舱视角F3 - EXTERNAL CAMERA VIEW　观察本机飞行(动态视角)F4 - FLYBY VIEW　　　观察本机飞行(固定视角)F5 - PADLOCK VIEW　　观察敌方(远景/近景F6 - WINGMAN EXTERNAL　　观察僚机(远景/近景)F7 - MISSILE VIEW　　观察导弹(远景/近景)F8 - TARGET VIEW　　观察目标(远景/近景)CTRL+ARROW KEYS - PAN CAMERA　某方向的全景S,X - ZOOM IN/OUT　　雷达范围 放大/缩小 按下Ctrl+Enter键，输入以下密技再回车即可。the truth is out there 弹药无限fight the future 补充当前弹药black oil 补给燃料trust no one 上帝模式i want to believe 不死模式this isnt happening 加血ghostpit 隐身WEAPONS AND TARGETING KEY　武器和目标控制键1 - SELECT AMRAAM　　换32Km远程对空导弹2 - SELECT SIDEWINDER　　换19Km近距对空导弹(响尾蛇)3 - SELECT CANNON　　换6Km六管式加农炮4 - SELECT JDAM　　　换对地导弹W - SWITCH WEAPON SELECTION　换下一种武器SPACEBAR - FIRE CURRENT WEAPON　射击C - RELEASE COUNTERMEASURES　放干扰物 (100个/次)ENTER - CREATE SHOOTLIST　建立靶标列表[,] - NEXT/PREVIOUS TARGET　下/上一个目标 FIGHT KEYS 飞行控制键5 - 0% POWER 关闭发动机6,7,8,9,0 - 60-100% 油门大小六成至十成- - AFTERBURNER 加力飞行F - FLAPS ON/OFF 襟翼收放G - GEAR UP/DOWN 起落轮架B - AIR BRAKE 减速板DELETE - YAW LEFT 左舵PGDN - YAW RIGHT 右舵A - TOGGLE AUTO PILOT 自动导航N - NEXT AUTO PILOT 下一导航点L - TOGGLE AUTO LEVELING 自动水平调整H - FLY HOME　　　自动返航(准备降落的最佳点) 小键盘: 观察电子系统屏幕2 - STORES DISPLAY　　武器数量4 - DEFENSE DISPLAY　　方位雷达5 - NAVIGATION DISPLAY　　导航图6 - ATTACK DISPLAY　　距离雷达7 - HUD REPEATER　　通信记录本8 - 　　　　雷达表/水平仪9 - ARTIFICIAL HORIZON　　水平仪WINGMAN ORDERS 僚机命令CTRL+P - FOLLOW PATROL ROUTE　回自已机场巡逻CTRL+F - FORM ON MY WING 过来编队CTRL+E - ENGAGE NEAREST ENEMY 　自由攻击附近的敌机CTRL+M - ATTACK MY TARGET　攻击我锁定的目标CTRL+C - COVER RILE　　掩护我MISCELLANEOUSR - RADR MODE ON/OFF　　雷达开/关M - VIEW MISSION GOALS　　看任务P - PAUSE GAME　　　暂停CTRL+J - EJECT　　　跳伞 方向键控制：下键是攀升，上键是下降，左右键还是控制左右。方向键上面的六个键是雷达。小键盘的 / * - + 是看上下左右。G是放下或者是收上轮胎。退格键和大键盘的6 ，7， 8， 9， 0是油门。F1 ,F2 ,F3,F4 是查看自己的战机。F5,F6,是看F22 2号F7是看自己发射的导弹F8是看敌机或者是看敌人的飞机场。大键盘的2键是调整到导弹发射状态。大键盘的3键是调整到子弹发射状态。大键盘的5键是调整到投弹状态。
vae.la

Answer 2

这样：(我运行过了，是对的) Private Sub Form_Load()
Form1.KeyPreview = True
End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 2 Then
Form1.Caption = "您已按下了ctrl+回车"
End If
End Sub

Answer 3

Dim ctrl_press As BooleanPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 17 Then ctrl_press = True
End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 10 And ctrl_press Then
Form1.Caption = "您已按下了ctrl+回车"
Else
End If
End SubPrivate Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 17 Then ctrl_press = False
End Sub