Message 1 of 4
Loop, Yes/No

Not applicable
08-28-2006
03:51 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I do not understand why following code does not work. Could someone give me a solution to loop an action until a "No" or "N" is input. Thanks in advance.
Dim KeepGoing As Boolean, Answer As String
KeepGoing = True
Dim kWordList As String
kWordList = "Yes No"
ThisDrawing.Utility.InitializeUserInput 1, kWordList
Do While KeepGoing
action code
Answer = ThisDrawing.Utility.GetKeyword("Continue ...(yes)/(No): ")
If Answer = "No" Then KeepGoing = False
Loop
Dim KeepGoing As Boolean, Answer As String
KeepGoing = True
Dim kWordList As String
kWordList = "Yes No"
ThisDrawing.Utility.InitializeUserInput 1, kWordList
Do While KeepGoing
action code
Answer = ThisDrawing.Utility.GetKeyword("Continue ...(yes)/(No): ")
If Answer = "No" Then KeepGoing = False
Loop