アプリ版:「スタンプのみでお礼する」機能のリリースについて

VB2008を使用しています。
True状態のCheckBox1~70をButtonを押すことによってFalse状態にさせようとしていますが、一つずつコードを記載するのは長くなってしまうため以前こちらに投稿されていたTextBoxのコントロール配列を参考に下記のコードを作成しました。

Dim c As Integer
For c = 1 To 70
Me.Controls("CheckBox" & c.ToString).Checked = False
Next

しかし、このコードでは下記のエラーが出てしまいます。
"CheckedはSystem.Windows.Forms.Controlのメンバではありません。"
どなたかお知恵をお貸し下さい。

A 回答 (1件)

ユーザーホームにチェックボックスを三つ作って


ボタンで、全部、trueにするコードを
書いてみました。

以下のようにすると、動作を確認しました。

For i As Integer = 1 To 3

CType(Me.Controls("CheckBox" & i.ToString), CheckBox).Checked = True

Next

たぶん、これで出来ると思います。
    • good
    • 0
この回答へのお礼

ご回答頂きありがとうございます。教えて頂いたコードで目的を達成することが出来ました。本当に助かりました。

お礼日時:2009/10/11 20:49

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!