Dim cube As coor cube.x = 1 cube.y = 2 cube.z = 3 Dim monType As Type = cube.GetType() For Each fi As FieldInfo In monType.GetFields(BindingFlags.Public Or BindingFlags.Instance) Debug.WriteLine(fi.Name & "=" & fi.GetValue(cube).ToString) Next
Private Type coor x As Integer y As Integer z As Integer End Type Dim cube As coor Sub test() cube.x = 1 cube.y = 2 cube.z = 3 Debug.Print "cube.x = " & cube.x Debug.Print "cube.y = " & cube.y Debug.Print "cube.z = " & cube.z End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Structure coor Public x As Integer Public y As Integer Public z As Integer End Structure Public Class Form1 Inherits System.Windows.Forms.Form #Region " Code généré par le Concepteur Windows Form " [...] #End Region Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim cube As coor cube.x = 1 cube.y = 2 cube.z = 3 System.Diagnostics.Debug.WriteLine("cube.x = " & cube.x) System.Diagnostics.Debug.WriteLine("cube.y = " & cube.y) System.Diagnostics.Debug.WriteLine("cube.z = " & cube.z) End Sub End Class