07/05/18 19:41:19
>>270
こういうふうに書き換えるのは、上手普通下手で言えばどれですかね？
Dim bFlag As Boolean = False
If (bHoge Or bMoge Or bNuge Or bHage Or ...) Then
bFlag = True
End if
If Not bFlag Then CB.Checked = True
他の人のコード見て勉強する機会があまりないので。
270は、どれか１つのフラグがいらなくなったら１行削ればいいので、
案外上手なのかもしれんと思いました