|
■No81631 (にし さん) に返信 > その場合、Button1をクリックした時点ではButton1は反転表示されてますが、引き続きButton2をクリックすることによりButton1の反転表示は消えてしまいます。
Windows Forms でしょうか。 であれば、Button を継承して ControlStyles.Selectable フラグを切ってしまい、 フォーカスの当たらないボタンを実装しておいては如何でしょうか。
処理対象のボタン数が少ないのであれば、継承せずに リフレクションで直接セットするとか。
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim bf As BindingFlags = BindingFlags.NonPublic Or BindingFlags.Instance Dim setStyle = Me.GetType().GetMethod("SetStyle", bf) setStyle.Invoke(Button2, New Object() {ControlStyles.Selectable, False}) End Sub
|