[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2005/01/12(Wed) 14:46
投稿者名：kuma
Ｅメール：
ＵＲＬ　：
タイトル：同じ処理の繰り返し
いつもご丁寧に小生の質問にお答えしていただきありがとうございます。
Command1.Caption=○○
Command2.Caption=○○
・
・
・
Command100.Caption=○○という処理を省略して書くにはどのようにすればよろしいのでしょうか？
ご教授お願いいたします。

投稿時間：2005/01/12(Wed) 15:01
投稿者名：aki
ＵＲＬ　：
タイトル：Re: 同じ処理の繰り返し
コントロール配列にできないんですかね？

それならば下記のようなコードではいかがでしょうか？

    Dim myControl As Control
    
    For Each myControl In Form1
        If InStr(myControl.Name, "Command") > 0 Then
            myControl.Caption = "aaa"
        End If
    Next myControl

投稿時間：2005/01/12(Wed) 15:46
投稿者名：kuma
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: 同じ処理の繰り返し
すばやいご回答ありがとうございます。
とりあえずすべてのキャプションは変更できるようになりました。ありがとうございます。
もう少しお聞きしたいのですが、
フォームの中に１〜５０のコマンドボタンが存在し、そのなかの１〜１０のコマンドボタンの
キャプションを変更するときなど、一部のみ変更したい場合はどのようにすればよいのでしょうか。
超初心者的質問ですいません。

投稿時間：2005/01/12(Wed) 16:18
投稿者名：INA
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: 同じ処理の繰り返し
試していませんが、Mid関数で数値部分だけ抜き出して判定できませんか？


   If InStr(myControl.Name, "Command") > 0 and _
      mid(myControl.Name, 8) <= 10  Then

投稿時間：2005/01/12(Wed) 16:36
投稿者名：kuma
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: 同じ処理の繰り返し
うまくいきました☆
akiさん、INAさん、ありがとうございました。