topic Re: Issue with InputBox Cancel Button in Inventor Programming Forum

Issue with InputBox Cancel Button

bbrumfield — Thu, 02 Jun 2022 00:43:29 GMT

Any Help would be appreciated.

Trying to clean up some code so that if the user Hits the cancel button rather than inputting a number they will get bounced back to the start, If they were to leave the text field zero the rule below works but if they cancel there is an error :

Width :

Dim dSheetWidth As Double = CInt(InputBox("Enter Material Width (Value Required)", "Sheet Width", 0.00))

If dSheetWidth = 0 Or Nothing
	
	MessageBox.Show("You Must Enter A Sheet Width")
	
	GoTo Width
	
End If

Thanks,

Brent

Re: Issue with InputBox Cancel Button

A.Acheson — Thu, 02 Jun 2022 03:48:44 GMT

This was a little trickier than expected but these two samples seem to work. The cancel and close buttons have a string value where as you have declared a double value. Sample 1 sends the string error to a double value which luckily you don't need to use a value of 0. Sample 2 handles the string values first then the double values.

Here is a link to sample1

Width :

On Error Resume Next
Dim dSheetWidth As Double = CInt(InputBox("Enter Material Width (Value Required)", "Sheet Width", 0.00))
On Error GoTo 0 'Error handling

If dSheetWidth = 0 Then GoTo Width
	MessageBox.Show(dSheetWidth, "Success")

Here is a link to sample2

	

Width :
Dim dSheetWidth As Double
Dim sSheetWidth As String = InputBox("Enter Material Width (Value Required)", "Sheet Width", 0.00)
	
If sSheetWidth = vbNullString Then : GoTo Width 'Deal with cancel/close button
ElseIf sSheetWidth <> vbNullString And Not IsNumeric(sSheetWidth)Then : GoTo Width 'Deal with non numeric values
ElseIf sSheetWidth <> vbNullString And IsNumeric(sSheetWidth)Then 'Is a valid double entry 
	dSheetWidth = CInt(sSheetWidth)
	If dSheetWidth = 0 Then : GoTo Width
	Else
		MessageBox.Show(dSheetWidth, "Success")
	End If
End If

Re: Issue with InputBox Cancel Button

Curtis_W — Thu, 02 Jun 2022 14:21:53 GMT

Hi @bbrumfield

With iLogic, you can put the inputbox in a try/catch to handle the cancel button.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

Dim dSheetWidth As Double
Try
	dSheetWidth = CInt(InputBox("Enter Material Width (Value Required)", "Sheet Width", 0.00))
Catch
	dSheetWidth = 0
End Try

If dSheetWidth = 0 
	MessageBox.Show("You Must Enter A Sheet Width")

	GoTo Width
End If

Re: Issue with InputBox Cancel Button

bbrumfield — Thu, 02 Jun 2022 15:10:16 GMT

Hi Curtis,

Thank you! This has solved the Cancel button issue.

Brent

Re: Issue with InputBox Cancel Button

bbrumfield — Thu, 02 Jun 2022 15:12:11 GMT

Hi A.Acheson,

Thank you! Both examples work without error.

Brent