タイトル : Re^2: ラベルでイベントが起こらなくなる 投稿日 : 2011/08/24(Wed) 15:11 投稿者 : てきーら
教えていただいたコードを書いてみましたがとりあえずうまくいきました とりあえずというのは、実はもう一つ処理を加えた後にうまくいかなくなるからなのですが・・・文章では書きづらくてですね、 【日本語】のボタンを押すとひらがなのキーボードになり 【英語】のボタンを押すと英語のキーボードになり 【フランス語】【スペイン語】・・・とあるとします 【日本語】のキーを押すと押したキーのBackColorが変更されCaptionがTextBoxに入ります その後【英語】【フランス語】と3種類くらい種類を変更しクリックした後 【日本語】のキーボードに戻り、展開時にクリック済みのラベルのBackColorをクリック済みに変更します(クリック済み処理) この時に右クリックに反応するものとしないものがそんざいするわけです ちなみに右クリック処理はポップアップの展開です 左クリックには反応します ニュアンス的には、指定したラベルが選択されていないため右クリックに反応しないようなのですが、それを回避するためにMouseMoveイベントにてMouseが指しているラベルのIndexを取得する処理が施されています Private MIndex as Integer Private Label_MouseMove Mindex=Index End sub Private Label_MouseDown If 左クリック Label(MIndex).BackColor変更 Else Label(MIndex).BackColor変更 End If End sub まだここまで検証できていないので今からしてみます ところでMicrosoft Forms2.0のラベルを指定する場合、書式はどうなりますか? |