Aprire un nuovo progetto di Visual Basic , selezionando " EXE standard " dalla lista dei modelli che appare quando si carica di Visual Basic . Nella schermata successiva , fare doppio clic sul controllo " Label " nella " cassetta degli attrezzi" si trova sulla sinistra dello schermo. Questo pone una scatola " Label1 " sulla forma nel centro dello schermo . Utilizzare le piccole scatole ai confini di questa casella per ingrandire la casella .
2
Clicca su questa nuova etichetta per visualizzarne le proprietà nel pannello a destra. Fare doppio clic sulla proprietà " Caption " per evidenziare la voce di default , " Label1 ". Premere il tasto " Canc " sulla tastiera per rimuovere la didascalia .
3
doppio clic " CommandButton ", un piccolo rettangolo nella " Casella degli strumenti "per aggiungere questo al form. Utilizzare l'elenco di oggetti da modificare la didascalia predefinita , " Command1 " a " Mostra InputBox . " Fare doppio clic sul pulsante nuovo nome per aprire la finestra del codice .
4
Digitare il codice qui sotto tra il due linee già presenti : " private Sub Command1_Click ( )" e " End Sub ".
Dim YourName , NOANSWER Come StringDim LocX , LocY Come location schermo IntegerLocX = 6500 ' in twip . Ci sono 1440 twip ad un inchLocY = 4500 ' cambiare i numeri per soddisfare il vostro needsLabel1.Caption = " " ' Questo vuoti la didascalia ogni volta che il programma è runNoAnswer = " Non vuoi dirmi il tuo nome ? " YourName = InputBox ( "Qual è il tuo nome ? " , "Creazione di un InputBox " , LocX , LocY ) ' le due virgole di fila nella riga sopra sono vitalIf YourName = " " ThenLabel1.Caption = NoAnswerElseLabel1.Caption = " Buon giorno", e YourName & " . Come stai oggi ? " End If
5
Premere" F5 " per eseguire il programma .
Programmazione © www.354353.com