Thema Datum  Von Nutzer Rating
Antwort
10.12.2011 07:30:00 Heisi
NotSolved
10.12.2011 15:16:17 Till
NotSolved
10.12.2011 17:50:55 Heisenberg
NotSolved
10.12.2011 19:30:25 Till
NotSolved
10.12.2011 21:09:44 Heisenberg
NotSolved
10.12.2011 22:28:56 Till
NotSolved
11.12.2011 04:48:27 Heisi
NotSolved
11.12.2011 16:21:23 Till
NotSolved
11.12.2011 21:00:59 heisenberg
NotSolved
Blau Pause zwischen 2 Befehlen ohne System anzuhalten
12.12.2011 00:55:09 Till
NotSolved
12.12.2011 09:45:52 Gast96144
NotSolved
12.12.2011 12:54:58 Heisenberg
NotSolved
12.12.2011 14:22:19 Till
NotSolved
12.12.2011 16:58:34 Heisenberg
NotSolved
12.12.2011 20:14:32 Till
NotSolved
12.12.2011 20:41:47 Gast24065
NotSolved
12.12.2011 22:36:13 Till
Solved
13.12.2011 00:59:38 heisenberg
NotSolved

Ansicht des Beitrags:
Von:
Till
Datum:
12.12.2011 00:55:09
Views:
1164
Rating: Antwort:
  Ja
Thema:
Pause zwischen 2 Befehlen ohne System anzuhalten

Das liegt daran, dass deine Hauptuserform mit Modal=true angezeigt wird (gebundenes Formular).

Versuchs mal so:

Private Sub cb_Parameteraktualisieren_Click()
 
'X-Wert aus textbox wird an Catia übergeben
 
Dim Params As Parameters
Set Params = CATIA.ActiveDocument.Product.Parameters
Dim X As Dimension
Set X = Params.Item("X-Koordinate")
 X.Value = Me.textbox_x.Value
 
    With Me
        .Hide
        .Show (False)
        Load UserForm1
        UserForm1.Caption = "Berechnung läuft..."
        UserForm1.Show (False)
        wait DateAdd("s", 2, Now())
        Unload UserForm1
        .Hide
        .Show
    End With
 
 
'Produkt wird aktualisiert und Punkt ausgerichtet
 
Set Params = CATIA.ActiveDocument.Product.Parameters
Dim W1 As Dimension
Set W1 = Params.Item("Winkel 1")
Me.textbox_Winkel1.Value = W1.Value
 
  
End Sub
  
Private Sub wait(t As Date)
    While t > Now(): DoEvents: Wend
End Sub

Ob du sleep benutzt oder nicht ändert an deinem eigentlich Problem auch nichts. Dein MatLab sollte so oder so weiterrechnen, jedenfalls wenn du keinen Singlecore Processor hast.

Wenn du sleep benutzen willst musst du eine dll einbinden:

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub cb_Parameteraktualisieren_Click()
 
'X-Wert aus textbox wird an Catia übergeben
 
Dim Params As Parameters
Set Params = CATIA.ActiveDocument.Product.Parameters
Dim X As Dimension
Set X = Params.Item("X-Koordinate")
 X.Value = Me.textbox_x.Value
 
    With Me
        .Hide
        .Show (False)
        Load UserForm1
        UserForm1.Caption = "Berechnung läuft..."
        UserForm1.Show (False)
        Sleep 2 * 1000
        Unload UserForm1
        .Hide
        .Show
    End With
 
 
'Produkt wird aktualisiert und Punkt ausgerichtet
 
Set Params = CATIA.ActiveDocument.Product.Parameters
Dim W1 As Dimension
Set W1 = Params.Item("Winkel 1")
Me.textbox_Winkel1.Value = W1.Value
 
  
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.12.2011 07:30:00 Heisi
NotSolved
10.12.2011 15:16:17 Till
NotSolved
10.12.2011 17:50:55 Heisenberg
NotSolved
10.12.2011 19:30:25 Till
NotSolved
10.12.2011 21:09:44 Heisenberg
NotSolved
10.12.2011 22:28:56 Till
NotSolved
11.12.2011 04:48:27 Heisi
NotSolved
11.12.2011 16:21:23 Till
NotSolved
11.12.2011 21:00:59 heisenberg
NotSolved
Blau Pause zwischen 2 Befehlen ohne System anzuhalten
12.12.2011 00:55:09 Till
NotSolved
12.12.2011 09:45:52 Gast96144
NotSolved
12.12.2011 12:54:58 Heisenberg
NotSolved
12.12.2011 14:22:19 Till
NotSolved
12.12.2011 16:58:34 Heisenberg
NotSolved
12.12.2011 20:14:32 Till
NotSolved
12.12.2011 20:41:47 Gast24065
NotSolved
12.12.2011 22:36:13 Till
Solved
13.12.2011 00:59:38 heisenberg
NotSolved