モノクロビットマップの作り方 (ID:91373)

名前

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

本文

やっぱりだめです。
構造体を持つ構造体、整数配列を持つ構造体なら大丈夫みたいなんですが、構造体の配列を持つ構造体はエラーが起きます。
ちなみに、
http://msdn.microsoft.com/library/en-us/cpguide/html/cpconstructssample.asp
は無理なので、
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/netstart/html/sdkstart.asp
を見ました。
と言っても、内容が理解しきれないのですが。

<StructLayout(LayoutKind.Sequential)> _
Public Structure myStruct
	Public val As Integer
End Structure

<StructLayout(LayoutKind.Sequential)> _
Public Structure myStruct2
	Public data As myStruct
End Structure

<StructLayout(LayoutKind.Sequential)> _
Public Structure myStruct3
	<MarshalAs(UnmanagedType.ByValArray, SizeConst:=2)> _
	Public data As Integer()
End Structure

<StructLayout(LayoutKind.Sequential)> _
Public Structure myStruct4
	<MarshalAs(UnmanagedType.ByValArray, SizeConst:=2)> _
	Public data As myStruct()
End Structure

Sub test()
	Dim st1 As myStruct
	MessageBox.Show(Marshal.SizeOf(st1))

Dim st2 As myStruct2
	MessageBox.Show(Marshal.SizeOf(st2))

Dim st3 As myStruct3
	Dim dt3(1) As Integer
	st3.data = dt3
	MessageBox.Show(Marshal.SizeOf(st3))

Dim st4 As myStruct4
	Dim dt4(1) As myStruct
	st4.data = dt4
	MessageBox.Show(Marshal.SizeOf(st4.data(0)))
	MessageBox.Show(Marshal.SizeOf(st4))		'<-ここだけダメ
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る