Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

on error go to
Autor: Boro
Datum: 02.12.03 11:25
Hallo Zusammen! Ich möchte mit der "on error go to ..." Methode einen Laufzeitfehler abfangen, weis aber nicht genau wie ich da vorgehen muß. In meinem Programm befinden sich 2 TextBox - Felder zur Maßeingabe, die dann einer Variablen übergeben werden um ein Objekt zu zeichnen. Sind diese Felder nicht ausgefüllt und ich bestätige mit OK bricht das Programm ab und ich bekomme eine Laufzeitfehlermeldung. Ich möchte nun erreichen, daß wenn man mit OK bestätigt und nichts eingegeben ist eine MsgBox erscheint die darauf hinweist und anschließend eine erneute Eingabe zuläßt um das Programm auszuführen . Ich hab's mal so versucht, funktioniert aber nicht so wirklich gut! Private Sub CommandButton1_Click() On Error GoTo MyErrorHandler Dim InsertPoint As Variant Dim LL1 As Double Dim LL2 As Double Dim Prompt1 As String Dim pt1, pt2, pt3, pt4, pt5, pt6, pt7 As Variant Dim Lineobj As AcadLine Dim Arcobj As AcadArc LL1 = TextBox1.Value LL2 = TextBox2.Value LLoch_01.Hide Prompt1 = vbCrLf & "Insertion Point:" InsertPoint = ThisDrawing.Utility.GetPoint(, Prompt1) pt1 = ThisDrawing.Utility.PolarPoint(InsertPoint, dtr(270#), LL2 / 2) pt2 = ThisDrawing.Utility.PolarPoint(pt1, dtr(180#), LL1 / 2) pt3 = ThisDrawing.Utility.PolarPoint(pt2, dtr(90#), LL2) pt4 = ThisDrawing.Utility.PolarPoint(pt3, dtr(0#), LL1) pt5 = ThisDrawing.Utility.PolarPoint(pt4, dtr(270#), LL2) pt6 = ThisDrawing.Utility.PolarPoint(InsertPoint, dtr(180#), LL1 / 2) pt7 = ThisDrawing.Utility.PolarPoint(InsertPoint, dtr(0#), LL1 / 2) Set Lineobj = ThisDrawing.ModelSpace.AddLine(pt3, pt4) Lineobj.Layer = ComboBox1.Value Set Lineobj = ThisDrawing.ModelSpace.AddLine(pt5, pt2) Lineobj.Layer = ComboBox1.Value Set Arcobj = ThisDrawing.ModelSpace.AddArc(pt6, LL2 / 2, dtr(90), dtr(270)) Arcobj.Layer = ComboBox1.Value Set Arcobj = ThisDrawing.ModelSpace.AddArc(pt7, LL2 / 2, dtr(270), dtr(90)) Arcobj.Layer = ComboBox1.Value Exit Sub MyErrorHandler: MsgBox "Bitte einen Wert für LL1 und LL2 eingeben", 64, "Hinweis" Resume Next End Sub Vielen Dank im voraus. Gruß Boro

on error go to	493	Boro	02.12.03 11:25
Re: on error go to	279	smither	02.12.03 12:09
Re: on error go to	278	Boro	02.12.03 12:38

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