Een Visual Basic InputBox biedt een manier voor de ontwikkelaar om input vragen van de gebruiker en het resultaat toe te wijzen aan een variabele voor gebruik in andere delen van een applicatie . In plaats van een grafische afbeelding , een Visual Basic codewoord maakt een InputBox.The resultaat van een InputBox variabele kan deel uitmaken van een adressenbestand , een rooster of een andere toepassing geworden . Het kan worden weergegeven in feedback aan de gebruiker als de InputBox vraagt iets als " Wat is uw naam , " en , wanneer de gebruiker reageert , kan de computer antwoord " Goedemorgen [ UwNaam ] . Hoe gaat het vandaag ? ' De gebruiker geleverde respons vervangt het hier tussen haakjes variabele . Instructies
1 Open een nieuwe Visual Basic -project door het selecteren van " Standard EXE " uit de lijst met sjablonen die verschijnt wanneer u voor het eerst Visual Basic te laden . In het volgende scherm , dubbelklikt u op het "Label" controle in de " Toolbox " gelegen aan de linkerkant van het scherm . Dit plaatst een doos " Label1 " op het formulier in het midden van het scherm . Gebruik de kleine vakjes aan de grenzen van dit vak te vergroten het vak .
Klik 2 op dit nieuwe label om zijn eigenschappen in het paneel aan de rechterkant weergegeven . Dubbelklik op het " Caption " woning aan de standaardbijschrift markeren " Label1 . " Druk op de toets " Delete" op uw toetsenbord om het bijschrift te verwijderen .
3 Dubbelklik op het " CommandButton , " een kleine rechthoek in de " Toolbox "om dit aan het formulier toe te voegen . Gebruik de lijst met eigenschappen om de standaard Bijschrift veranderen , " Command1 " naar " Toon InputBox . " Dubbelklik op de knop nieuwe naam om het venster code te openen .
Typ de onderstaande code tussen de 4 twee lijnen al aanwezig : " Private Sub Command1_Click ( ) " en " End Sub . " Dim UwNaam
, NoAnswer Zoals StringDim LocX , Locy Zoals Screen locatie IntegerLocX = 6500 ' in twips . Er zijn 1440 twips een inchLocY = 4500 ' Verander de nummers op uw needsLabel1.Caption passen = " " " Deze blanks het bijschrift elke keer dat het programma is runNoAnswer = " Wil je niet te vertellen gelieve me uw naam ?' YourName = InputBox ( " Wat is je voornaam ? ' , ' het creëren van een InputBox " , , LocX , Locy ) ' de twee komma's op een rij in de lijn boven zijn vitalIf UwNaam = " " ThenLabel1.Caption = NoAnswerElseLabel1.Caption = " Goedemorgen , " & UwNaam & " . Hoe gaat het vandaag ? " End If
Press 5 " F5 "om het programma uit te voeren .
|
