構造体の中に構造体宣言するには？ (ID:91831)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 タイトルにそくして・・・ こんなのもありますよ。 http://www.bcap.co.jp/hanafusa/bbs/wforum.cgi?no=968&reno=967&oya=965&mode=msgview これも読んで下さい。 http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/vblr7/html/vastmstructure.asp これなんか読みやすいですよ。 http://www.atmarkit.co.jp/fdotnet/vb6tonet/vb6tonet03/vb6tonet03_02.html ついでにこれも・・・ http://www.atmarkit.co.jp/fdotnet/vb6tonet/vb6tonet03/vb6tonet03_03.html ここまで必要ないでしょうが参考までに。。。 デバッグ時にローカルタブをあけ、strTestOyaを展開して下さい。 Public Class Form1 Inherits System.Windows.Forms.Form Private Structure NameTestOya Public FirstName As String Public MiddleName() As NameTestKo Public LastName As String End Structure Private Structure NameTestKo Public KoName1 As String Public KoName2 As String End Structure Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Dim strTestOya() As ControlsClass.NameTestOya 'Dim strTestKo() As ControlsClass.NameTestKo Dim strTestOya() As NameTestOya Dim strTestKo() As NameTestKo ReDim Preserve strTestOya(0) strTestOya(0).FirstName = "A" strTestOya(0).LastName = "Z" Dim i As Integer For i = 0 To 2 ReDim Preserve strTestKo(i) strTestKo(i).KoName1 = CStr(i) & " : B-1" strTestKo(i).KoName2 = CStr(i) & " : B-2" ReDim Preserve strTestOya(0).MiddleName(i) strTestOya(0).MiddleName(i) = strTestKo(i) Next End Sub End Class