Cancel i Inputbox.. :\\

Ja hej...

Har et lille problem.. det er de InputBox.. Hvis man nu trykker cancel laver den error.. Så jeg vil gerne vide om det er muligt at enten fjerne Cancel option, eller hvordan man kan skrive koden til, hvis man trykke cancel?

mvh.
Shouresh

Du kan på flg. måde for dne til at ignorere fejlen

<pre>
On Error Resume Next
</pre>

eks.

<pre>
Option Explicit
Dim a As Integer

Private Sub Command1_Click()
On Error Resume Next

a = InputBox("Indtast et tal der skal ganges med 10")
If Not a = 0 Then
a = a * 10
MsgBox a
End If

End Sub
</pre>


mvh.
Thomas Christensen

Hvis du dimmer dit svar som en string sker der ingen fejl!

Dim Svar As String
    Svar = InputBox("Indtast et eller andet")

// Great programs often follow great brains!