29. März 2024, 07:38
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0407
  VB6: On Error Resume Next entfernen
 Von matikinfor
 Am 23. April 2008 um 17:52:41
 Frage Ich bin gerade am Programmieren eines Morsecodierers und habe ein Problem.

Text2 ist mein ausgabefeld (da sollen morsezeichen rein)
text1 ist meine eingabe
hold ist ein Teilstring
encode(hold) verweist auf eine Prozedur, in der ich den Buchstaben Morsezeichen zuteile.
Private Sub Decode_Click()        'Kodierung In Morse
On Error Resume Next
text2.Text = ""
FullText = ""
TextNum = Len(text1.Text)

For i = 0 To TextNum

Temp = Left(text1.Text, Len(text1.Text) - Len(Right(text1.Text, Len(text1.Text) - (i + 1))))

Hold = Right(Temp, Len(Temp) - i)

Temp2 = encode(Hold)

FullText = FullText & Temp2 & " "

Next i
text2.Text = FullText

End Sub
Mein Problem ist, dass wenn ich das Resume on Error Next entferne das Programm einen fehler meldet und bei Debug auf

Temp = Left(text1.Text, Len(text1.Text) - Len(Right(text1.Text, Len(text1.Text) - (i + 1))))

verweist.

Könnt Ihr mir sagen was ich tun muss, damit das programm ohne On Error Resume Next funktioniert.
[ VB-/VBA-Forum | Archiv 0407 | Archiv-Übersicht ]
 Antworten
VB6: On Error Resume Next entfernen - matikinfor 23. April 2008 um 17:52:41
Re: On Error Resume Next entfernen - HomerS 23. April 2008 um 19:22:42
Re: On Error Resume Next entfernen - matikinfor 23. April 2008 um 19:52:43

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum