元に戻る スレッド一覧へ 記事閲覧

このページ内の検索ができます。(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 |

投稿フォーム　　　　　　　　　　　　　　　スレッド一覧へ 題　　名 スレッドをトップへソート 名　　前 パスワード （記事メンテ時に使用） 投稿キー （投稿時 を入力してください） コメント *********************************************************************************** * カテゴリー：[][][] * キーワード： , , , , , ***********************************************************************************    クッキー保存

スレッド一覧へ