Molim vas pomozite mi potrebna mi je hitna pomoc oko Visual Basic-a (If .. Then)

[ Igor-Rogi-89 @ 25.01.2004. 12:44 ] @

Potrebna mi je pomoc oko sledec slucaja :

Znam da napisem - If text1.text = "" Then ' uradi nesto
to je kada nista ne pise u text-u jedan , ali kako da namestim da mi uradi nesto ako nesto pise u text-u jedan.

Molim vas svi koji poznajete Visual Basic i znate nacin kako ovaj problem da resim odgovorite mi .

HVALA VAM SVIMA UNAPRED

[Ovu poruku je menjao mladenovicz dana 25.01.2004. u 16:50 GMT]

[ Safet Beriša @ 25.01.2004. 13:49 ] @

Ako te inderesuje da li piše nešto određeno:

Code:
If text1.text = "to nesto" then 'uradi nesto

Ili:

Code:
If text1.text = NekaPromenljiva then 'uradi nesto

A ako ti nije bitno šta piše već samo da nešto piše:

Code:
If text1.text <> "" then 'uradi nesto

[ BeastMaster @ 25.01.2004. 14:41 ] @

Code:
If text1.text = "" Then
         ' uradi nesto
    Else
         ' Uradi to drugo...
end if

[ stalker @ 25.01.2004. 16:30 ] @

Mnogo brzi kod i pregledniji kod je

Code:
if len(text1.text)=0 then

[ Igor-Rogi-89 @ 25.01.2004. 20:19 ] @

Puno svima hvala na odgovorima koje ste mi slali nisam jos samo isprobao onaj poslednji sa len - a i nisam bas najbolje razumeo ono sa promenljivom - ali nema veze u svakom slucaju snasao sam se sa kodom : if text1.text <> "" then ' uradi nesto.

Sada mi se javio mali problom koji sam siguran da moze da se resi samo ga ja jos ne znam - malo veci problem mi predstavlja to sto recimo naprimer kada pisem jedan mali program za matematiku - naporno mi je da pisem stalno :

If txtstranica.text <> "" then
txtpovrsina.text = txtsranica.text ^2

da li postoji nacin ( ja mislim da se to radi preko modula ) da negde ukucam neki programski jezik i da onda stalno umesto txtstranica.text napisem samo slovo aitd.

[ mladenovicz @ 26.01.2004. 09:33 ] @

Tek si poceo da programiras, a vec ti naporno da kucas.
Koristi autocomplete (CTRL+Space), ako neces da kucas sve.

Code:

Private Sub cmdPovrsina_Click()
    If IsNumeric(txtStranica.Text) Then
        txtPovrsina.Text = m_PovrsinaKvadrata(txtStranica.Text)
    Else
        Beep
        txtPovrsina.Text = "0"
    End If
End Sub

Private Function m_PovrsinaKvadrata(a As Long) As Long
    m_PovrsinaKvadrata = a ^ 2
End Function