InputBox

Ook InputBox is geen control, maar een manier om snel iets te vragen aan de gebruiker. De syntaxis ziet er als volgt uit:

Je kan op twee manieren iets doen met

• Onmiddellijk de invoer gebruiken, bv. in een MsgBox of bij een toekenning
  msgbox(inputbox("tik wat in"))
  txtText1.Text= inputbox("tik wat in")
• Nadeel is wel dat men dan de invoering niet kan controleren. Soms moet die invoer aan voorwaarden voldoen, bv.een getal zijn, niet leeg zijn, ...
• Daarom kan je een Select Case gebruiken. Bijvoorbeeld:
  Select Case inputbox("Geef een getal")
  Case < 0
  'negatief getal
  Case > 0
  'positief getal
  Case 0
  'nul
  End Select
• Een andere mogelijkheid is om de invoer op te slaan in een buffer, een tijdelijke variabele waar men allerlei mee kan doen. Bijvoorbeeld:
  dim buffer
  buffer = inputbox("Tik wat in","Inputbox demo","standaardwaarde")
  msgbox buffer
  Het gebruik van een buffer is met name interessant als men wil testen of de invoer aan bepaalde voorwaarden voldoet (men wil een string die niet leg is, of een getal dat kleiner of groter is dan een bepaald getal), of als men de invoer moet samenstellen (bv. tekstbestanden die men regel per regel inleest, een string die men letter per letter aftast, ...)
• Je kan ook direct iets doen met de invoer. Houd er dan wel rekening mee dat je daarna die invoer niet meer kan lezen.
  Msgbox "Je hebt ingetikt: " & inputbox("Tik iets in")
• Hier vind je voorbeelden in VBS van een InputBox die direct getoond wordt, en een InputBox met een buffer.
• Misschien is het nu het moment om wat te experimenteren: een Inputbox die getallen verwacht, een InputBox die een letterreeks verwacht groter dan een aantal letters...

[VB Web] - [hlrnet] - [copyright]