MyCity » Visual Studio -> Visual Basic » Gde je problem???

Gde je problem???

Napisano na dan: 8.1.2007

Gde je problem???
Sledeća strana Pagination

Idi na vrh

Poslao: 08 Jan 2007 21:34
Idi na vrh
offline
  • Pridružio: 28 Jul 2006
  • Poruke: 156

Ne mogu da nadjem gresku. Jednostavno nece da uradi nista! Imam 2 text boxa i jedan Label (caption) i button treba da sprovodi akaciju na osnovu toga da li je tekst unesen u polja. Probao sam i bez deklaracije, i sve cega sam se setio, ali nista ne pomaze. Ako ovaj kod ne valja, a ne bi me cudilo, ako mozete da napisete neki koji radi ovo. Radim u VB-u 6.


Private Sub btn_learn_uno_Click() Dim x, y, z As String x = txt_learn_pit.Text y = txt_learn_odg.Text z = lbl_learn_sta.Caption If x = "" Then z = "Niste napisali pitanje." ElseIf y = "" Then z = "Niste napisali odgovor." ElseIf x = All And y = All Then MsgBox "kako si" ElseIf x And y = "" Then z = "Niste napisali ni pitanje ni odgovor." End If End Sub



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 08 Jan 2007 21:37
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Sta je "All" ?



Poslao: 08 Jan 2007 22:18
Idi na vrh
offline
  • Pridružio: 28 Jul 2006
  • Poruke: 156

Bilo sta. Radilo mi je u nekim drugim programima, koristio sam kao oznaku za sve stringove i vrednosti.

Poslao: 13 Jan 2007 19:04
Idi na vrh
offline
  • Pridružio: 01 Nov 2005
  • Poruke: 43
  • Gde živiš: Čepin

Probaj ovak

Private Sub btn_learn_uno_Click() Dim x, y, z As String x = txt_learn_pit.Text y = txt_learn_odg.Text z = lbl_learn_sta.Caption If x = "" Then z = "Niste napisali pitanje." end if If y = "" Then z = "Niste napisali odgovor." end if If not x = "" And y = All Then MsgBox "kako si" end if If x And y = "" Then z = "Niste napisali ni pitanje ni odgovor." End If End Sub

Poslao: 13 Jan 2007 23:01
Idi na vrh
offline
  • Pridružio: 28 Jul 2006
  • Poruke: 156

@ blackone

Javicu sutra da li radi. Hvala!

Poslao: 14 Jan 2007 09:42
Idi na vrh
offline
  • Pridružio: 01 Nov 2005
  • Poruke: 43
  • Gde živiš: Čepin

e onaj kod neradi napravio sam par grešaka ali sam ih ispravio i isprobo kodmene radi.

Private Sub btn_learn_uno_Click() Dim x, y As String x = txt_learn_pit.Text y = txt_learn_odg.Text If x = "" Then lbl_learn_sta.Caption = "Niste napisali pitanje." End If If y = "" Then lbl_learn_sta.Caption = "Niste napisali odgovor." End If If Not x = "" And Not y = "" Then MsgBox "kako si" End If If x = "" And y = "" Then lbl_learn_sta.Caption = "Niste napisali ni pitanje ni odgovor." End If End Sub

Poslao: 14 Jan 2007 11:50
Idi na vrh
offline
  • Pridružio: 28 Jul 2006
  • Poruke: 156

Radi. Hvala opet.

MyCity » Visual Studio -> Visual Basic » Gde je problem???

Ko je trenutno na forumu
 

Ukupno su 1049 korisnika na forumu :: 38 registrovanih, 5 sakrivenih i 1006 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., AK - 230, babaroga, bokisha253, comi_pfc, Denaya, Djordje29, Haris, Krusarac, Kubovac, kybonacci, laki_bb, Magistar78, mean_machine, Mendonca, milimoj, mrav pesadinac, MrNo, nebidrag, Nikola70, nuke92, Panter, pein, Polemarchoi, Povratak1912, rovac, Srle993, trajkoni018, Tvrtko I, vasa.93, vathra, Vatreni Zmaj, Vl veliki, vlahale, Zoca, zziko, Žoržo, šumar bk2