Structurere i visual basic
Jeg er ved at lære hvordan man om daner bytes til en structure og om vent, men hvis man så bruger en anden type end en structure for eksempel System.Windows.Forms.Form, så består den af 4 byte, men hvordan hænger det sammen?.Kode:
Imports System.Runtime.InteropServices
Imports System.IO
Public Class Form1
Structure a
Public a As System.Windows.Forms.Form
End Structure
Public Function GetStructure(Of T As Structure)(ByVal inputStream As Stream) As T
Dim size As Integer = Marshal.SizeOf(GetType(T))
Dim bytes(size - 1) As Byte
inputStream.Read(bytes, 0, bytes.Length)
Dim ptr As IntPtr = Marshal.AllocHGlobal(size)
Marshal.Copy(bytes, 0, ptr, bytes.Length)
Return Marshal.PtrToStructure(ptr, GetType(T))
End Function
End Class
Imports System.IO
Public Class Form1
Structure a
Public a As System.Windows.Forms.Form
End Structure
Public Function GetStructure(Of T As Structure)(ByVal inputStream As Stream) As T
Dim size As Integer = Marshal.SizeOf(GetType(T))
Dim bytes(size - 1) As Byte
inputStream.Read(bytes, 0, bytes.Length)
Dim ptr As IntPtr = Marshal.AllocHGlobal(size)
Marshal.Copy(bytes, 0, ptr, bytes.Length)
Return Marshal.PtrToStructure(ptr, GetType(T))
End Function
End Class
