---

Hallo,

ich würde gerne ein Array voll mit Arrays packen:

    Dim Punkt(1 To 3)
   
    Punkt(1) = "min"
    Punkt(2) = "max"
    Punkt(3) = "wert"
   
    Dim Points(1 To 3)
    Set Points(1) = Punkt

Geht aber nicht. Kennt jemand eine Lösung dafür?

Viele Grüße!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,
probier's mit UDT(user defined types, zB:

In einem Modul:

Public Type MyUDT_TYPE
  pt(10) As Double
  strText(9) As String
  iNums(100) As Integer
End Type

In einer Routine:

Private Sub Form_Load()
  Dim n As Integer
  Dim m As Integer

  Dim arrUDT(5) As MyUDT_TYPE
 
  With arrUDT(0)
      For n = 0 To 4
        .iNums(n) = n
        .strText(n) = Format(n, "P000")
        .pt(n) = 1.2345 * n
      Next
  End With
End Sub

UDTs lassen sich auch schachteln, zB:

Public Type POINT_TYPE
  x As Double
  y As Double
  z As Double
End Type

Public Type MyUDT_TYPE
  pt(10) As POINT_TYPE
  strText(9) As String
  iNums(100) As Integer
End Type

Tschau,
Joe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super, vielen Dank!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mehrdimensionale Arrays wärem vom Syntax weniger und leichter für dieses beispiel hier.

gugst du hier: http://msdn.microsoft.com/de-de/library/d2de1t93(v=vs.90).aspx

:-)

------------------
Gruß,

Maximilian
------------
Top 10 der CAD Programme:
10=ACAD; 09=SolidWorks; 08=Inventor; 07=SolidEdge; 06=Creo; 05; 04=UG; 03; 02=Catia; 01=???

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP