要素数未定の2次元配列について
【開発環境】VB6_SP5 OS:WinXP
非常に困っています。どうかご教示お願い致します。
コマンドボタンを押す度に、そのフォームのデータ(Text(n).Text)を
2次元配列に格納したいのですが、コマンドボタンを押す度にReDimを
通過するため、前に格納したデーター「配列名(0,0)等」が消えてしまいます。
Publicで使える様に配列HairetsuA~Cについて、何かよい知恵はありませんか?
Option Explicit
Public Const YousoMax = 10
Public HairetsuA() As String
Public HairetsuB() As String
Public HairetsuC() As String
Public YousoA as Integer
--------------------------------------------------
Private Sub Command1_Click()
Dim YousoB As Integer
ReDim HairetsuA(YousoA, YousoB) As String
ReDim HairetsuB(YousoA, YousoB) As String
ReDim HairetsuC(YousoA, YousoB) As String
For YousoB = 0 To YousoMax
If Form1.Text1.Text <> "" Then
ReDim Preserve HairetsuA(YousoA, YousoB) As String
ReDim Preserve HairetsuB(YousoA, YousoB) As String
ReDim Preserve HairetsuC(YousoA, YousoB) As String
HairetsuA(YousoA, YousoB) = Form1.Text1.Text
HairetsuB(YousoA, YousoB) = Form1.Text2.Text
HairetsuC(YousoA, YousoB) = Form1.Text3.Text
Else
Exit For
End If
Next
YousoA = YousoA + 1
End Sub
分かり難い説明ですが、HairetsuAだけを取って言葉で説明しますと
コマンドボタンを押す度に
HairetsuA(0,0)にはアイウエオ
HairetsuA(0,1)にはカキクケコ
HairetsuA(0,2)にはサシスセソ
・
・
・
HairetsuA(0,n)にはラリルレロ
(コマンドボタンを押す)
(HairetsuA(0,0)~HairetsuA(0,n)のデータは維持したままで)
HairetsuA(1,0)にはABCDE
HairetsuA(1,1)にはFGHIJ
HairetsuA(1,2)にはKLMNO
・
・
・
HairetsuA(1,n)にはVWXYZ
・
(途中幾度かコマンドボタンを押下)
(HairetsuA(0,0)~HairetsuA(n-1,n-1)のデータは維持したままで)
・
HairetsuA(n,n)にはチリヌルオ
どうか良いお知恵をください。
どうぞ宜しくお願い致します。
お礼
早速の回答ありがとうございました。 上記の記述で解決することが出来ました。