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

タイトル ： Re^5: 多次元配列構造体の値代入
投稿日： 2008/04/10(Thu) 14:08
投稿者： Y開発者
新規プロジェクトで、下記のモジュールのみ追加し実行しても、
イミディエイト　ウィンドウには、
0
100
と表示されます。ちなみに他の開発者のPCで、実行しても同じ結果でした。

Module MainModule
    Public Structure wGData
        Dim wKM_1 As Double
        Dim wKM_2 As Double
        Dim wKM_3 As Double
        Dim wKM_4 As Short
        Dim wKM_5 As Integer
        Dim wKM_6 As String
        Dim wKM_7 As String
        Dim wKM_8 As Integer
        Dim wKM_9 As Integer
        Dim wKM_10 As Integer
        Dim wKM_11 As Short
        Dim wKM_12 As Single
        Dim wKM_13 As Single
        Dim wKM_14 As Single
        Dim wKM_15 As Byte
        Dim wKM_16 As Integer
        Dim wKM_17 As Integer
        Dim wKM_18 As Byte
        Dim wKM_19 As Byte
        Dim wKM_20 As Byte
        Dim wKM_21 As Byte
        Dim wKM_22 As Double
        Dim wKM_23 As Double
        Dim wKM_24 As Double
        Dim wKM_25 As Double
        Dim wKM_26 As Double
        Dim wKM_27 As Double
        Dim wKM_28 As Double
        Dim wKM_29 As Double
        Dim wKM_30 As Double
        Dim wKM_31 As Double
        Dim wKM_32 As Double
        Dim wKM_33 As Double
        Dim wKM_34 As Double
        Dim wKM_35 As Double
        Dim wKM_36 As Double
        Dim wKM_37 As Double
        Dim wKM_38 As Double
        Dim wKM_39 As Double
        Dim wKM_40 As Double
        Dim wKM_41 As Double
        Dim wKM_42 As Double
        Dim wKM_43 As Double
        Dim wKM_44 As Double
        Dim wKM_45 As Double
        Dim wKM_46 As Double
        Dim wKM_47 As Double
        Dim wKM_48 As Double
        Dim wKM_49 As Double
        Dim wKM_50 As Double
        Dim wKM_51 As Double
        Dim wKM_52 As Double
        Dim wKM_53 As Double
        Dim wKM_54 As Double
        Dim wKM_55 As Double
        Dim wKM_56 As Double
        Dim wKM_57 As Double
        Dim wKM_58 As Double
        Dim wKM_59 As Double
        Dim wKM_60 As Double
        Dim wKM_61 As Double
        Dim wKM_62 As Double
        Dim wKM_63 As Double
        Dim wKM_64 As Double
        Dim wKM_65 As Double
        Dim wKM_66 As Double
        Dim wKM_67 As Double
        Dim wKM_68 As Double
    End Structure

    Sub Main()
        Call Test_Sub()
    End Sub

    Public Sub Test_Sub()
        Dim wA(,) As wGData

        ReDim wA(0, 1)

        System.Diagnostics.Debug.WriteLine(wA(0, 1).wKM_2)
        wA(0, 0).wKM_45 = 100
        System.Diagnostics.Debug.WriteLine(wA(0, 1).wKM_2)
       '代入してないのに、値が変わる

    End Sub

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

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