タイトル : Re: 構造体の受け渡し 投稿日 : 2012/08/28(Tue) 17:56 投稿者 : VBレスキュー(花ちゃん)
> Structure TestData > Dim A As String > Dim B As String > End Structure > > sub test Dim TestA() As TestData = Nothing > dim TestA() as TestData If TestB(TestA) = True Then > if TestB(TestA())=true then > msgbox"OK" > end if > end sub > > function TestB(ByRef TestA() as TestData) as Boolean > dim x as integer > dim i as integer > 配列は、0 から始まる事に注意して下さい。 > i=1 > for x=1 to 100 TestA(i) では、以下の3行とも > redim preserve TestB(i) > TestB(i).A="Test" > TestB(i).B="Test" > i=i+1 > next > TestB=true > end function |