[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2006/02/15(Wed) 15:26
投稿者名:ぃのっち
Eメール:inotti_v_2003_0419@hotmail.com
URL :
タイトル:
For文中のコマンドボタンクリック動作
 こんにちは。VisualBasic6.0を使用しています。
今回どうしても分からなくてお聞きしたいことがあります。まず以下に例を
挙げます。

        For c = 0 To 23
            If Check(c).Value = 1 Then
                CmdCh_Click
            End If

        Next c

以上のプログラムではチェックボタン(c)が1の時、CmdChボタンをクリックして、
このcが0〜23までループで繰り返されるプログラムになっています。
今回私がどうしてもできないことを言いますと、このCmdChボタンもFor文中の繰り返し
の中で押すボタンを変えたいのです。例えばc=0のときCmdCh0ボタンをクリック、
c=1のときCmdCh1ボタンをクリックというように繰り返すと言った形です。
説明が下手で申し訳ありません。何か良い方法はないでしょうか?

投稿時間:2006/02/15(Wed) 16:15
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: For文中のコマンドボタンクリック動作
> c=1のときCmdCh1ボタンをクリックというように繰り返すと言った形です。
Command ボタンを配列にして CmdCh(c).Value = True のようにするか
IF 文等で条件別けして下さい
IF c=1 Then
  CmdCh1.Value = True
End If
又は Select Case を使うとか。

投稿時間:2006/02/15(Wed) 16:29
投稿者名:yuta
Eメール:
URL :
タイトル:
Re: For文中のコマンドボタンクリック動作
はじめまして。
チェックボタンをコントロール配列にしているなら、コマンドボタンも配列にしては。。。

一例として、
チェックボタンとコマンドボタンを同数用意した場合、

Dim c as Integer

For c = 0 To Check.UBound
    If Check(c).Value = 1 Then
        Call CmdCh_Click(c)
    End If
Next c

CmdChのクリックイベントで、

Select Case Index
Case 0
  '// 処理1
Case 1
  '// 処理2



End Select

って感じですかねぇ。

コントロール配列のCallに関する詳細は、MSDNの「Callステートメント」を参照してください。

長文失礼しました。

投稿時間:2006/02/16(Thu) 14:03
投稿者名:LESIA
Eメール:
URL :
タイトル:
Re: For文中のコマンドボタンクリック動作
コマンドボタンがCmdCh0〜CmdCh23まであるなら
For c = 0 To 23
    If Check(c).Value = 1 Then
        Me.Controls("CmdCh" & c).Value = True
    End If
Next c