|
|
Jabaco Source |
1 2 3 4 5 6 7 8 9 10 11 12 |
Public Sub Command2_Click() Dim MyEntry[1] As New Class1 Dim MyEntry[2] As New Class1 Dim MyEntry[3] As New Class1 MyEntry[2].Name = "Hello" Dim MEnt As New Class1 MEnt.Name = "Hello" MsgBox (MEnt.Name) MsgBox(MyEntry[2].BooleanValue) End Sub |
|
|
Jabaco Source |
1 2 3 4 5 6 7 8 9 10 11 12 |
Public Sub Command1_Click() For i = 1 To 3 Dim MyEntry[i] As New Class1 Next i MyEntry[2].Name = "Hello" Dim MEnt As New Class1 MEnt.Name = "Hello" MsgBox (MEnt.Name) MsgBox(MyEntry[2].BooleanValue) End Sub |
|
|
Jabaco Source |
1 2 3 4 5 6 7 8 |
Public Sub Command3_Click() MyEntry[2].Name = "Hello" Dim MEnt As New Class1 MEnt.Name = "Hello" MsgBox (MEnt.Name) MsgBox(MyEntry[2].BooleanValue) End Sub |
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
|
|
Jabaco Source |
1 2 3 4 5 6 7 8 |
Dim MyEntry(1000) as new Class1 Dim i as integer ' Entry numkber Public Sub Command1_Click() MyEntry(i) = new MyEntry() MyEntry(i).name = "some name" .. etc. End Sub |
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
|
|
Jabaco Source |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Option Explicit Public Sub Command1_Click() Dim arr(10) As PictureBox Dim i As Integer Dim s As String For i = 1 To 10 arr(i) = New PictureBox Next i For i = 1 To 10 arr(i).ToolTip = i Next i s = "" For i = 10 To 1 Step -1 s = s & " " & arr(i).ToolTip Next i MsgBox s End Sub |
|
|
Jabaco Source |
1 2 |
VBA.VBArrayDouble b = new VBArray(); b.setBound(0, 7, false); |
|
|
Jabaco Source |
1 2 3 4 5 |
Dim a[1] As Integer Dim a[2] As Integer Dim a[3] As Integer a[1] = 0 |
|
|
Jabaco Source |
1 2 3 4 5 |
int a[1] = 0; int a[2] = 0; int a[3] = 0; a[1] = 0; |
|
|
Jabaco Source |
1 2 3 |
int a[] = new int[1]; a[0] = 0; |