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

タイトル 構造体の受け渡し
投稿日: 2012/08/28(Tue) 17:11
投稿者mura
下記のように構造体をfunctionに投げて格納した値を戻したいのですが、
[インデックスの数がインデックス付き配列の次元より少ない値です]とエラーが出ます。

VBAでは問題なく通るのですが、どこの書き方が悪いのでしょうか。

Structure TestData
        Dim A As String
        Dim B As String
End Structure

sub test
  dim TestA() as TestData
  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
  
  i=1
  for x=1 to 100
     redim preserve TestB(i)
     TestB(i).A="Test"
     TestB(i).B="Test"
     i=i+1
  next
  TestB=true
end function

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

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