■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#1654-2キーボードを押すと匿名16542002-07-12(金) 16:49
     #1656-2RE#1654:キーボードを押すと匿名16562002-07-12(金) 22:58
     #1666-2RE#1656:キーボードを押すとSay2002-07-13(土) 08:18
     #1673-2RE#1666:キーボードを押すと16542002-07-13(土) 14:52
     #1679-2RE#1673:キーボードを押すとSay2002-07-13(土) 19:31
#1654-2
キーボードを押すと
Label1があります。
そこには最初から「0」という文字が書かれています。
キーボードの「a」を押すとLabel1の数字にプラス1をするようにするにはどうすればいいのでしょうか?
それとバックグラウンドでも動作させたいのです。
よろしくお願いします。
#1656-2
RE#1654:キーボードを押すと
> Label1があります。
> そこには最初から「0」という文字が書かれています。
> キーボードの「a」を押すとLabel1の数字にプラス1をするようにするにはどうすればいいのでしょうか?
> Label1があります。
> そこには最初から「0」という文字が書かれています。
> キーボードの「a」を押すとLabel1の数字にプラス1をするようにするにはどうすればいいのでしょうか?

LabelはKeyDown,KeyPressは無いんでしたね、すっかり忘れていました。
色々面倒そうなので、LabelではなくてTextboxを使うのでは駄目でしょうか?
プロパティの値を次のようにするとLabelっぽくみせる事は出来ますが・・。

Apperence 0-フラット
BorderStyle 0-なし 
BackColor &H8000000F& <ボタンの表面など色々。
Locked = True
TabStop = False & キャレット非表示とかもするといい感じです。


実際のコードはこんな感じでしょうか?
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If (KeyCode = vbKeyA) And (Shift = 0) Then
        Text1.Text = Int(Text1.Text) + 1
    End If
End Sub

Textboxだったら上記の操作は簡単にできると思います。
#1666-2
RE#1656:キーボードを押すと
> LabelはKeyDown,KeyPressは無いんでしたね、すっかり忘れていました。

KeyPreviewをTrueにして、Formに処理させる、という手もあります。
#1673-2
RE#1666:キーボードを押すと
匿名1656さん、Sayさん
ありがとうございます。

なんとなくそれらしいものを作ることが出来ました!

それをバックグラウンド(ウインドウが非アクティブのとき)でも動作させるようにするにはどうすればいいのかわかりませんか?
#1679-2
RE#1673:キーボードを押すと
> それをバックグラウンド(ウインドウが非アクティブのとき)でも動作させるようにするにはどうすればいいのかわかりませんか?

グローバルキーフックします。

「グローバルフック」でWeb検索するといろいろ見つかりますが、
ほとんどC/C++用に書かれています。

Codianの解説がわかりやすくていいですが、それでも敷居は高いです。
結構危険な処理ですので、いくつかサイトの解説を読んでみて
わかるようならチャレンジしてみてください。

なお、グローバルフックの場合、VBのみでは作ることができません。
このページと関連する記事:
#437-2キーボードフック中の異常終了2003-08-18(月) 23:12
#2350-0Form_KeyDownでMsgBox発生させてもいいのですか?1999-09-30(木) 09:11
#33569-0はじめまして2000-11-16(木) 13:13
#23195-0エンターキー2001-09-16(日) 03:27
#5512-0TextBox で INSERTキーで上書きモードを切替えたい1999-09-20(月) 16:51
#19705-0ラベルの値と押したボタンが同じ時の処理2002-02-06(水) 12:44
#14938-0コマンドボタン上での矢印キー2001-03-08(木) 14:14
#41868-0キーボードのロック2001-04-18(水) 13:31
#70-0入力について2001-12-26(水) 18:13
#11404-0カーソルって??1999-12-10(金) 15:17
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)