VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/03/29(Sat) 08:35 |
| 投稿者 | ： ひろぽん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: クラスは遅い？ |
> クラスだからといって動的配列の取り扱いが複雑になるわけではありませんよ。
> プロパティで配列受け渡しできますし。
>
> '子フォーム
> Private sAry() as String
> Private lCol as Long
> Private lRow as Long
> '２次元行数
> Public Property Let ArrayCol(ByVal newVal as Long)
> lCol& = newVal&
> End Property
>
> '２次元列数
> Public Property Let ArrayRow(ByVal newVal as Long)
> lRow& = newVal&
> End Property
>
> '２次元配列受け取り
> Public Property Get StringArray() as String()
> StringArray = sAry$()
> End Property
>
> '２次元配列の確保
> Public Function AllocateArray() as Boolean
> ReDim sAry(lCol&, lRow&) as String
> End Function
>
ご回答、ありがとうございます。私はクラス初心者なもので、せっかくご呈示していただいた
コードですが、非常に高度な手法をお使いになっているため、理解するにが大変です。
実際、本クラスを用いて２次元配列にデータを格納する場合は、どうすればいいのでしょうか。
> ----------------------------------------------------------------
> FormはFormsコレクションに格納されていますので
> For Each frmF In Forms
> frmF.X = ****
> Next frmF
> でできます。
>
これは子フォームにクラスで定義したXに値を代入する（開いている子フォーム全て）
という意味でよろしいでしょうか。
クラスはおろか、Ｆｏｒｔｒａｎ -> ＶＢに転身して間もないもので、理解不足が甚だしく
ご迷惑をおかけしますが、何とぞよろしくご教授いただけますようよろしくお願いします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）