Ako zatvorenie formuláre , ktoré sú otvorené ShowDialog

Microsoft Visual Basic umožňuje ľahko vytvárať formuláre založené na dialógové okno . Jednoducho pretiahnite niekoľko ovládacích prvkov na povrch formy , pridať trochu kódu , a potom volať metódu ShowDialog , aby forma sa objaví. Zatvorenie formulára nie je tak intuitívne . Namiesto toho , aby jednoducho volanie úzke metódy , rámcovej návrhári rozhodli , že by sme mali najprv nastaviť vlastnosť DialogResult vrátiť riadenie do hlavného formulára , potom nech je táto forma volanie metódy Close . Postupujte podľa týchto krokov sa dozviete , ako správne dialógové okno zatvorte . Veci , ktoré budete potrebovať v Microsoft Visual Studio alebo Visual Basic Express ( 2005 alebo novší )
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte aplikáciu Visual Studio a vytvoriť nový formulár pre systém Windows projektu . Kliknite na " Súbor " a potom " New Project " sa otvorí nové okno formulára . Zvoľte Visual Basic , Windows , Windows projektu formulár a pomenujte ju " DialogDemo . "
2

Vytvoriť dialógové formulára . Kliknite na " Project " a potom " Pridať formulár pre systém Windows . " Názov formulára " DialogForm " a kliknite na " OK " .
3

Pridať dve tlačidlá do dialógového formulára . Kliknite na ikonu Nástroje a pretiahnite dve tlačidlá do formulára . Pravým - kliknite na prvé tlačidlo vyberte " Vlastnosti " . Keď sa zobrazí zoznam vlastností , zmeniť názov vlastnosť " btnOk " a zmeňte vlastnosť text na " OK " . Kliknite na tlačidlo " Escape " zatvorte okno vlastností . Opakujte tieto kroky pre zmenu názvu druhé tlačidlo do polohy " btnCancel " a textom " Zrušiť " .
4

Double - kliknite na tlačidlo " OK " a okno editora kódu sa objaví . Zmeňte kód takto :

Private Sub btnOK_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky btnOK.Click

DialogResult = DialogResult.OK

End Sub

Nastavenie vlastnosti DialogResult signalizuje rámec pre prenos konania späť do volajúci program . Hodnota DialogResult sa návratová hodnota metódy ShowDialog . Bežné hodnoty sú " v poriadku " , " Zrušiť " , " Áno " , " Nie" a " Zrušiť " . Tu sa vraciame na " OK " .
5

Kliknite pravým tlačidlom myši v okne editora a vyberte " Zobraziť Designer . " Keď sa zobrazí dialógové okno formulára , dvakrát kliknite na tlačidlo " Zrušiť " a potom pridajte nasledujúci kód :

Private Sub btnCancel_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky btnCancel.Click

DialogResult = DialogResult.Cancel

End Sub

vrátime " Zrušiť " .
6

Kliknite pravým tlačidlom myši Form1.vb na roztoku Explorer potom vyberte " Zobraziť Designer . " Objaví sa pôvodnej podobe . Presuňte tlačidlo z panela nástrojov do formulára a potom dvakrát kliknite na tlačidlo . Akonáhle sa zobrazí okno editora , zadajte nasledujúci kód .

Private Sub btnTest_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky btnTest.Click

Dim frm As New DialogForm

Ak frm.ShowDialog = DialogResult.OK Potom

MsgBox ( " OK " )

Else

MsgBox ( " Zrušené" )

End If

frm.Close ( )

End Sub

Keď sa dostane kliknutí na tlačidlo , vytvoríme novú inštanciu dialógovom formulára , a potom volať jeho metódu ShowDialog . Otvorí sa dialógové formulár a čaká na vstup užívateľa . Keď sa dostane buď kliknutí na tlačidlo , ovládanie je odovzdaný späť do Form1 a zobrazíme správu , založenú na hodnote DialogResult . Za to , že sme zatvorte formulár .
7

Kliknite na " F5 " test program .

• Predchádzajúca strana: Ako sa pripojiť video na VB.NET 
• Ďalšia strana: Ako zobraziť čas v VB.Net