tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^4: ArrayListの定義
投稿日: 2013/06/30(Sun) 12:28
投稿者GC
VBレスキュー(花ちゃん)、ご回答ありがとうございます

> >でも、行の追加、削除するとソートなどかなり面倒くさい。
> http://www.hanatyan.sakura.ne.jp/vbhlp/fil_Sort.htm
>
ありがとう、見てみます。

> > >Dim col As VBA.Collection
> > >Set ar = CreateObject("System.Collections.ArrayList")
> > ちょっと足りないかなー
> 意味が解らないけど
>
説明が不足ですが、すみません。
言いたいことは、例で説明いたします。
1.構造体
Public Type Excel_Str
    tem1 As String
    tem2 As String
    tem3 As String
    tem4 As String
    tem5 As String
End Type
Public ExcelStr() As Excel_Str
mnExcel_n=10
ReDim ExcelStr(mnExcel_n)
2.
for i=0 to 8
ExcelStr(i).tem1 = "Item2" & i
ExcelStr(i).tem2 = "Item2" & i
ExcelStr(i).tem3 = "Item2" & i
ExcelStr(i).tem4 = "Item2" & i
ExcelStr(i).tem5 = "Item2" & i
Next i
3.
3行目に挿入する場合
今の現状では最後に追加するしかない。
ExcelStr(8).tem1 = "Item2" & 4
ExcelStr(8).tem2 = "Item2" & 4
ExcelStr(8).tem3 = "Item2" & 4
ExcelStr(8).tem4 = "Item2" & 4
ExcelStr(8).tem5 = "Item2" & 4
4.
sortedする
以上は、構造体配列のやりかたです。

5.したいことは
ExcelStr(8).tem1 = "Item2" & 4
            .tem2 = "Item2" & 4
            .tem3 = "Item2" & 4
            .tem4 = "Item2" & 4
            .tem5 = "Item2" & 4
一行の中に5個.tem1、.tem2、.tem3、.tem4., tem5があります。
単に
>'Set ar = CreateObject("System.Collections.ArrayList")
で使うと、5個.tem1、.tem2、.tem3、.tem4., tem5が入れる場所がないです。
いい方法がないでしょうか?
よろしくお願いします

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。