Nemt Spm 2sec !

Hej igen begynder.

Har din VB ikke online hjælp:    If the user clicks OK or presses ENTER, the InputBox function returns whatever is in the text box. If the user clicks Cancel, the function returns a zero-length string (\"\").

Så \'Cancel\' returnerer altså en tom streng, selv om der ER skrevet noget.

I andre tilfælde (msgbox f.eks.) returneres tallet 2 når der klikkes på en cancel-knap (hvis synlig) eller tastes Escape.

Frås nu ikke pointene væk på spørgsmål du kan få besvaret i hjælpen.

M.v.h.  Jørn 

joern > jeg trykker på F1 men så får jeg fejl...\"The MSDN collection does not exist. Plese reinstall MSDN\" :(

Min = InputBox(\"Indtast et (Min) tal mellem 0-999\", \"Min - Spørgsmål\", \"1\")
        \'Hvis han trykker \"Cancel\" så lukker programmet
        If Min = \"\" Then
          End
        End If

Du kan ikke teste Cancel i din variabel, men InputBox returnerer en tom streng når man trykker på Cancel/Annuller.

Prøv med koden:

If Min = vbCancel

...istedet !

Cancel er der intet der hedder i VB. Med mindre du definerer en konstant der hedder Cancel, og assigner den værdien 2.

Værdien 2 er nemlig hvad knappen returnerer af værdi hvis den bliver trykket på. Cancel-knappen that is.

Men istedet for alle de besværligheder, så brug vbCancel. Den er pre-defineret, og alt du behøver er at skrive den. Hverken deklarere den eller noget som helst.