Aprire Visual Studio e creare un nuovo progetto Windows Form . Fare clic su "File " e poi " Nuovo progetto " per aprire la nuova finestra del modulo . Scegliere Visual Basic , Windows , progetto Windows Form e il nome " DialogDemo . "
2
Creare una forma di dialogo. Fare clic su "Progetto ", quindi " Aggiungi Windows Form ". Nome del modulo " DialogForm " e fare clic su " OK ".
3
aggiungere due pulsanti a forma di dialogo . Fare clic sull'icona Casella degli strumenti e trascinare due pulsanti nel form. Fare clic destro sul primo pulsante e scegliere " Proprietà". Quando viene visualizzato l' elenco delle proprietà , modificare la proprietà name di " btnOK " e modificare la proprietà Text su " OK . " Fare clic su "Escape" per chiudere la finestra delle proprietà . Ripetere questa procedura per cambiare il nome del secondo pulsante di " btnCancel " e il testo di "Annulla". Apparirà doppio clic sul pulsante 4
"OK" e la finestra dell'editor di codice
. Modificare il codice come segue :
Private Sub btnOK_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles btnOK.Click
DialogResult = DialogResult.OK
End Sub
impostazione della proprietà DialogResult segnala il quadro per trasferire il controllo al programma chiamante . Il valore del DialogResult diventa il valore di ritorno del metodo ShowDialog . I valori comuni sono "OK", "Annulla ", " Sì", "No" e "Annulla ". Qui torniamo su "OK ".
5
pulsante destro del mouse in qualsiasi punto della finestra di editor e scegliere " Visualizza finestra di progettazione . " Quando viene visualizzata la finestra di dialogo modulo , fare doppio clic sul pulsante "Annulla ", quindi aggiungere il seguente codice: Private Sub
btnCancel_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles btnCancel.Click
DialogResult = DialogResult.Cancel
End Sub
Qui torniamo "Annulla".
6
Right-Click Form1.vb in Esplora soluzioni quindi scegliere " Visualizza finestra di progettazione . " Apparirà la forma originale . Trascinare un pulsante dalla barra degli strumenti nel form quindi fare doppio clic sul pulsante . Quando viene visualizzata la finestra di editor , inserire il seguente codice .
Private Sub btnTest_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles btnTest.Click
Dim frm As New DialogForm
Se frm.ShowDialog = DialogResult.OK Poi
MsgBox ( " OK " ) per
Else
MsgBox ( " annullata" ) per
End If Quando viene cliccato il pulsante
frm.Close ( ) per
End Sub
, creiamo una nuova istanza del modulo di dialogo , quindi chiamare il metodo ShowDialog . Si apre la finestra di forma e attende l'input dell'utente . Quando si fa clic su uno dei pulsanti , il controllo viene passato al Form1 , e presentiamo un messaggio in base al valore del DialogResult . Dopo di che , chiudiamo la forma .
7
Clicca "F5" per testare il programma .
Programmazione © www.354353.com