[vb6] index außerhalb des gültigen bereiches

[Z o D]

bekomme die fehlermeldung im titel..

hier der codeabschnitt:

Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim sData As String
Dim xData() As String


WS(sIndex).GetData sData

xData() = Split(sData, "|")


Select Case xData(0)

Case "Hola"

With LV.ListItems.Add(, , xData(1))

.SubItems(1) = xData(2)
.SubItems(2) = xData(3)
.SubItems(3) = xData(4)

End With

End Select

End Sub


wenn ich auf debug klicke, wird Select Case xData(0) gelb markiert


kann mir jemand das problem lösen


mfg Z o D

[G36KV]

lös dein problem selber:

Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim sData As String
Dim xData() As String


WS(sIndex).GetData sData

msgbox sData

xData = Split(sData, "|")

msgbox xData(0)


Select Case xData(0)

Case "Hola"

With LV.ListItems.Add(, , xData(1))

.SubItems(1) = xData(2)
.SubItems(2) = xData(3)
.SubItems(3) = xData(4)

End With

End Select

End Sub

Gehirn anschalten :p

[Z o D]

ja toll jetzt krig ich msgboxen vor die nase geknallt und wenn ich die schließe kommt wieder der fehler..wie kann ich die msgboxen unsichtbar machen? xP

[G36KV]

ja toll jetzt krig ich msgboxen vor die nase geknallt und wenn ich die schließe kommt wieder der fehler..wie kann ich die msgboxen unsichtbar machen? xP

Ja toll kannst du die msgboxen auch lesen?
Die msgboxen sollen dir sagen warum der Fehler kommt. Der error kommt nur wenn der sData string leer ist.

If sData = "" then msgbox "errrrrrrrrrör"

[Z o D]

ich hab jetz on error resume next reingemacht
so löse ich auch im RL immer meine probleme

[G36KV]

ich hab jetz on error resume next reingemacht
so löse ich auch im RL immer meine probleme

tut mir leid für dich^^ programmiermäßig ist das ein no-go

kennst du IF?

Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim sData As String
Dim xData() As String


WS(sIndex).GetData sData

if sData <> "" then

xData = Split(sData, "|")


Select Case xData(0)

Case "Hola"

With LV.ListItems.Add(, , xData(1))

.SubItems(1) = xData(2)
.SubItems(2) = xData(3)
.SubItems(3) = xData(4)

End With

End Select

end if

End Sub