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

タイトル 入れ子の構造体へのバイト配列のセットについて
投稿日: 2012/11/03(Sat) 07:54
投稿者九州男児
VB.Netの経験が浅く困っています。ご教授願います。

下記のような構造体があります。

Public Structure pcKIROKU <========構造体の指定(A)
    Public Shared KYOBI1 As Byte() = New Byte(27) {}
    Public Shared KZokusei As Byte
    Public Shared IkisakiCd As Byte
    Public Shared KTutatuNo() As Byte = New Byte(1) {}
    Public Shared KTatuHkb() As Byte = New Byte(2) {}
    Public Shared KSekobi() As Byte = New Byte(2) {}
    Public Shared KSigyoKumi As Byte() = New Byte(10) {}
    Public Shared KSigyoNo() As Byte = New Byte(1) {}
    Public Shared KKushoCd As Byte
    Public Sub Initialize()
    End Sub
    End Sub
End Structure

Sub Main()
    Dim mcKIROKU(15) As pcKIROKU <===========上記(A)を使用して構造体定義(15)
    mcKIROKU.Initialize()
    Erase mcKIROKU
    ReDim mcKIROKU(15)

    ******************** 構造体と同じ長さのバイナリの読み込み
    Dim fs As FileStream
    Dim br As BinaryReader
    Dim buf(mcKIROKU_Byte) As Byte
    Dim ec As System.Text.Encoding = System.Text.Encoding.ASCII
    fs = New FileStream("C:\aaa.bin", FileMode.Open, FileAccess.Read)
    br = New BinaryReader(fs)
    br.BaseStream.Seek(9, SeekOrigin.Begin)
    ReDim buf(mcKIROKU_Byte)
    br.Read(buf, 0, mcKIROKU_Byte)
    fs.Close()

    上記のbuf(バイナリデータ)を構造体(mcKIROKU)の先頭から順に代入したいのですが
    色々調べて試しましたが、うまくいきません。
    (次のバイナリを読み込んだら次の構造体mcKIROKU(1)に代入)
    また、構造体を参照(mcKIROKU(0).KSekobi)しようとすると。
    <インスタンスを経由する共有メンバへのアクセスです。正規の式は評価されません。>
    の警告が出てしまいます。
    
    だれかご存知の方がいたらご教授ください。

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

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