| ■No98291 (ゆい さん) に返信
> 簡単に出来る方法がありましたらよろしくお願いします。
フォーカスのあったボタンを覚えておいて
ラジオボタンの処理が終わったら
フォーカスを戻してはどうでしょうか？
Dim ActiveButton As Button
Private Sub Button1_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles Button1.Validating, Button2.Validating
If TypeOf ActiveControl Is RadioButton Then
ActiveButton = sender
End If
End Sub
Private Sub RadioButton1_Click(sender As Object, e As EventArgs) Handles RadioButton2.Click, RadioButton1.Click
If Not (ActiveButton Is Nothing) Then
ActiveButton.Focus()
ActiveButton = Nothing
End If
End Sub |