複数チェックを入れるには？

拓 2007-01-18 00:56:28 No: 97681

昨日からVBを始めて早速壁にぶつかってます...
よければ教えてください!!

何回してもチェックが1つにしか付かないのです。

数値を入れチェックボタンを押せば該当箇所にチェックが入る仕組みに
したいのですが。

今は
If FirstNum Mod 2 = 0 Then
CheckBox1.Checked = True
こんな感じで打ってます。

数値[ ] 【倍数チェック】

□2の倍数
□3の倍数
□5の倍数
□7の倍数

あん 2007-01-18 02:06:09 No: 97682

＞こんな感じで打ってます。
これだと一箇所しかチェックしないのはあたりまえでは？
おおちゃくして省略すると一向に解決しませんよ。

通ってみた 2007-01-18 02:48:48 No: 97683

＞これだと一箇所しかチェックしないのはあたりまえでは？
コードを倍数毎に書いているのであれば、できるのでは？

If FirstNum Mod 2 = 0 Then
CheckBox1.Checked = True

If FirstNum Mod 3 = 0 Then
CheckBox2.Checked = True

以下同様

当然、ひとつしか書かれていなければひとつしかチェックしませんが

我龍院 2007-01-18 03:15:28 No: 97684

ElseIfを使ってるんでしょう、きっと。

通ってみた 2007-01-19 02:10:27 No: 97685

あ、各Ifに対してのEnd Ifを入れ忘れてました・・・

Else Ifにしてしまうと、例えば数値が10の場合、２の倍数でもあり、５の倍数でもあるのに、２の倍数のみになってしまいますよね

ささ 2007-01-19 03:39:50 No: 97686

質問者は、何回してもチェックが1つにしか付かないのです。

と言っているので、我龍院さんは、
そうなる傾向の一つに、Elseifを出しているわけで・・・。

※ちなみに、Elseif と Else ifでは別物です。

通ってみた 2007-01-19 14:24:24 No: 97687

私は、私が提示したコードについて言っているわけで・・・

※ちなみに、私が提示したコードと他の回答者の回答は別物です