VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/02/05(Wed) 20:25 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: SendInputの使い方 |
ここの逆引きヘルプの キーストロークをシミュレート(押下げ・制御)する(SendInput関数使用) と
見比べて下さい。（といってもそんなに立派なサンプルではありませんが）
Command1_Click イベントを下記に変更して試して見て下さい。
Private Sub Command1_Click()
Dim wVkKey() As Integer
Dim UpDown() As Integer
ReDim wVkKey(3) As Integer
ReDim UpDown(3) As Integer
wVkKey(0) = vbKeyControl: UpDown(0) = 0 'UpDown(0) = 0 は省略可
wVkKey(1) = vbKeyEscape: UpDown(1) = 0 '0 以外は keyUP
wVkKey(2) = vbKeyEscape: UpDown(2) = 1
wVkKey(3) = vbKeyControl: UpDown(3) = 1
sKeyEventSet 4, wVkKey, UpDown
'キーコード定数はＶＢのキーコード定数でもＯＫ
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）