Kliknite tukaj, da si ogledate profil, kot ga vidijo drugi

Uporaba okenca za sporočilo

  V tej lekciji se bomo naučili izdelovati sporočilna okna v Visual Basicu. Ta okna nam prikazujejo opozorila, medtem ko teče program.
 
 
1
 
 
Zaženite Visual Basic in ustvarite novo aplikacijo.

Za začetek dodajte na dokument nekaj "škatel" z besedilom (t.i. TextBox).
 
 
2
 
 
Nato dodajte še gumb ...
 
 
3
 
 
Z dvoklikom na gumb nato preidite v obrazec za pisanje kode.
 
 
4
 
 
Sedaj pa bomo vpisali kodo, ki bo prikazovala sporočilna okna ob vsakem kliku na gumb.

Procedura, ki prikaže okno izgleda takole:

MsgBox("besedilo").

 Je zelo preprosta skripta in mi jo bomo v naš dokument dodali s pomočjo If stavka (glej prejšnjo lekcijo).
Zapišimo torej:

If TextBox1.Text = "Dober dan" Then
      MsgBox("Vpisali ste dober dan!")
Else
     MsgBox ("Niste vpisali dober dan")
End If
 
 
 
 
 
5
 
 
Nato zaženite program s klikom na Start Debugging.
 
 
6
 
 
Nato v polje za besedilo vpišite  Dober dan in potrdite s klikom na gumb.

Prikaže se vam opozorilo, na katerem piše, da ste vpisali Dober dan.
 
 
7
 
 
Sedaj pa v polje za besedilo vpišite nekaj drugega.
 
 
8
 
 
Tudi to potrdite na gumb in prikazalo se vam bo oknece s sporočilom, da niste vpisali dober dan.

Ta sporočilna okenca lahko uporabljate v programu za prikazovanje sporočil uporabnikom med potekom programa.

Za več odgovorov se obrnite pa na forum ...
 
 
Komentiraj
 
 
 
 
 
20.6.2009, 8:22
Vedno boljše lekcije.
Kar nadaljuj, Erco.
 
 
 
 
20.6.2009, 9:12
Uporabno recimo za kakšen kviz oz. kaj podobnega, da lahko takoj preveriš.
 
 
 
 
20.6.2009, 10:18
Erco, če so že sporočilna okence bi bilo fino razložiti vse parametre procedure MsgBox

MsgBox(Prompt, Buttons, Title)

Torej String je besedilo, title je tisti naslov zgoraj, kjer se sicer prikaže ime programa, pri Buttons pa lahko izbirate med možnostmi npr.: YesNoCancel; OKOnly ... Izberete gumbe, ki se bodo prikazali in z ifom lahko tudi preverite, kateri gumb je bil pritisnjen:

If MsgBox("hehe", MsgBoxStyle.YesNoCancel) = MsgBoxResult.Yes Then
Msgbox("You clicked Yes!")
End If


Med gumbi lahko določite tudi ikono v sporočilu:

Exclamation, Information, Critical (rumen klicaj, vprašaj, križec). Več parametrov pri gumbih ločite s plusom:

If MsgBox("hehe", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Critical + MsgBoxStyle.SystemModal) = MsgBoxResult.Yes Then

End If




spremenil: kljuka (20.6.2009 ob 10.19.30)
 
Prijava in registracija
 
 
 
Zmaga.com ponuja brezplačno in razumljivo učenje računalniških programov, vas na enkraten način spozna z različnimi svetovnimi jeziki, s podrobno obrazloženimi recepti prikaže čare kulinarike in vam prežene strahove pred domačimi opravili.
 
 
Poleg tega lahko prebirate poučne članke, ki so namenjene širjenju naše splošne razgledanosti ter preverite svoje znanje z priljubljenim in enostavnim sistemom za preverjanje znanja. Če med vsebinami, ki se dodajajo vsak dan, ne najdete želenega znanja, je za vaša vprašanja na voljo dobro obiskan forum, kjer lahko tudi aktivno sodelujete. V primeru, da bi radi svoje praktično znanje delili z ostalimi, pa to lahko storite preko preprostega vmesnika za dodajanje vsebin. Zmagajte z znanjem z Zmaga.com!