Πώς να κλείσει ένα έντυπο Άνοιξε από ShowDialog

Visual Basic της Microsoft καθιστά εύκολο να δημιουργήσετε φόρμες διαλόγου που βασίζεται . Απλά σύρετε μερικά ελέγχων πάνω στην επιφάνεια φόρμα , προσθέστε λίγο κώδικα , τότε καλέστε τη μέθοδο ShowDialog για να εμφανιστεί η φόρμα . Κλείνοντας τη μορφή δεν είναι τόσο έξυπνο . Αντί απλά καλώντας τους στενούς μεθόδους , οι σχεδιαστές πλαίσιο αποφάσισαν ότι θα πρέπει πρώτα να ορίσετε την ιδιότητα DialogResult επιστρέφει τον έλεγχο στην κύρια φόρμα , στη συνέχεια, αφήστε αυτή η μορφή καλείτε τη μέθοδο close . Ακολουθήστε τα παρακάτω βήματα για να μάθετε τον σωστό τρόπο για να κλείσετε ένα παράθυρο διαλόγου . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio ή Visual Basic Express ( 2005 ή αργότερα )
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Visual Studio και να δημιουργήσετε ένα νέο έργο παράθυρα μορφή . Κάντε κλικ στο " Αρχείο " τότε " New Project" για να ανοίξει το νέο παράθυρο φόρμα . Επιλέξτε Visual Basic , Windows, Windows φόρμας του έργου και ονομάστε το " DialogDemo . " 2

Δημιουργία φόρμας διαλόγου . Κάντε κλικ στο " Project" τότε "Προσθήκη φόρμας των Windows . " Ονομάστε το έντυπο " DialogForm " και κάντε κλικ στο "OK".
Εικόνων 3

Προσθέστε δύο κουμπιά στο παράθυρο διαλόγου μορφή . Κάντε κλικ στο εικονίδιο Εργαλειοθήκη και σύρετε δύο κουμπιά στη φόρμα . Κάντε δεξί κλικ στο πρώτο κουμπί , στη συνέχεια, επιλέξτε " Ιδιότητες". Όταν εμφανιστεί η λίστα ακινήτων , αλλάξτε την ιδιότητα όνομα σε " btnOK " και αλλάξτε την ιδιότητα κειμένου σε "OK". Κάντε κλικ στο " Escape" για να κλείσετε το παράθυρο ιδιοτήτων . Επαναλάβετε αυτά τα βήματα για να αλλάξετε το όνομα του δεύτερου κουμπιού στο " btnCancel » και το κείμενο στο "Cancel ".
Η

4 Κάντε διπλό κλικ στο κουμπί "OK" και το παράθυρο επεξεργασίας κώδικα θα εμφανιστεί . Αλλάξτε τον κώδικα ως εξής :

Private Sub btnOK_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές btnOK.Click

DialogResult = DialogResult.OK

End Sub

ρύθμιση της ιδιότητας DialogResult σηματοδοτεί το πλαίσιο για να μεταφέρει τον έλεγχο πίσω στο πρόγραμμα που καλεί . Η αξία της DialogResult γίνεται η τιμή επιστροφής της μεθόδου ShowDialog . Οι κοινές αξίες είναι "OK" " Ακύρωση ", " Ναι", " Όχι" και "Εγκατάλειψη ". Εδώ θα επιστρέψει στο "OK. "
5

δεξί κλικ οπουδήποτε στο παράθυρο του editor και επιλέξτε "View Designer . " Όταν εμφανιστεί το παράθυρο διαλόγου μορφή , κάντε διπλό κλικ στο πλήκτρο "Ακύρωση" , στη συνέχεια, προσθέστε τον ακόλουθο κώδικα :

Private Sub btnCancel_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές btnCancel.Click

DialogResult = DialogResult.Cancel

End Sub

Εδώ θα επιστρέψει " Ακύρωση ".
Η 6

δεξί κλικ Form1.vb για την Εξερεύνηση λύση Στη συνέχεια επιλέξτε "View Designer . " Θα εμφανιστεί η αρχική του μορφή . Σύρετε ένα κουμπί από τη γραμμή εργαλείων επάνω στη φόρμα , στη συνέχεια, κάντε διπλό κλικ στο κουμπί . Όταν εμφανιστεί το παράθυρο editor , πληκτρολογήστε τον παρακάτω κώδικα .

Private Sub btnTest_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές btnTest.Click

Dim frm As New DialogForm

Αν frm.ShowDialog = DialogResult.OK τότε

MsgBox ( "OK " )

υπόλοιπα

MsgBox ( " Ακυρώθηκε " )

End If

frm.Close ( )

End Sub

Όταν το κουμπί γίνεται κλικ , δημιουργούμε ένα νέο στιγμιότυπο του διαλόγου μορφή , τότε καλέστε τη μέθοδο της ShowDialog . Αυτό ανοίγει τη μορφή διαλόγου και περιμένει την είσοδο του χρήστη . Όταν είτε το κουμπί γίνεται κλικ , ο έλεγχος πέρασε παίρνει πίσω Φόρμα1 , και να εμφανίσει ένα μήνυμα με βάση την αξία της DialogResult . Μετά από αυτό, κλείστε τη φόρμα.
Η

7 Κάντε κλικ στο κουμπί " F5 " για να ελέγξετε το πρόγραμμα .
Η
εικόνων