VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2006/02/10(Fri) 12:54 |
| 投稿者 | ： demontaki |
| ＵＲＬ | ： |
| タイトル | ： Re^5: 動的に2次元配列 |
> ごめんなさい
> さっきの投稿は間違いでした
ごめんなさい
こちらが正解でした
Dim arr() As Variant
Dim arr_Conv() As Variant
Dim i As Integer
ReDim arr(2, 0)
arr(0, 0) = "a"
arr(1, 0) = "b"
arr(2, 0) = "c"
ReDim Preserve arr(2, 3) 'エラーが起きない
For i = 0 To 3
arr(0, i) = "a" & i
arr(1, i) = "b" & i
arr(2, i) = "c" & i
Next
ReDim Preserve arr(2, 5) 'エラーが起きない
For i = 0 To 5
arr(0, i) = "a" & i
arr(1, i) = "b" & i
arr(2, i) = "c" & i
Next
ReDim arr_Conv(10, 5)
For i = 0 To 5
arr_Conv(0, i) = arr(0, i)
arr_Conv(1, i) = arr(1, i)
arr_Conv(2, i) = arr(2, i)
Next
arr() = arr_Conv() '配列自体のコピーをしますのでarr()のサイズも変わります。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）