Microsofts Visual Basic gjør det enkelt å bygge dialog- baserte skjemaer . Bare dra noen kontroller på skjemaet overflaten , legg til litt kode, og deretter ringe ShowDialog metode for å gjøre skjemaet vises. Lukke formen er ikke like intuitiv . I stedet for å bare kalle de nære metoder , ramme- designere besluttet at vi bør først sette DialogResult eiendom for å returnere kontrollen til den viktigste formen , så la dette skjemaet kalle det nære metoden. Følg disse trinnene for å lære den riktige måten å lukke en dialogboks . Du trenger
Microsoft Visual Studio eller Visual Basic Express ( 2005 eller senere )
Vis flere instruksjoner
en

Åpne Visual Studio og opprette en ny Windows skjema prosjektet. Klikk på "File " og deretter " Nytt prosjekt " for å åpne det nye skjemaet vinduet. Velg Visual Basic, Windows , Windows Form prosjektet og gi den navnet " DialogDemo . "
2

Lag en dialog skjema . Klikk "Project " og deretter " Legg til Windows Form . " Navngi skjemaet " DialogForm " og klikk " OK ".
3

Legg to knapper til dialogen skjemaet. Klikk på Toolbox -ikonet og dra to knapper på skjemaet . Høyreklikk den første knappen og velg "Properties". Når eiendommen vises, endre navnet eiendommen til " btnOK » og endre teksten eiendommen til " OK ". Klikk på " Escape " for å lukke eiendommen vinduet. Gjenta disse trinnene for å endre den andre knappen navn til " btnCancel " tekst til "Avbryt ".
4

Dobbeltklikk på " OK "-knappen og koden editor vinduet vises . Endre koden til å lyde som følger:

Private Sub btnOK_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak btnOK.Click

DialogResult = DialogResult.OK

End Sub

Stille DialogResult eiendommen signaliserer rammeverk for å overføre kontrollen tilbake til å kalle programmet . Verdien av DialogResult blir returverdi av ShowDialog metoden. Vanlige verdier er " OK ", " Avbryt ", " Ja ", " Nei" og "Avbryt ". Her er vi tilbake på "OK ".
5

Høyreklikk hvor som helst på redaktøren vinduet og velg "Vis Designer. " Når dialogen skjemaet vises , dobbeltklikker du på "Avbryt" knappen og deretter legge til følgende kode :

Private Sub btnCancel_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak btnCancel.Click

DialogResult = DialogResult.Cancel

End Sub

Her vi tilbake "Avbryt ".
6

Høyreklikk Form1.vb på Solution Explorer velg "View designer. " Den opprinnelige form vil vises . Dra en knapp fra verktøylinjen på skjemaet dobbeltklikk deretter på knappen . Når redaktøren vises, skriv inn følgende kode .

Private Sub btnTest_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak btnTest.Click

Dim frm As New DialogForm
p Hvis frm.ShowDialog = DialogResult.OK Deretter

MsgBox ( " OK")

Else

MsgBox ( " Avbrutt ")
< p> End If

frm.Close ( )

End Sub

Når knappen blir klikket , skaper vi en ny forekomst av dialogen form, deretter ringe sin ShowDialog metode . Dette åpner dialogen form og venter på brukerens input. Når du trykker på blir klikket , blir kontrollen sendes tilbake til Form1 , og vi viser en melding basert på verdien av DialogResult . Etter det , lukker vi skjemaet.
7

Klikk på " F5 " for å teste programmet .