VB2010
7 Pro SP1
8つのチェックボックスと4つのラジオボタンがあり、チェックボックスにどれか1つでも
チェックが入っていたらラジオボタンを無効にし、チェックが全部外れたら
ラジオボタンを有効にしたいです。
下記のようなifで出来るかと思ったのですが、フォーム、ラジオボタン、チェックボックス
どれに記述しても動きません。
どこに記述すればいいでしょうか?
If CheckBox1.Checked Or CheckBox2.Checked Or CheckBox3.Checked Or CheckBox4.Checked Or CheckBox5.Checked Or CheckBox6.Checked Or CheckBox7.Checked Or CheckBox8.Checked Then
RadioButton4.Enabled = False
RadioButton6.Enabled = False
RadioButton7.Enabled = False
RadioButton8.Enabled = False
Else
RadioButton4.Enabled = True
RadioButton6.Enabled = True
RadioButton7.Enabled = True
RadioButton8.Enabled = True
End If
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは。
イベントを使用すれば実現できます。↓
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged, _
CheckBox5.CheckedChanged, CheckBox6.CheckedChanged, CheckBox2.CheckedChanged
'変数宣言
Dim FrmCheckBox As CheckBox = Nothing
Dim FrmRadioButton As RadioButton = Nothing
Dim EnbFlg As Boolean = True
Try
'チェックボックス検査ループ
For Each FrmCntrl As Control In Me.Controls
'コントロールの種別がチェックボックスか検査
If TypeOf FrmCntrl Is CheckBox Then
'フォーム上のチェックボックスを取得
FrmCheckBox = DirectCast(FrmCntrl, CheckBox)
If FrmCheckBox.Checked = True Then
'ラジオボタン表示フラグ更新
EnbFlg = False
'ループ脱出
Exit For
End If
End If
Next
'ラジオボタン表示/非表示処理
For Each FrmCntrl2 As Control In Me.Controls
'コントロールの種別がラジオボタンか検査
If TypeOf FrmCntrl2 Is RadioButton Then
'フォーム上のラジオボタンを取得
FrmRadioButton = DirectCast(FrmCntrl2, RadioButton)
'ラジオボタン表示フラグ設定
FrmRadioButton.Enabled = EnbFlg
End If
Next
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace, MsgBoxStyle.Critical)
End Try
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- HTML・CSS ただいま勉強始めたての初心者です。フォームを縦並べにしたいです。 2 2022/11/20 17:18
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- JavaScript javascriptで移動ボタンを押した際に遷移するボタンを追記したい 1 2022/11/29 03:02
- HTML・CSS CSS のみのタブ切り替えについて 1 2023/01/11 16:47
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) シートを選択して、1つのPDFにしたいのですが。 5 2022/10/03 20:18
- PHP 入力した部分を表示させたまま(保持)するにはどうすれば良いでしょうか? 1 2023/01/25 11:14
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) Visual Basic : ImageListの画像がそろったときにメッセージを表示 1 2023/07/20 13:53
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カメラスクロールするのを動画...
-
ListViewのチェックボックスに...
-
VB.NETでフォーム上にエクセル...
-
ACCESS2010のVBAでフォーム内ク...
-
複数のコマンドボタン(VBAで)...
-
Excel VBA で Richtextboxを使...
-
excelのリストボックスで選択し...
-
ExcelVBAでListViewが使用できない
-
vb.netで画面のコントロールId...
-
コンボボックスの文字によるif...
-
エクセル・VBA CheckBoxのオブ...
-
C#で角が丸いテキストボックス
-
変数をコントロール型で使用す...
-
EXCELでactivexコントロールを...
-
DataGridView、1セルに複数コ...
-
VBAでドラッグ・アンド・ドロップ
-
fpSpreadコントロール ライセ...
-
コントロールを移動できない
-
ビープ音鳴らし続けたい。
-
VBAのフォームでTextBoxがいっ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カメラスクロールするのを動画...
-
エクセル・VBA CheckBoxのオブ...
-
vb.netで画面のコントロールId...
-
EXCELでactivexコントロールを...
-
C#で角が丸いテキストボックス
-
(VBA)スピンボタンの大量...
-
chr関数の呼び出しで「プロ...
-
変数をコントロール型で使用す...
-
ExcelVBAでListViewが使用できない
-
VBAのエラーについて、”実行時...
-
間違えて配置してしまったコン...
-
VBAのフォームでTextBoxがいっ...
-
Groupboxの配下のコントロール...
-
excelのリストボックスで選択し...
-
ACCESS2010のVBAでフォーム内ク...
-
エクセルVBAでオプションボタン...
-
フォーム上の現在アクティブな...
-
ユーザーフォームで動的(Me.Con...
-
コンボボックスの文字によるif...
-
コントロールを移動できない
おすすめ情報