VB初心者友の会 - はじめたばかりの人専用Q&A掲示板過去ログ

> テキストボックスにEnterを押すとイベントが起きるってやつで、
> どうしてもbeep音（？）カチッっていうやつが鳴ってしまいます。
> 鳴らさないようにするにはどうしたらよいのでしょうか・・・

KeyPressイベントでKeyAsciiに０をセットすればいいのでは？
Private Sub Text1_KeyPress(KeyAscii As Integer)
  KeyAscii = 0
End Sub

似たような内容で困っておりましたので、便乗で質問させて頂きます。
フォームにカーソルを作らないす方法と、
→↑←↓のキーボードの方向キーを押したときにカーソルがボタンから他のボタンへ
移動しないようにする方法があれば教えて下さい。
他のボタンのイベントは下の方法でキャンセルできたのですが、
方向キーだけは今のところどうにもなっていません。
よろしくおねがいします。

> Private Sub Text1_KeyPress(KeyAscii As Integer)
>   KeyAscii = 0
> End Sub

> →↑←↓のキーボードの方向キーを押したときにカーソルがボタンから他のボタンへ
> 移動しないようにする方法があれば教えて下さい。
> 他のボタンのイベントは下の方法でキャンセルできたのですが、
> 方向キーだけは今のところどうにもなっていません。

調べが足りひんにぃ。

KeyPressが判ってたら、そこから KeyDown/KeyUpは見つけられそうなもんだに。

さぁ、調べられたし。

> 似たような内容で困っておりましたので、便乗で質問させて頂きます。
別のコントロールの話ですし、便乗ではなく、新規に質問を起こしても良かったと思いますが…。(^_^;)

> フォームにカーソルを作らないす方法と、
ごめんなさい。この質問の意味がわかりませんでした。m(_ _;)m

> →↑←↓のキーボードの方向キーを押したときにカーソルがボタンから他のボタンへ
> 移動しないようにする方法があれば教えて下さい。
これは、VBの仕様上無理です。
どうしてもやりたいのであれば、そのコントロールを使うのをやめましょう。(泣)
で、ImageコントロールやLabelコントロールなどのClickイベントを、
ボタンの代用にするとか…。

あるいは、コントロール全てのTabStopをFalseにするというのもありです。
そうすれば、フォーカスの移動が発生しなくなるので。

いずれにしても、VB標準の動作ではないので、苦労の割に実りは少ないと思います。(/_;)


なお―――VBをはじめたばかりの人におすすめできるものではないですが―――
以下のURLをみて、その内容を理解できるのであれば、
一応、矢印キーが押されたことをフォーカス移動前に認識して、
「矢印キーが押されていなかった事にする」ができます。（結構無茶な処理ですが）

http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/9802/subc/
http://www.sfdata.ne.jp/windev/vb-ml/vb-ml/msg10151.html

ごめんなさい、大嘘書きました。m(_ _;)m

> あるいは、コントロール全てのTabStopをFalseにするというのもありです。
> そうすれば、フォーカスの移動が発生しなくなるので。
これは、「TABキー」の移動しか抑制されません。
矢印キーによる移動に対しては、無力です。m(_ _;)m


あ、それと#3040で、KeyDownという回答がありましたが、
残念ながら矢印キーは、フォームにCommandButtonや、CheckBox等があると 
KeyDown等でも認識できないのです。
＃ 全てのコントロールをVisible=Falseにするとか、
＃ Enabled = Falseにすれば、一応拾えるけど(泣)

ためしに以下のソースの動作を、コントロールを何も貼らない時と、
コマンドボタンをいくつか貼った時とで比べてみてください。＞とんがらしさん

Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
     Case vbKeyLeft
        Caption = "←"
     Case vbKeyUp
        Caption = "↑"
     Case vbKeyRight
        Caption = "→"
     Case vbKeyDown
        Caption = "↓"
     Case Else
        Caption = "他"
    End Select
End Sub

Private Sub Form_Load()
    KeyPreview = True
End Sub

魔界の仮面弁士 さま、誠に恐れ入りますです。

サンプルソース確認しました。　ホントですねぇ。

> あ、それと#3040で、KeyDownという回答がありましたが、
> 残念ながら矢印キーは、フォームにCommandButtonや、CheckBox等があると 
> KeyDown等でも認識できないのです。

ヘルプにゃぁ、Default/Cancelプロパティの設定したコマンドボタンって
あったんで鵜呑みにしとったです。

萬識楽 さん、ウソ書きました。　すんません。

＃言い訳するけど、「テキストボックスで」って題名はなしではないかぇ？
＃確かに文章を適当に読んだ方も問題あるけどに・・・。