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 2723 korisnika na forumu :: 70 registrovanih, 9 sakrivenih i 2644 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: ALEXV, Asparagus, Bo96, boromir, Borski1977, boxbole, braca57, brandža84, Bubimir, C-Gun, cenejac111, Coabelgrade, Crazzer, dekan.m, deLacy, Despot Đurađ, dolinalima, DonRumataEstorski, galico, goran.vvv, Goxy1, Jaxupa, Jecmendo, Joint Chief, Koridor, kovinacc, krasta, kybonacci, M74AB3, marko.markovic, MB120mm, mercedesamg, Milan A. Nikolic, milenko crazy north, mir juzni, mrgud2025, nazgul75, nixos, nnnnnnnnnn, Orc, Petarvu, ping15, Podljub, precan, Prečanin30, raf87, raster12, sap, saputnik plavetnila, Semberija, sevenino, Slingshot, Srki98, Sukhoi235, t.e.m.p.l.a.r., Tafocus, Tamna_strana_Meseca, theNedjeljko, tomigun, toni061, Troja, vaci, Valter071, vdeki, VJ, vladulns, VP6919, Vrač, vrgudinac, Đurđevdan