8800.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 27 行

HTML
27
字号
<html>
  <head>
    <title>Re: 加入以下程式码: Good luck! ^_^</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 加入以下程式码: Good luck! ^_^</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:harlem73@ms26.hinet.net">哈林</a> on January 02, 1999 at 22:00:07:<p>
In Reply to: <a href="8798.html">keycode</a> posted by 小小 on January 02, 1999 at 21:22:51:<p>
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)<br>Select Case KeyCode<br>       Case 67<br>            If (Shift And vbShiftMask) Then<br>               Label1.Caption = "Shift-c"<br>            ElseIf (Shift And vbCtrlMask) Then<br>               Label1.Caption = "Ctrl-c"<br>            ElseIf (Shift And vbAltMask) Then<br>               Label1.Caption = "Alt-c"<br>            Else<br>               Label1.Caption = "c"<br>            End If<br>End Select<br>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 8800-->
<!--top: 8811--><li><a href="8811.html">Re: 加入以下程式码: Good luck! ^_^</a> <b>小小</b> <i>11:32:43 1/03/99</i>
(<!--responses: 8811-->0)
<ul><!--insert: 8811-->
</ul><!--end: 8811-->
</ul><!--end: 8800-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?