tagCANDY CGI VBレスキュー(花ちゃん) - Objectの確認(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
Objectの確認(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

Objectの確認(VB6.0) [No.43の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
日時: 2009/12/27 15:17
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[コントロール共通][基本コード][]                                    *
* キーワード:配列の管理,配列数,,,,                                               *
***********************************************************************************

元質問:Objectの確認 - まーちゃん 2003/01/30-10:17 No.2463

テキストBOX(配列)に入力した文字をLabel(配列)に表示させプログラムでLoadさせて配列の数を増やして行きますが

テキストBOX(配列)とLabel(配列)を同じ数にしておけばいいのですが、使わない時も有りますので、テキストBOX(配列)に入力した時にLabel(配列)が無い場合エラーが、起きてしまいますLabel(配列)が有るか無いかの確認はプログラムで、出来るのですか? 

=============================================================================
*    上記、質問内容以外にも色々応用して使えるかなと思って投稿しました。     *
*                            --- by 花ちゃん ---                            *
=============================================================================


----------------------------------------------------------------------------
Re: Objectの確認 - Say 2003/01/30-10:31 No.2464
----------------------------------------------------------------------------

コントロールのIndex番号ぐらい自己管理すべきだと思いますが・・・。
(Dictionary使うとかして)

エラーがおきて困るというなら
エラールーチンで処理するのが簡単かと。

もちろん、調べるだけなら、
    Dim obj As Control
    For Each obj In Controls
        If obj.Name = "Label1" Then
            List1.AddItem obj.Name & "(" & obj.Index & ")"
        End If
    Next
みたいにして調べられますが・・・。
メンテ

Page: 1 |

Objectの確認(VB6.0)_1  (No.1の個別表示) [スレッド一覧へ]
日時: 2011/04/05 11:33
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[コントロール共通][基本コード][]                                    *
* キーワード:配列の管理,配列数,,,,                                               *
***********************************************************************************

-----------------------------------------------------------------
Re^2: Objectの確認 - 魔界の仮面弁士 2003/1/30-11:45 No.2467
-----------------------------------------------------------------

こういう書き方もできます。

Dim Lbl As VB.Label
For Each Lbl In Label1
    List1.AddItem "Label1(" & Lbl.Index & ")"
Next
メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ