• 
  

  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=" " 'Detta ä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




Lägg till en förklarande budskap för att täcka problem eller för andra ändamål som du inte vill placera på den form eller i själva bildtexten som i ovanstående exempel. För att göra detta , ändra dessa kodrader :

bort den rad som börjar " Label1. Caption=NoAnswer då. "

ersätta detta med :

MsgBox ( " Vi måste ha ditt namn att gå vidare . " )

Endast cirka 1024 tecken får plats i en InputBox . det exakta antalet beror på vilket teckensnitt .

Previous：nothing Next：hur man gör en webbläsare med Visual Basic 2005 Express

Relaterade artiklar