足し算で教えてください。 への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 ラキシス  () 投稿日時 2008/8/25 23:39:00
どんなコントロールでも使えるという物ではないですが、こんな書き方も出来ます。 
 
For i As Integer = 10 To 100 
    temp += Me.Controls("TextBox" & i.ToString).Text 
Next 
 
実行確認はしていないのでエラーが出たらごめんなさい。
0
投稿者 魔界の仮面弁士  () 投稿日時 2008/8/15 03:45:00
>>4 
フォームに Panel を貼って、関連する TextBox を、 
その Panel 上に移動させてみてください。 
 
そして今まで 
　For Each c As Control In Me.Controls  
で行っていた列挙処理を、 
　For Each c As Control In Me.Panerl1.Controls 
で行うようにすれば対処できるかと。
0
投稿者 ねこ  () 投稿日時 2008/8/15 00:48:00
>>2 >>3　 
れおさん、名鉄2000系さん 
有難うございます。 
 
バージョンは無料2008版です。 
お二人のレスをみてテストフォームを作って試してみました。そしてうまくいきました。 
有難うございます。 
 
そこでもうひとつお聞きしたいんですが、テキストボックス１０～１００までだけ足し算とする場合は 
 
FOR～NEXTでどの様にテキストボックス名の数字をカウントするのでしょうか、教えていただいた方法だとフォーム上のオブジェクトがテキストボックスだったら+=する（この解釈でいいのかな？）みたいなので、テキストボックスの名前で足し算できればと思います。 
 
理由は一部のテキストボックスに名前とか入れたいのです。 
説明がへたでごめんなさい。 
 
>>れおさん 
テキストボックスに数字がはいっていないときのメッセージ処理はすごく勉強になりました。 
有難うございます。
0
投稿者 れおです。  () 投稿日時 2008/8/14 13:05:00
いやぁ、勉強になりました。（本当です） 
Option Strict On使用では。 
Button1イベントハンドラ内に 
Dim o As Control 
Dim Value As Integer 
Try 
For Each o In Me.Controls 
If o.GetType Is GetType(TextBox) Then 
Value +=Cint(o.Text) 
End If 
Next 
Catch 
MsgBox("数字が入ってないTextがあります。") 
Return 
End Try 
MsgBox(Value) 
End Sub 
<<VB2008無料版>>
0
投稿者 名鉄2000系  () 投稿日時 2008/8/14 09:15:00
VBのバージョンが書いてないので、とりあえずVB2002以降のものを。 
 
'フォーム上のTextBoxの値をすべて足して、MsgBoxで表示します。。 
Dim o As Control 
Dim Value As Integer 
For Each o In Me.Controls 
    If o.GetType Is GetType(TextBox) Then 
       Value += o.Text 
    End If 
Next 
MsgBox(Value) 
 
コレでいいでしょうか?
0
投稿者 ねこ  () 投稿日時 2008/8/14 04:17:00
テキストボックスが100個あります。 
このテキストボックス100個の数字を足し算したいのですが、textbox1.text + textbox2.text,,,,,と 
延々と記述するのが大変で、なんとか簡略化できないでしょうか。 
 
このHPを見てVBをはじめて見たばかりで、初心者的な質問でごめんなさい。
0