VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2006/02/11(Sat) 12:50
投稿者： も
Ｅメール：
ＵＲＬ：
タイトル： Re^9: 動的に2次元配列

枯れた方法ですが、
・二次元配列ではなく、ユーザ定義型の配列を使う
というものがあります。

例えば
Option Explicit
'hoge型の宣言
Private Type hoge
    itm() As Variant
End Type
'hoge型の配列
Private itm() As hoge

Private Sub Form_Load()
    Dim i As Long
    'hoge型の配列の確保
    ReDim itm(2)
    'hoge型の配列の要素.itm()の確保
    For i = 0 To 2
        ReDim itm(i).itm(0)
    Next
    
    '使ってみる
    itm(1).itm(0) = "a"
    'hoge型の配列の拡張
    Debug.Print itm(1).itm(0)
    '拡張後、要素が残っているか確かめる
    ReDim Preserve itm(10)
    Debug.Print itm(1).itm(0)
End Sub

の様に使えます。
まぁ、２次元配列ではなくなりますが…

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -