| VB6: Can’t Assign Array |
| Von |
wickedmc |
| Am |
15. September 2008 um 20:31:59 |
| Frage |
Hallöchen,
Ich hab da ein Problem, bin fast am verzweifeln, hab in Form1 ein Flexgrid.. Nun will ich die 3 Spalte (alle zeilen ab der makierten) in ein array schreiben, aber irgendwie kommt immer die Fehlermeldung.
Hier mein Code:Private Sub form_load()
Dim playlist() As Variant
Dim i As Long
Dim listcount As String
Dim zei As String
zei = Form1.zeile
For i = Form1.zeile To Form1.MSFlexGrid1.Rows - 1
playlist() =Form1.MSFlexGrid1.TextMatrix(zei, 2))
zei = zei + 1
Next Wäre super wenn ihr mir helfen könntet. |
|
|
Antwort: |
| Von |
wickedmc |
| Am |
16. September 2008 um 18:51:11 |
| Antwort |
So ich muss mich korriegieren... Hab es jetzt hinbekommen.
Nochmals vielen dank für deinen Tip, hat super geklappt.Private Sub form_load()
Dim playlist() As Variant
Dim i As Long
Dim t As Long
Dim listcount As String
Dim zei As String
zei = Form1.zeile
ReDim playlist(Form1.MSFlexGrid1.Rows - Form1.zeile)
For i = Form1.zeile To Form1.MSFlexGrid1.Rows - 1
playlist(t) = Form1.MSFlexGrid1.TextMatrix(zei, 2)
zei = zei + 1
Next
MsgBox UBound(playlist)
End Sub |
|
| [ VB-/VBA-Forum | Archiv 0413 | Archiv-Übersicht ] |
|
|
Zum Seitenanfang