09-04-2019
08:54 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-04-2019
08:54 PM
Hello bshbsh,
I have not understood exactly what is you problem.
I made a dialog.
The code of this dialog is here :
Private StopRequired As Boolean
Private Sub StartButton_Click()
StopRequired = False
Dim lastTime As String
CloseButton.Enabled = False
While Not StopRequired
DoEvents
' Do someting
If lastTime <> Time Then
lastTime = Time
Label1.Caption = lastTime
End If
Wend
CloseButton.Enabled = True
End Sub
Private Sub StopButton_Click()
StopRequired = True
End Sub
Private Sub CloseButton_Click()
Me.Hide
End SubAnd show the dialog as follows :
Sub test()
UserForm1.Show
End SubThe dialog is always in front of Inventor application window, and user cannot access Inventor application window.
Something conditions are different?
=====
Freeradical
Hideo Yamada