hur man gör en box på Visual Basic

En Visual Basic InputBox är ett sätt för exploatören att inhämta input från en användare och tilldela resultatet till en variabel för användning i andra delar av en ansökan . I stället för en grafisk bild , gör en Visual Basic -kod ord en InputBox. The resultatet av en InputBox variabel kan bli del av en adress databas , en tidrapport eller annat program . Det skulle kunna visas i feedback till användaren om InputBox frågar något i stil med ” Vad är ditt namn ”, och när användaren svarar kan datorn svara ”God morgon [ DittNamn ] . Hur mår du idag ” The användarens egna svar ersätter variabeln visas här inom parentes
1
Öppna . ett nytt Visual Basic-projekt genom att välja ” Standard-EXE ” i listan över mallar som visas när du först ladda Visual Basic . På nästa skärm , dubbelklicka på ” Label ” kontroll i ”Toolbox ”som finns till vänster om skärmen . Detta innebär en ” Label1 ” rutan på formuläret i mitten av skärmen . Använd små rutorna på gränsen i denna ruta för att förstora rutan .
2 .
Klicka på denna nya etiketten för att visa dess egenskaper i panelen till höger . Dubbelklicka på ” Caption ” egendom för att markera standard bildtexten ” Label1 . ” Tryck på ” Delete ” på tangentbordet för att ta bort bildtexten .
3 .
Dubbelklicka på ” CommandButton , ” en liten rektangel i ”Toolbox ” för att lägga detta till den form . Använd egenskaperna listan för att ändra standardsvaret bildtexten ” Kommando1 ”till ” Show InputBox . ” Dubbelklicka på det nya namnet för att öppna kodfönstret .
4 .
Skriv in koden nedan mellan de två linjerna som redan finns : ” Private Sub Command1_Click () ” och ” End Sub . ”

Dim DittNamn , NoAnswer As String

Dim LocX , LocY As Integer

LocX=6. 500 ”Screen läge i twips . Det finns 1440 twips till en tum

LocY=4. 500 ” Ändra nummer till era behov

Label1. Caption=” ” &#039Detta ämnen bildtexten varje gång programmet köra

NoAnswer=” inte Kan du säga vad du heter ? ”

DittNamn=InputBox (” Vad är ditt första namn ? ” , ” Skapa en InputBox ” , , LocX , LocY )

”de två kommatecken i rad i raden ovanför är viktiga

Om DittNamn=” ” Då

Label1 . Caption=NoAnswer

Else

Label1. Caption=”God morgon, ” DittNamn ” . Hur mår du idag ? ”

End If
5 .
Tryck ” F5 ” för att köra programmet .

tips och varningar