|
| |
VB Skript (VBS)| Programm von vorne beginnen | |  | | Autor: --ToTo-- | | Datum: 11.01.12 09:38 |
| Hallo,
ich habe folgendes Problem in meinem Script (anbei ein Schnipsel daraus)
'Abfrage ob Pflichtfelder ausgefüllt sind
If txtxxx = "" Then 'wenn Feld nicht ausgefüllt Programm von vorne!
MsgBox "Alle Felder müssen ausgefüllt sein."
End
End If
ich möchte nicht wie beschrieben, dass das Programm beendet wird, sondern die Meldung bringt "Alle Felder müssen gefüllt sein" und er soll das Programm erneut starten oder von vorne beginnen.
Hab schon viel versucht und googel gequält aber bekomme es nicht hin. Vll kann mir jemand weiterhelfen.
Gruß
ToTo | |
| Re: Programm von vorne beginnen | | | | Autor: Florian B. | | Datum: 11.01.12 11:47 |
| Hallo,
bist du dir sicher dass es hier um VB[u]Script geht, und nicht um eine andere Form von VisualBasic? Ich wüsste nämlich nicht wo es in VBScript Felder gibt, das sind ja reine Konsolenanwendungen.
Sollte es dir tatsächlich um VBScript gehen, würde ich es so machen:
Eingabe = ""
Eingabe2 = ""
do while Eingabe = "" OR Eingabe2 = ""
' dein code
Eingabe = InputBox("Geben Sie etwas ein:")
Eingabe2 = InputBox("Geben Sie noch etwas ein:")
If Eingabe = "" OR Eingabe2 = "" Then MsgBox("Sie dürfen keine Felder leer" & _
"lassen!")
Loop | |
| Re: Programm von vorne beginnen | | | | Autor: --ToTo-- | | Datum: 11.01.12 11:58 |
| Hallo,
Danke f. die Rückantwort.
Ja es geht um eine Form... Schreib noch net so lange und wusste nicht wo ich es einsetzen sollte!
Wäre das bei einer Form im Visual Basic dann genau so???
lg | |
| Re: Programm von vorne beginnen | | | | Autor: Florian B. | | Datum: 11.01.12 12:58 |
| Hallo,
erstmal wäre es wichtig zu wissen, mit was du genau Programmierst. Welche Anwendung verwendest du denn zum Entwickeln? Visual Studio? Dann ist es höchstwahrscheinlich VB .NET.
Programmierst du z. B. für Word oder Excel handelt es sich um VBA (Visual Basic for Applications)
Das gilt es erstmal zu klären  | |
| Re: Programm von vorne beginnen | | | | Autor: --ToTo-- | | Datum: 11.01.12 13:14 |
| Hallo,
dann ist es ganz klar VBA... ist für ein CAD Programm.
LG | |
| Re: Programm von vorne beginnen | | | | Autor: Florian B. | | Datum: 11.01.12 13:34 |
| Das glaube ich dann weniger, denn VBA ist eigentlich nur für Microsoft-Office-Anwendungen wie Word, Excel, PowerPoint etc.
Programmierst du denn in einem normalen Text-Editor? Welche Datei-Endung haben deine Code-Dateien?
Ist für Anfänger nicht so ganz einfach die einzelnen Sprachen auseinander zu halten, aber so bekommen wir das bestimmt noch raus | |
| Re: Programm von vorne beginnen | | | | Autor: --ToTo-- | | Datum: 11.01.12 13:44 |
| Ich merke es ist nicht einfach!!! da hast du recht.
Aber ist für das CAD nicht mein erstes.
Hab schon mehrere gebastelt!
Aber bei diesem komm ich nicht weiter!
Endungen sind *.swp
Version welche ich verwende MS VB 6.5! | |
| Re: Programm von vorne beginnen | | | | Autor: Florian B. | | Datum: 11.01.12 13:59 |
| Jetzt hab ich's ^^
Was ich vorher nicht wusste: SolidWorks verwendet auch VBA als Makrosprache...
Eigentlich brauchst du das Programm nicht "neustarten", sondern erst dann reagieren, wenn alle Felder einen Inhalt haben. Also ein einfaches If-Then-Else
If TextBox1.Text <> "" And TextBox2.Text <> "" Then
' tu was du möchtest, wenn alle Felder Inhalt haben
Else
MsgBox ("Bitte alle Felder ausfüllen!")
End If | |
| Re: Programm von vorne beginnen | | | | Autor: --ToTo-- | | Datum: 11.01.12 14:31 |
| Danke erstmal.
Das klappt Super bis auf dass er nicht mehr in die maske springt sondern nun den Befehl ausführen will!!
Er müsste in die maske springen dass man den fehlenden Wert eingeben kann, ist das auch möglich??? | |
| Re: Programm von vorne beginnen | | | | Autor: Florian B. | | Datum: 11.01.12 14:35 |
| Dein Befehl muss da rein, wo ich den Kommentar geschrieben habe.
Das ist ja das, was er machen soll wenn die Inhalte der Felder ungleich Leer sind (TextBox1.Text <> "")
Ansonsten (Else) gibt er eine Fehlermeldung aus
If TextBox1.Text <> "" And TextBox2.Text <> "" Then
' --> hier dein Befehl
Else
MsgBox ("Bitte alle Felder ausfüllen!")
' eine bestimmte Textbox "anspringen" könntest du dann z. B. mit
' TextBox1.SetFocus
End If | |
| Re: Programm von vorne beginnen | | | | Autor: --ToTo-- | | Datum: 11.01.12 15:00 |
| Das wäre mein Code aber der funkt nicht wirklich irgendwie?!
Habe ich dabei was falsch verstanden????
'Abfrage ob Pflichtfelder ausgefüllt
If txtFLb.Text = "" And txtFLs.Text = "" And txtFLl.Text Then
Breite = txtFLb
Dicke = txtFLs
Länge = txtFLl
Part.InsertSketch
Part.SketchRectangle -Breite
Part.CreateLine2(00).ConstructionGeometry = True
Part.ClearSelection
Part.AndSelectByID "Line1"
Part.AndSelectByID "Line5"
Part.AndSelectByID "Line3"
Part.SketchAddConstraints "sgSYMMETRIC"
Part.CreateLine2(0,0).ConstructionGeometry = True
Part.ClearSelection
Part.AndSelectByID "Line2", "SKETCHSEGMENT", 0
Part.AndSelectByID "Line6", "SKETCHSEGMENT", 0
Part.AndSelectByID "Line4", "SKETCHSEGMENT", 0
Part.SketchAddConstraints "sgSYMMETRIC"
Part.ClearSelection
Part.SelectByID "Line1", "SKETCHSEGMENT", 0
Part.AddDimension 0217
Part.SelectByID "Line2", "SKETCHSEGMENT", 0
Part.AddDimension 0
Part.ClearSelection
Else
MsgBox ("Bitte alle Felderausfüllen!")
End If
End Sub | |
| Re: Programm von vorne beginnen | | | | Autor: Florian B. | | Datum: 11.01.12 15:17 |
| | Zitat: | |
Habe ich dabei was falsch verstanden????
'Abfrage ob Pflichtfelder ausgefüllt
If txtFLb.Text = "" And txtFLs.Text = "" And txtFLl.Text Then | |
ja, deine Abfrage hab ich "umgedreht". Also ich Frage nicht ab ob die Textboxen leer sind (txtFLb.Text = "") sondern ich frage ab ob sie nicht leer sind (txtFLb.Text <> "")
Deine Abfrage muss also so lauten:
If txtFLb.Text <> "" And txtFLs.Text <> "" And txtFLl.Text Then Das müsst's gewesen sein | |
| Re: Programm von vorne beginnen | | | | Autor: --ToTo-- | | Datum: 11.01.12 15:34 |
| Klasse!!!!!!!!!
Das war Rätsels Lösung!!!!!!!!!!!!!
Dickes danke!!!!!!! | |
 | 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 |
 |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevCoolbar 3.0 
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere Infos
|
| |
|
Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.