Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Rückgabewerte der MsgBox weiterverarbeiten

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Rückgabewerte der MsgBox weiterverarbeiten (4511 mal gelesen)
Christian.O
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Christian.O an!   Senden Sie eine Private Message an Christian.O  Schreiben Sie einen Gästebucheintrag für Christian.O

Beiträge: 1212
Registriert: 17.07.2009

erstellt am: 10. Feb. 2010 11:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Servus,

bin neu in der Welt des Makroprogrammierens und hab deshalb eine sicherlich sehr Simple Frage. Hab im Buch Catia V5 Makroprogrammierung mit Visual Basic, im Internet und hier im Forum nicht das Richtige für mein Problem gefunden.
Nun zur Beschreibung des Makros. Durch eine InputBox geb ich Nummern von Zeichnungen und Produkten ein. Das Öffnen des richtigen Dokuments funktioniert auch. Hab jetzt im Buch Schaltflächen für das Ausgabefenster der MsgBox gefunden. Nun möchte ich, wenn eine Falsche Teilenummer eingetippt wurde durch das Drücken der Wiederholtaste wieder zur InputBox kommen, in der ich dann die neue Nummer wieder eingeben kann. Im Buch gibt es eine Tabelle mit Rückgabewerten der MsgBox. Wie kann ich nun diesen Rückgabewert weiter verarbeiten? Ich hoffe das Problem ist verständlich. Wenn nicht kann ich das Makro anhängen.
Danke schon im voraus.

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

V5Playaz
Mitglied
Dipl.-Ing (BA)


Sehen Sie sich das Profil von V5Playaz an!   Senden Sie eine Private Message an V5Playaz  Schreiben Sie einen Gästebucheintrag für V5Playaz

Beiträge: 447
Registriert: 12.07.2005

DELL PRECISION 390
3,25 GB RAM
WIN XP PRO SP2
CATIA V5 R16-19
Delmia V5 R19
VB6, VB2008
Adobe Acrobat 9 Pro Extended

erstellt am: 10. Feb. 2010 11:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Christian.O 10 Unities + Antwort hilfreich

Hier im Forum gibts einige Beispiele für dein Problem (Forensuche benutzen).

Nun zur Lösung:

Code:
Status = MsgBox("Soll blablabla wirklich ausgeführt werden?", vbYesNoCancel + vbQuestion, "Abfrage")
If Status = vbCancel Then Exit Sub

Grüsse Dominik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

DanielFr.
Moderator
Manager


Sehen Sie sich das Profil von DanielFr. an!   Senden Sie eine Private Message an DanielFr.  Schreiben Sie einen Gästebucheintrag für DanielFr.

Beiträge: 2506
Registriert: 10.08.2005

HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3

erstellt am: 10. Feb. 2010 11:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Christian.O 10 Unities + Antwort hilfreich

Hier mal ein Beispiel 

Code:

Sub CATMain()


    TheInput

End Sub


Private Function TheInput() As String

    Dim intMsgBoxRes As VbMsgBoxResult
   
    intMsgBoxRes = MsgBox("Wollen Sie die Eingabe abbrechen, wiederholen oder ignorieren?", vbQuestion + vbAbortRetryIgnore, "FRAGE")
    If intMsgBoxRes = vbAbort Then
        MsgBox "Sie haben die EIngabe abgebrochen", vbExclamation, "Abbruch"
    ElseIf intMsgBoxRes = vbRetry Then
        MsgBox "Sie wollen die Eingabe wiederholen", vbInformation, "Wiederholen"
        TheInput
    ElseIf intMsgBoxRes = vbIgnore Then
        MsgBox "Sie wollen die Eingabe ignorieren", vbInformation, "Ignorieren"
    End If
   
End Function


------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Christian.O
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Christian.O an!   Senden Sie eine Private Message an Christian.O  Schreiben Sie einen Gästebucheintrag für Christian.O

Beiträge: 1212
Registriert: 17.07.2009

erstellt am: 10. Feb. 2010 11:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Servus,

Danke für die schnellen Antworten. Werd ich dann gleich integrieren.
So wie es aussieht hab ich das Falsche gesucht (naja vielleicht auch nicht das richtige Eingegeben - Anfänger eben). Trotzdem Danke nochmals.

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz