Array einer Struktur initialisierung

fugo · 9. März 2012, 11:33

hallo

ich habe bisher nur in C Programmiert und möchte auf visual basic umsteigen, jz habe ich folgendes Problem:
in C sehen verschachtelte Strukturen mehr oder weniger so aus:
struct feld{
void* zeiger
int wert}

struct symbole{
int a
int b}maschi

static struct feld reti[]={
maschi.a,1000,
maschi.b,5000}

wie schreibt man obiges in VB?
Bitte um Hilfe

MarcoIT · 9. März 2012, 11:36

hey,

vb tags verwenden:

[.vb][./vb]

ohne punkte

grüßle marco

fugo · 9. März 2012, 11:57

danke für die schnelle antwort,
hast du ein Beispiel?

MarcoIT · 9. März 2012, 12:04

Du bist cool ich mag dich

Du hattest doch gefragt:

wie schreibt man obiges in VB?

Und meine Antwort war einfach nur schlecht und nicht für einen Neuling gedacht, deswegen bitte ich um Verzeihung.
Hier ist eine bessere und verständlicher:

Möchtest du deinen Code in VB anzeigen lassen, so verwende doch bitte vor deinem Code das VB-Tag
[.vb] <-- Hiermit wird gesagt: ! Achtung ! Es folgt VB Code

Ist dein Code beendet und der Rest deines Textes soll nicht mehr in VB stehen, dann verwende doch bitte das VB-Tag
[./vb] <-- Hiermit wird gesagt: ! Achtung ! Es folgt kein VB-Code mehr.

Und wenn du die nun schreibst, dann musst du die Punkte die ich verwendet habe weglassen damit dir auch der Code angezeigt werden kann.
Ich hoffe ich Dummkopf habe mich nun besser ausgedrückt

Grüßle Marco

EDIT:
Und wenn ich dich richtig verstanden habe wegen den Structure, dann ist das glaube ich hier für dich was:
Structure

ErfinderDesRades · 9. März 2012, 12:28

in VB kann man innerhalb einer Structure-Definition keine innere Structure definieren.

du kannst allerdings innerhalb einer Structure definieren, dass eine annere Structure enthalten sein soll.

ZB ist in der RectAngle-Structure eine Point-Structure enthalten und eine Size-Structure.

Aber definiert sind alle 3 STructures auf gleicher Ebene, nämlich im System.Drawing-Namespace.

picoflop · 9. März 2012, 12:58

fugo schrieb:

in C sehen verschachtelte Strukturen

Vlt erklärst du lieber, was du machen willst ...

BTW: "Structures" im .Net Framework sind nicht der Knaller (boxing, unboxing, etc) und MS empfiehlt, sie nur dann einzusetzen, wenn nur sehr wenig Daten "gespeichert" werden müssen und wenn es auf absolut maximale Performance ankommt. In allen anderen Fällen nimmt man Klassen.
Gilt im übrigen für ALLE .Net Sprachen!

fugo · 10. März 2012, 09:57

Ich habe mehrere Strukturen/Klassen (z.b mit 10,15,20,25,.... Variablen)
Nun möchte ich EINE globale Struktur erstellen, die soll eine beliebige Struktur in eine txt schreiben.

In C hat das folgendermaßen ausgesehen.

C-Quellcode

struct retisymbol
{
char symname[56];
double xkos, ykos;
}reti;
struct maschine
{
char symname[56];
double xpos, ypos;
}masch;
struct FELD
{
void *vptr;
int dix;
char ftext[81];
};
static struct FELD symbmask[]=
{
reti.symnum, 0, "aaaaaa",
&reti.xkos,1,"bbbbbbbb",
&reti.ykos,2,"cccccccc"
};
static struct FELD maschmask[]=
{
masch.symnum, 0, "aaaaaa",
&masch.xpos,1,"bbbbbbbb",
&masch.ypos,2,"cccccccc"
};
void outfile(struct FELD *masknam, int feldanz)
{
for (i=0;i<feldanz;i++)
{
fprintf(FILE, masknam[i].ftext)
fprintf(FILE, masknam[i].dix)
fprintf(FILE, masknam[i].vptr)
}
}
void main(int argc,char **argv)
{
outfile(symbmask,3);
outfile(maschmask,3);
}

Soviel ich weiß gibt es in VB keine Pointer, stimmt das?
Das ist eigentlich mein Hauptproblem.
und kann man den obigen Code auch in VB realisieren?
DANKE

picoflop · 10. März 2012, 12:17

fugo schrieb:

Nun möchte ich EINE globale Struktur erstellen, die soll eine beliebige Struktur in eine txt schreiben.

Sticwort "'Serializable"? Stichwort "BinaryFormatter"?

fugo · 10. März 2012, 12:41

Sorry hab mich verschrieben, ich meinte EINE globale Funktion nicht Struktur.
Ich kenn mich mit der Serialization nicht aus, wird da nur der Wert in das File geschrieben oder kann man auch folgendes in das File schreiben?

Beispiel
Position X: 50
Position Y: 60
.....

und kann man das File auch mit dem Editor öffnen und nachsehen was drin steht?

ich mehrere verschiedene txt Dateien.
Beispiel:

erste Datei: symbol.txt

Symbol Name : TEST
Position X[mm] :45
Position Y[mm] :50
...

zweite Datei: Wert.txt
Länge[mm] :600
Beschreibung : nur ein Test
...

ich möchte mit einer Funktion sämtliche Werte aus den Datei lesen und die Werte der jeweiligen Struktur zuweisen.
Gleiches beim schreiben.

picoflop · 10. März 2012, 13:13

fugo schrieb:

und kann man das File auch mit dem Editor öffnen und nachsehen was drin steht?

Wenn du nicht den BinaryFormatter nimmst, sondern den SOAP-Formatter, ja
msdn.microsoft.com/de-de/libra…s.soap.soapformatter.aspx

fugo · 12. März 2012, 10:08

der soap formatter ist auch nicht das richtige für mich.

ich möchte eine beliebige Dateiendung, z.b .txt oder .mph oder .sqm, einstellen können.

und in der Datei sollen meine Datensatz folgendermaßen angezeigt werden.

[txt]
Info : Maske für Typ1
ID : 10000

Symbol 1
Xpos : 1000
Ypos : 500
Speed : 10
Accel : 12

Symbol 2
Xpos : 100
Ypos : 600
Speed : 100
Accel : 120

Symbol 3
Xpos : 600
Ypos : 800
Speed : 20
Accel : 22
..

[/txt]

Das Hauptproblem ist allerdings das ich nicht immer die selbe Datenstruktur habe, manchmal kann ein Symbol 10 Parameter ein anderes mal 30 Parameter besitzen.

Mit nur einer Datenstruktur würde mit dem StreamReader oder Writer es ohne Probleme funktionieren.

DarkAngel · 12. März 2012, 16:16

Ich habe mal eine Klasse für dein Problem geschrieben.
Ich hoffe das sie dir hilft

Klasse

VB.NET-Quellcode

Public Class PropertyManager
Private name_ As New List(Of String)
Private value_ As New List(Of String)
Private collectList_ As New List(Of PropertyManager)
Private listIndex_ As Integer = -1
#Region "Propertys"
Public Property CollectList As List(Of PropertyManager)
Get
Return collectList_
End Get
Set(ByVal value As List(Of PropertyManager))
collectList_ = value
End Set
End Property
Public Property Name As List(Of String)
Get
Return name_
End Get
Set(ByVal value As List(Of String))
name_ = value
End Set
End Property
Public Property Value As List(Of String)
Get
Return value_
End Get
Set(ByVal value As List(Of String))
value_ = value
End Set
End Property
Public Property ListIndex As Integer
Get
Return listIndex_
End Get
Set(ByVal value As Integer)
If value >= 0 AndAlso value <= CollectList.Count - 1 Then
listIndex_ = value
Else
MessageBox.Show("ListIndex außerhalb des gültigen Bereiches!", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Set
End Property
#End Region
''' <summary>
''' String in Name und Wert aufteilen und zu einer bestehenden Liste hinzufügen
''' </summary>
''' <param name="stringToSplit">Der zu teilende String</param>
''' <param name="separator">Trennzeichen</param>
''' <remarks></remarks>
Public Sub AddSplit(ByVal stringToSplit As String, ByVal separator As Char)
If Not stringToSplit Is String.Empty Then
AddPropertyToList(stringToSplit.Split(separator)(0).Trim, stringToSplit.Split(separator)(1).Trim)
End If
End Sub
''' <summary>
''' Gibt den Namen und den Wert einer Eigenschaft zusammen mit einem Trennzeichen zurück
''' </summary>
''' <param name="listIndex">Index der zu wählenden Liste</param>
''' <param name="propertyIndex">Index der zu wählenden Eigenschaft</param>
''' <param name="spaceFiller">Trennzeichen zwischen Name und Wert</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetNameAndValue(ByVal listIndex As Integer, ByVal propertyIndex As Integer, ByVal spaceFiller As String) As String
If Not CollectList Is Nothing AndAlso CollectList.Count > 0 Then
If Not CollectList(listIndex) Is Nothing Then
Return String.Format("{0}{1}{2}", CollectList(listIndex).Name(propertyIndex), spaceFiller, CollectList(listIndex).Value(propertyIndex))
End If
Else
End If
Return ""
End Function
''' <summary>
''' Eine neue Leere Liste hinzufügen
''' </summary>
''' <remarks></remarks>
Public Sub AddNewList()
CollectList.Add(Nothing)
listIndex_ += 1
End Sub
''' <summary>
''' Eine neue Liste mit Eigenschaft hinzufügen
''' </summary>
''' <param name="propName"></param>
''' <param name="propValue"></param>
''' <remarks></remarks>
Public Sub AddNewList(ByVal propName As String, ByVal propValue As String)
CollectList.Add(AddFirstProperty(propName, propValue))
listIndex_ += 1
End Sub
''' <summary>
''' Eigenschaft zu einer Liste hinzufügen
''' </summary>
''' <param name="propName"></param>
''' <param name="propValue"></param>
''' <remarks></remarks>
Public Sub AddPropertyToList(ByVal propName As String, ByVal propValue As String)
If CollectList.Count > 0 Then
If CollectList(listIndex_) Is Nothing Then
CollectList(listIndex_) = AddFirstProperty(propName, propValue)
Else
CollectList(listIndex_).Name.Add(propName)
CollectList(listIndex_).Value.Add(propValue)
End If
Else
AddFirstProperty(propName, propValue)
End If
End Sub
''' <summary>
''' Fügt die erste Eigenschaft zu einer neuen Liste hinzu
''' </summary>
''' <param name="propName">Name</param>
''' <param name="propValue">Wert</param>
''' <returns></returns>
''' <remarks></remarks>
Private Function AddFirstProperty(ByVal propName As String, ByVal propValue As String) As PropertyManager
Dim tempList As New PropertyManager
tempList.Name.Add(propName)
tempList.Value.Add(propValue)
Return tempList
End Function
End Class

Eigenschaften und Methoden

Beispiel: Speichern

Beispiel: Lesen

MfG

DarkAngel

fugo · 13. März 2012, 06:30

Danke, das ist echt super!!!!

Ein kleines Problem hab ich noch,
und zwar ich möchte am Programmstart meiner Liste die Variablen übergeben

VB.NET-Quellcode

propertyList.AddNewList("Info", Wert(0)) 'Eine neue Liste erstellen und mit Eigenschaften füllen
propertyList.AddPropertyToList("ID", Wert(1)) 'Weitere Eigenschaften hinzufügen
propertyList.AddPropertyToList("Symbolname", Wert(2))
propertyList.AddPropertyToList("Xpos", Wert(3))

und wenn ich zu einem späteren Zeitpunkt speichern und lesen ausführe, sollen die Variablen(Wert()), die zuvor im Programm geändert werden können, aktualisiert werden.
Gibt es da was? Eine Art Refresh?

DarkAngel · 13. März 2012, 15:42

Ja das ist kein Problem

Diese Prozedur fügst du in die Klasse ein:

Prozedur

Beispiel: Nur Werte aktualisieren

Beispiel: Namen und Werte aktualisieren

MfG

DarkAngel

fugo · 13. März 2012, 18:21

Cool,

ich weiß ich bin ziemlich nervig, aber ich kann auch z.B eine Struktur/Klasse mit verschiedene Datentypen der Liste übergeben und refreshen?

Danke

DarkAngel · 13. März 2012, 18:38

Ist nicht weiter das Problem

Einfach alle List(Of String) die mit der Variable "value" zu tun haben, durch List(Of Object) ersetzen.
Oder "value As String" durch "value As Object".
Habe ich mal schnell gemacht

Angepasste Klasse

VB.NET-Quellcode

Public Class PropertyManager
Private name_ As New List(Of String)
Private value_ As New List(Of Object)
Private collectList_ As New List(Of PropertyManager)
Private listIndex_ As Integer = -1
#Region "Propertys"
Public Property CollectList As List(Of PropertyManager)
Get
Return collectList_
End Get
Set(ByVal value As List(Of PropertyManager))
collectList_ = value
End Set
End Property
Public Property Name As List(Of String)
Get
Return name_
End Get
Set(ByVal value As List(Of String))
name_ = value
End Set
End Property
Public Property Value As List(Of Object)
Get
Return value_
End Get
Set(ByVal value As List(Of Object))
value_ = value
End Set
End Property
Public Property ListIndex As Integer
Get
Return listIndex_
End Get
Set(ByVal value As Integer)
If value >= 0 AndAlso value <= CollectList.Count - 1 Then
listIndex_ = value
Else
MessageBox.Show("ListIndex außerhalb des gültigen Bereiches!", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Set
End Property
#End Region
''' <summary>
''' String in Name und Wert aufteilen und zu einer bestehenden Liste hinzufügen
''' </summary>
''' <param name="stringToSplit">Der zu teilende String</param>
''' <param name="separator">Trennzeichen</param>
''' <remarks></remarks>
Public Sub AddSplit(ByVal stringToSplit As String, ByVal separator As Char)
If Not stringToSplit Is String.Empty Then
AddPropertyToList(stringToSplit.Split(separator)(0).Trim, stringToSplit.Split(separator)(1).Trim)
End If
End Sub
''' <summary>
''' Gibt den Namen und den Wert einer Eigenschaft zusammen mit einem Trennzeichen zurück
''' </summary>
''' <param name="listIndex">Index der zu wählenden Liste</param>
''' <param name="propertyIndex">Index der zu wählenden Eigenschaft</param>
''' <param name="spaceFiller">Trennzeichen zwischen Name und Wert</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetNameAndValue(ByVal listIndex As Integer, ByVal propertyIndex As Integer, ByVal spaceFiller As String) As String
If Not CollectList Is Nothing AndAlso CollectList.Count > 0 Then
If Not CollectList(listIndex) Is Nothing Then
Return String.Format("{0}{1}{2}", CollectList(listIndex).Name(propertyIndex), spaceFiller, CollectList(listIndex).Value(propertyIndex))
End If
Else
End If
Return ""
End Function
''' <summary>
''' Eine neue Leere Liste hinzufügen
''' </summary>
''' <remarks></remarks>
Public Sub AddNewList()
CollectList.Add(Nothing)
listIndex_ += 1
End Sub
''' <summary>
''' Eine neue Liste mit Eigenschaft hinzufügen
''' </summary>
''' <param name="propName"></param>
''' <param name="propValue"></param>
''' <remarks></remarks>
Public Sub AddNewList(ByVal propName As String, ByVal propValue As Object)
CollectList.Add(AddFirstProperty(propName, propValue))
listIndex_ += 1
End Sub
''' <summary>
''' Eigenschaft zu einer Liste hinzufügen
''' </summary>
''' <param name="propName"></param>
''' <param name="propValue"></param>
''' <remarks></remarks>
Public Sub AddPropertyToList(ByVal propName As String, ByVal propValue As Object)
If CollectList.Count > 0 Then
If CollectList(listIndex_) Is Nothing Then
CollectList(listIndex_) = AddFirstProperty(propName, propValue)
Else
CollectList(listIndex_).Name.Add(propName)
CollectList(listIndex_).Value.Add(propValue)
End If
Else
AddFirstProperty(propName, propValue)
End If
End Sub
''' <summary>
''' Fügt die erste Eigenschaft zu einer neuen Liste hinzu
''' </summary>
''' <param name="propName">Name</param>
''' <param name="propValue">Wert</param>
''' <returns></returns>
''' <remarks></remarks>
Private Function AddFirstProperty(ByVal propName As String, ByVal propValue As Object) As PropertyManager
Dim tempList As New PropertyManager
tempList.Name.Add(propName)
tempList.Value.Add(propValue)
Return tempList
End Function
''' <summary>
''' Die Namen und Werte einer List aktualisieren
''' </summary>
''' <param name="propValueList">Liste mit neuen Werten</param>
''' <param name="propNameList">Liste mit neuen Namen</param>
''' <param name="indexOfList">Liste wählen, die aktualisiert werden soll</param>
''' <remarks></remarks>
Public Sub RefreshList(ByVal propValueList As List(Of Object), Optional ByVal propNameList As List(Of String) = Nothing, Optional ByVal indexOfList As Integer = Nothing)
If indexOfList = Nothing Then indexOfList = listIndex_
For n As Integer = 0 To propValueList.Count - 1
CollectList(indexOfList).Value(n) = propValueList(n)
If Not propNameList Is Nothing Then
CollectList(indexOfList).Name(n) = propNameList(n)
End If
Next
End Sub
End Class

Und die Liste für die Werte auch ändern:

VB.NET-Quellcode

Dim refreshV As New List(Of Object)

MfG

DarkAngel

fugo · 13. März 2012, 19:00

Verdammt, mir ist das noch nicht ganz klar.

wenn ich eine Klasse:

VB.NET-Quellcode

Public Class test
Public Name as String
Public Wert as Single
Public XPos as Single
Public Length as integer
Public YPos as Single
Public XKor as Single
Public Ykor as Single
Public Intervall as Single
Public Breite as integer
End Class
Public Test12 as new Test

Dann kann ich Test12 nicht für Refresh verwenden oder?

VB.NET-Quellcode

propertyList.RefreshList(Test12) 'Die aktuelle Liste mit neuen Werten aktualisieren

DarkAngel · 13. März 2012, 19:04

So, ich habe die Klasse so angepasst, das es nun klappen sollte

Aktualisierte Klasse

VB.NET-Quellcode

Public Class PropertyManager
Private name_ As New List(Of String)
Private value_ As New List(Of Object)
Private test As New List(Of Object)
Private collectList_ As New List(Of PropertyManager)
Private listIndex_ As Integer = -1
#Region "Propertys"
Public Property CollectList As List(Of PropertyManager)
Get
Return collectList_
End Get
Set(ByVal value As List(Of PropertyManager))
collectList_ = value
End Set
End Property
Public Property Name As List(Of String)
Get
Return name_
End Get
Set(ByVal value As List(Of String))
name_ = value
End Set
End Property
Public Property Value As List(Of Object)
Get
Return value_
End Get
Set(ByVal value As List(Of Object))
value_ = value
End Set
End Property
Public Property ListIndex As Integer
Get
Return listIndex_
End Get
Set(ByVal value As Integer)
If value >= 0 AndAlso value <= CollectList.Count - 1 Then
listIndex_ = value
Else
MessageBox.Show("ListIndex außerhalb des gültigen Bereiches!", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Set
End Property
#End Region
''' <summary>
''' Eine Liste in eine Klasse übertragen
''' </summary>
''' <param name="class">Die Klasse, welche als Ziel benutzt werden soll</param>
''' <remarks></remarks>
Public Sub ListToClass(ByVal [class] As Object)
Dim counter As Integer = 0
For Each fi As System.Reflection.FieldInfo In [class].GetType().GetFields
Select Case fi.FieldType.ToString
Case "System.Int32"
fi.SetValue([class], CType(CollectList(listIndex_).Value(counter), Integer))
Case "System.String"
fi.SetValue([class], CType(CollectList(listIndex_).Value(counter), String))
Case "System.Single"
fi.SetValue([class], CType(CollectList(listIndex_).Value(counter), Single))
End Select
counter += 1
Next
End Sub
''' <summary>
''' Eine Klasse in eine neue Liste übertragen
''' </summary>
''' <param name="class">Die Klasse, welche als Quelle benutzt werden soll</param>
''' <remarks></remarks>
Public Sub ClassToNewList(ByVal [class] As Object)
AddNewList()
For Each fi As System.Reflection.FieldInfo In [class].GetType().GetFields
AddPropertyToList(fi.Name, fi.GetValue([class]))
Next
End Sub
''' <summary>
''' String in Name und Wert aufteilen und zu einer bestehenden Liste hinzufügen
''' </summary>
''' <param name="stringToSplit">Der zu teilende String</param>
''' <param name="separator">Trennzeichen</param>
''' <remarks></remarks>
Public Sub AddSplit(ByVal stringToSplit As String, ByVal separator As Char)
If Not stringToSplit Is String.Empty Then
AddPropertyToList(stringToSplit.Split(separator)(0).Trim, stringToSplit.Split(separator)(1).Trim)
End If
End Sub
''' <summary>
''' Gibt den Namen und den Wert einer Eigenschaft zusammen mit einem Trennzeichen zurück
''' </summary>
''' <param name="listIndex">Index der zu wählenden Liste</param>
''' <param name="propertyIndex">Index der zu wählenden Eigenschaft</param>
''' <param name="spaceFiller">Trennzeichen zwischen Name und Wert</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetNameAndValue(ByVal listIndex As Integer, ByVal propertyIndex As Integer, ByVal spaceFiller As String) As String
If Not CollectList Is Nothing AndAlso CollectList.Count > 0 Then
If Not CollectList(listIndex) Is Nothing Then
Return String.Format("{0}{1}{2}", CollectList(listIndex).Name(propertyIndex), spaceFiller, CollectList(listIndex).Value(propertyIndex))
End If
Else
End If
Return ""
End Function
''' <summary>
''' Eine neue Leere Liste hinzufügen
''' </summary>
''' <remarks></remarks>
Public Sub AddNewList()
CollectList.Add(Nothing)
listIndex_ += 1
End Sub
''' <summary>
''' Eine neue Liste mit Eigenschaft hinzufügen
''' </summary>
''' <param name="propName"></param>
''' <param name="propValue"></param>
''' <remarks></remarks>
Public Sub AddNewList(ByVal propName As String, ByVal propValue As Object)
CollectList.Add(AddFirstProperty(propName, propValue))
listIndex_ += 1
End Sub
''' <summary>
''' Eigenschaft zu einer Liste hinzufügen
''' </summary>
''' <param name="propName"></param>
''' <param name="propValue"></param>
''' <remarks></remarks>
Public Sub AddPropertyToList(ByVal propName As String, ByVal propValue As Object)
If CollectList.Count > 0 Then
If CollectList(listIndex_) Is Nothing Then
CollectList(listIndex_) = AddFirstProperty(propName, propValue)
Else
CollectList(listIndex_).Name.Add(propName)
CollectList(listIndex_).Value.Add(propValue)
End If
Else
AddNewList(propName, propValue)
End If
End Sub
''' <summary>
''' Fügt die erste Eigenschaft zu einer neuen Liste hinzu
''' </summary>
''' <param name="propName">Name</param>
''' <param name="propValue">Wert</param>
''' <returns></returns>
''' <remarks></remarks>
Private Function AddFirstProperty(ByVal propName As String, ByVal propValue As Object) As PropertyManager
Dim tempList As New PropertyManager
tempList.Name.Add(propName)
tempList.Value.Add(propValue)
Return tempList
End Function
''' <summary>
''' Die Namen und Werte einer Liste aktualisieren
''' </summary>
''' <param name="propValueList">Liste mit neuen Werten</param>
''' <param name="propNameList">Liste mit neuen Namen</param>
''' <param name="indexOfList">Liste wählen, die aktualisiert werden soll</param>
''' <remarks></remarks>
Public Sub RefreshList(ByVal propValueList As List(Of Object), Optional ByVal propNameList As List(Of String) = Nothing, Optional ByVal indexOfList As Integer = Nothing)
If indexOfList = Nothing Then indexOfList = listIndex_
For n As Integer = 0 To propValueList.Count - 1
CollectList(indexOfList).Value(n) = propValueList(n)
If Not propNameList Is Nothing Then
CollectList(indexOfList).Name(n) = propNameList(n)
End If
Next
End Sub
''' <summary>
''' Die Namen und Werte einer Liste aktualisieren
''' </summary>
''' <param name="class">Die Klasse, welche als Quelle benutzt werden soll</param>
''' <remarks></remarks>
Public Sub RefreshList(ByVal [class] As Object)
Dim counter As Integer = 0
For Each fi As System.Reflection.FieldInfo In [class].GetType().GetFields
CollectList(listIndex_).Value(counter) = fi.GetValue([class])
CollectList(listIndex_).Name(counter) = fi.Name
counter += 1
Next
End Sub
End Class

Beispiel: Liste nach Klasse kopieren | Liste aktualisieren | Klasse in neue Liste kopieren

MfG

DarkAngel

SystemUnknow · 13. März 2012, 19:47

Strukturen deklariert man so nicht, schau in OpenBook/Grundlagen.

Array einer Struktur initialisierung

Array einer Struktur initialisierung

fugo schrieb:

C-Quellcode

fugo schrieb:

fugo schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben