掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
連続するテキストボックスの中身をかきかえるには？ (ID：104532)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
本来なら、 Text1(0)〜Text1(19) というふうにコントロール配列にしておくと For i = 0 To 19 Text1(i).Text = CStr(Clng(Text1(i).Text) + 1 ) Next と出来て楽なのですが、 いまさら名前変えるのヤダというのなら、 オブジェクト配列にコントロールをSetする手もあります。 モジュールレベルで Private mobjText(19) As TextBox とやっておいて、Form_Loadで Me.Show Set mobjText(0) = Text1 Set mobjText(1) = Text2 ..... Set mobjText(19) = Text20 (20行書くのがいやなら、For文使って Set mobjText(i) = Me.Controls("Text" & CStr(i + 1)) でもよい。) としておけば、 For i = 0 To 19 mobjText(i).Text = CStr(Clng(mobjText(i).Text) + 1 ) Next のように、普通にFor文でカウントアップできます。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.