’＊＊ 文字列の中から指定した文字列を検索し、その場所を返す ＊＊
InStr 関数
バリアント型 (内部処理形式 Long の Variant) の値を返す。ある文字列 (string1) の中から指定した文字列 (string2) を検索し、最初に見つかった文字位置 (先頭からその位置までの文字数) を返す。
構文 InStr([start, ]string1, string2[, compare])
string1 ：検索対象となる文字列式を指定します。
string2 ：引数 string1 内で検索する文字列式を指定します。
string2 が見つからないとき 0
TmpString = Left(Temp, InStr(Temp, Chr(13)))
’文字列Tempの中から、Chr(13)(リターンマーク)を検索し、その位置を返す
’＊＊ 指定した文字コードに対応する文字をかえす ＊＊
Chr 関数
構文 Chr(charcode)
Text_Edit.Text = Chr(KeyAscii)
Chr(13)キャリッジ リターン
MyChar = Chr(65) ' A を返します。
MyChar = Chr(97) ' a を返します
’＊＊ キー コード定数 ＊＊
押されたキーを認識する
Private Sub Text_Edit_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
ElseIf KeyCode = vbKeyUp Then
ElseIf KeyCode = vbKeyRight Then
ElseIf KeyCode = vbKeyLeft Then
End If
End Sub
（ヘルプより）
’引数shiftについて
Shift キー、Ctrl キーおよび Alt キーの状態を示す整数値。
shift の値はそれぞれ 1、2、4 になります。
たとえば、Ctrl キーおよび Alt キーが同時に押された場合、shift の値は 6 になる。
キー コード
定数 値 内容
vbKeyLButton 1 マウスの左ボタン
vbKeyRButton 2 マウスの右ボタン
vbKeyCancel 3 Cancel キー
vbKeyMButton 4 マウスの中央ボタン
vbKeyBack 8 BackSpace キー
vbKeyTab 9 Tab キー
vbKeyClear 12 Clear キー
vbKeyReturn 13 Enter キー
vbKeyShift 16 Shift キー
vbKeyControl 17 Ctrl キー
vbKeyMenu 18 Menu キー
vbKeyPause 19 Pause キー
vbKeyCapital 20 CapsLock キー
vbKeyEscape 27 Esc キー
vbKeySpace 32 Space キー
vbKeyPageUp 33 PageUp キー
vbKeyPageDown 34 PageDown キー
vbKeyEnd 35 End キー
vbKeyHome 36 Home キー
vbKeyLeft 37 ← キー
vbKeyUp 38 ↑ キー
vbKeyRight 39 → キー
vbKeyDown 40 ↓ キー
vbKeySelect 41 Select キー
vbKeyPrint 42 PrintScreen キー
vbKeyExecute 43 Execute キー
vbKeySnapshot 44 Snapshot キー
vbKeyInsert 45 Ins キー
vbKeyDelete 46 Del キー
vbKeyHelp 47 Help キー
vbKeyNumlock 144 NumLock キー
KeyA 〜 KeyZ は ASCII コードの "A" 〜 "Z" と同じです。
定数 値 内容
vbKeyA &H41 (65) A キー
vbKeyB &H42 (66) B キー
vbKeyC &H43 (67) C キー
vbKeyD &H44 (68) D キー
vbKeyE &H45 (69) E キー
vbKeyF &H46 (70) F キー
vbKeyG &H47 (71) G キー
vbKeyH &H48 (72) H キー
vbKeyI &H49 (73) I キー
vbKeyJ &H4A (74) J キー
vbKeyK &H4B (75) K キー
vbKeyL &H4C (76) L キー
vbKeyM &H4D (77) M キー
vbKeyN &H4E (78) N キー
vbKeyO &H4F (79) O キー
vbKeyP &H50 (80) P キー
vbKeyQ &H51 (81) Q キー
vbKeyR &H52 (82) R キー
vbKeyS &H53 (83) S キー
vbKeyT &H54 (84) T キー
vbKeyU &H55 (85) U キー
vbKeyV &H56 (86) V キー
vbKeyW &H57 (87) W キー
vbKeyX &H58 (88) X キー
vbKeyY &H59 (89) Y キー
vbKeyZ &H5A (90) Z キー
Key0 〜 Key9 は ASCII コードの "0" 〜 "9" と同じです。
定数 値 内容
vbKey0 &H30 (48) 0 キー
vbKey1 &H31 (49) 1 キー
vbKey2 &H32 (50) 2 キー
vbKey3 &H33 (51) 3 キー
vbKey4 &H34 (52) 4 キー
vbKey5 &H35 (53) 5 キー
vbKey6 &H36 (54) 6 キー
vbKey7 &H37 (55) 7 キー
vbKey8 &H38 (56) 8 キー
vbKey9 &H39 (57) 9 キー
テンキーのキー
定数 値 内容
vbKeyNumpad0 96 0 キー
vbKeyNumpad1 97 1 キー
vbKeyNumpad2 98 2 キー
vbKeyNumpad3 99 3 キー
vbKeyNumpad4 100 4 キー
vbKeyNumpad5 101 5 キー
vbKeyNumpad6 102 6 キー
vbKeyNumpad7 103 7 キー
vbKeyNumpad8 104 8 キー
vbKeyNumpad9 105 9 キー
vbKeyMultiply 106 乗算記号 (*) キー
vbKeyAdd 107 プラス記号 (+) キー
vbKeySeparator 108 Enter キー
vbKeySubtract 109 マイナス記号 (-) キー
vbKeyDecimal 110 小数点 (.) キー
vbKeyDivide 111 除算記号 (/) キー
ファンクション キー
定数 値 内容
vbKeyF1 112 F1 キー
vbKeyF2 113 F2 キー
vbKeyF3 114 F3 キー
vbKeyF4 115 F4 キー
vbKeyF5 116 F5 キー
vbKeyF6 117 F6 キー
vbKeyF7 118 F7 キー
vbKeyF8 119 F8 キー
vbKeyF9 120 F9 キー
vbKeyF10 121 F10 キー
vbKeyF11 122 F11 キー
vbKeyF12 123 F12 キー
vbKeyF13 124 F13 キー
vbKeyF14 125 F14 キー
vbKeyF15 126 F15 キー
vbKeyF16 127 F16 キー
’＊＊ ASCII 文字セット (0 - 127) ＊＊
Private Sub Text_Edit_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then ’リターンキーが押された
KeyAscii = 0 ’キー入力を無効にする
End If
End Sub
ASCII 文字セット (0 - 127)
| 文字 | コード | 文字 | コード | 文字 | コード | 文字 | コード |
| NUL ヌル(空文字) | 0 | SP (半角)スペース | 32 | @ | 64 | ` | 96 |
| SOH ヘディング開始 | 1 | ! | 33 | A | 65 | a | 97 |
| STX テキスト開始 | 2 | " | 34 | B | 66 | b | 98 |
| ETX テキスト終了 | 3 | # | 35 | C | 67 | c | 99 |
| EOT 伝送終了 | 4 | $ | 36 | D | 68 | d | 100 |
| ENQ 問い合わせ | 5 | % | 37 | E | 69 | e | 101 |
| ACK 肯定応答 | 6 | & | 38 | F | 70 | f | 102 |
| BEL ベル | 7 | ' | 39 | G | 71 | g | 103 |
| BS バックスペース | 8 | ( | 40 | H | 72 | h | 104 |
| HT 水平タブ | 9 | ) | 41 | I | 73 | i | 105 |
| LF/NL 復帰/改行 | 10 | * | 42 | J | 74 | j | 106 |
| VT 垂直タブ | 11 | + | 43 | K | 75 | k | 107 |
| FF 改ページ | 12 | , | 44 | L | 76 | l | 108 |
| CR 復帰 | 13 | - | 45 | M | 77 | m | 109 |
| SO シフトアウト | 14 | . | 46 | N | 78 | n | 110 |
| SI シフトイン | 15 | / | 47 | O | 79 | o | 111 |
| DLE データリンクでの拡張 | 16 | 0 | 48 | P | 80 | p | 112 |
| DC1 制御装置1 | 17 | 1 | 49 | Q | 81 | q | 113 |
| DC2 制御装置2 | 18 | 2 | 50 | R | 82 | r | 114 |
| DC3 制御装置3 | 19 | 3 | 51 | S | 83 | s | 115 |
| DC4 制御装置4 | 20 | 4 | 52 | T | 84 | t | 116 |
| NAC 否定応答 | 21 | 5 | 53 | U | 85 | u | 117 |
| SYN 同期文字 | 22 | 6 | 54 | V | 86 | v | 118 |
| ETB 伝送ブロック終了 | 23 | 7 | 55 | W | 87 | w | 119 |
| CAN 取消 | 24 | 8 | 56 | X | 88 | x | 120 |
| EM 媒体終端 | 25 | 9 | 57 | Y | 89 | y | 121 |
| SUB | 26 | : | 58 | Z | 90 | z | 122 |
| ESC (制御コード)拡張 | 27 | ; | 59 | [ | 91 | { | 123 |
| FS ファイルセパレータ | 28 | < | 60 | \ | 92 | | | 124 |
| GS グループセパレータ | 29 | = | 61 | ] | 93 | } | 125 |
| RS レコードセパレータ | 30 | > | 62 | ^ | 94 | ~ | 126 |
| US ユニットセパレータ | 31 | ? | 63 | _ | 95 | DEL 削除 | 127 |
'＊＊ キーボート認識のためのAPI ＊＊
’キーコード定数で認識されないとき
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const VK_DELETE = &H2E '[Delete]
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
'Deleteキーが押された場合
If GetKeyState(VK_DELETE) < 0 Then
MSFlexGrid1.FillStyle = flexFillRepeat
MSFlexGrid1.Text = ""
Text_Edit.Text = ""
MSFlexGrid1.FillStyle = flexFillSingle
End If
End Sub
&H1 'マウス左ボタン
&H2 'マウス右ボタン
&H3 '[Cancel]
&H8 '[Back Space]
&H9 '[TAB]
&HC '[Clear]
&HD '[Enter]
&H10 '[Shift]
&HA1 '[右Shift]
&H11 '[Control]
&HA3 '[右Control]
&H13 '[Pause]
&H1B '[Esc]
&H20 '[Space]
&H23 '[End]
&H24 '[Home]
&H25 '[←]
&H26 '[↑]
&H27 '[→]
&H28 '[↓]
&H2E '[Delete]
&H60 'テンキーの[0]
&H61 'テンキーの[1]
&H62 'テンキーの[2]
&H63 'テンキーの[3]
&H64 'テンキーの[4]
&H65 'テンキーの[5]
&H66 'テンキーの[6]
&H67 'テンキーの[7]
&H68 'テンキーの[8]
&H69 'テンキーの[9]
&H6C 'テンキーの[Enter]
&H70 '[F1]
&H71 '[F2]
&H72 '[F3]
&H73 '[F4]
&H74 '[F5]
&H75 '[F6]
&H76 '[F7]
&H77 '[F8]
&H78 '[F9]
&H79 '[F10]
&H7A '[F11]
&H7B '[F12]
&H90 '[Num Lock]
