Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Laufzeitfehler "6" Überlauf
Autor: @209
Datum: 26.02.04 21:09
Nach 10 Minuten kommt wieder ein Fehler. Der selbe und beim Debuggen kommt dass siehe unten das was mit Sternchem Markiert ist, war im VB gelb Private Sub Form_Resize() If Me.Height < 2000 Or Me.Width < 2000 Then Me.Height = 2000 ******************************** Me.Width = 2000 Exit Sub End If RichTextBox1.Left = 15 RichTextBox1.Left = 15 RichTextBox1.Width = Me.ScaleWidth - 30 RichTextBox1.Height = Me.ScaleHeight - 20 End Sub Der Code zum Nummerieren habe ich auch mit Long probiert ... Private Sub mnuNummerieren_Click() Dim sLines() As String Dim i As Long Dim nLine As Long Dim sPos As Long sLines = Split(RichTextBox1.Text, vbCrLf) RichTextBox1.Text = "": nLine = 0 For i = 0 To UBound(sLines) DoEvents If Trim$(sLines(i)) <> "" Then nLine = nLine + 1 If Left$(sLines(i), 1) = "N" And InStr(1, "0123456789", Mid$(sLines(i), 2, 1)) > 0 Then sPos = InStr(1, sLines(i), " ") Else sPos = 0 End If RichTextBox1.Text = RichTextBox1.Text & "N" & CStr(nLine) & " " & Right$(sLines(i), Len(sLines(i)) - sPos) & vbCrLf End If Next i End Sub Bitte wer kann mir Helfen ??? Gruß Marco

Laufzeitfehler "6" Überlauf	1.864	@209	25.02.04 20:55
Re: Laufzeitfehler "6" Überlauf	911	Brian	25.02.04 21:00
Re: Laufzeitfehler "6" Überlauf	902	@209	25.02.04 21:17
Re: Laufzeitfehler "6" Überlauf	999	@209	26.02.04 21:09

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen