scrittura di un breve programma di Visual Basic viene illustrato l'utilizzo della funzione MsgBox . L'esempio mostra come il programmatore può causare una serie di azioni per verificarsi a seconda della risposta di un utente. Invocare il MsgBox può trattare con gli errori critici , semplicemente avvisare l'utente a qualcosa , o lasciare che la persona a decidere se vedere continue.To questo in azione , aprire i Visual Basic 6.0 o software Visual Basic.NET . In Visual Basic, creare un nuovo programma cliccando su "File ". Selezionare " Nuovo progetto" dal menu a tendina e un " EXE standard " dall'elenco dei modelli . In Visual Basic.NET o Visual Basic 2008 Express Edition , creare un nuovo progetto nello stesso modo , ma scegliere la " Applicazione Windows Form " Creare un pulsante di comando e tre etichette nel modulo cliccando e trascinando questi strumenti dalla casella degli strumenti . Fare clic su ciascuna etichetta nella finestra delle proprietà a destra durante l'utilizzo di visualizzazione Progettazione e cancellare il testo della didascalia . Solo per fare l' esempio un po 'più facile da usare , modificare la didascalia del pulsante di comando nella lista delle proprietà in " Show Me ". Il modulo dovrebbe essere simile all'immagine qui .
Esempio di codice
In Visual Basic 6 clicca su "Visualizza " nel menu e scegli "Code" dal menu a discesa lista. Digitare i seguenti comandi esattamente come mostrato di seguito . In Visual Basic.NET , premendo " F7 " , si apre la vista codice . NOTA: L'interfaccia di Visual Basic inserisce automaticamente linguette su alcune di queste linee che non vengono visualizzati correttamente in questo articolo . Non preoccupatevi di questo . L'immagine mostra la strada incluse la codifica appariranno nel software .
Private Sub Command1_Click ( ) Dim Msg , Style , Title , ResponseMsg = " Vuoi continuare ? " Style = vbAbortRetryIgnore + vbCritical + vbDefaultButton2 ' Definire buttons.Title = " MsgBox Dimostrazione " Risposta = MsgBox ( Msg , Style , Title ) Se risposta = vbAbort ThenLabel1.Caption = "Non avresti dovuto farlo ! " ElseIf risposta = vbRetry ThenLabel2.Caption = "Riprova tutto quello che vuoi , non funzionerà niente " ! ' Eseguire alcuni action.Else : Label3.Caption = " ! Questa è la risposta giusta " MsgBox ( " Premere un tasto per porre fine a questo ") Se vbOK ThenEndEnd IfEnd IfEnd Sub
Programmazione © www.354353.com