Basic ponovo...

B

BIVSI ZEKEN

Početnik
Poruka
36
Znam da su vam vise dosadila moja pitanja, ali imam jedan problem. Radi se o programskom codu kod Visual Basica. Postavio sam jedan objekat za cekiranje. Zeleo bih da se prilikom njegovog cekiranja pojavi izvestan tekst. Ja sam napisao cod ali nesto nije u redu jer ne radi.

Check1.Value = Unchecked
If (Check1.Value = Checked) Then Print "Neki tekst"
End Sub

Sta ovde ne valja?
 
Ne radim u VB ali ovako napisan kod nece nikad izvrsiti sa ispisom "Neki tekst"

Najpre iniciras Check1 na False a neposredno za tim testiras status. Naravno da nece nikad da ti ispise "Neki tekst"

Inicijalizacija kontrola na neke vrednosti se ne vrsi neposredno pred ispitivanje njihove sadrzine/statusa.. Mora se inicijalizacija izvrsiti na drugom mestu a ne neposredno pred testiranje.
proveri logiku.

PS:
Dok sam kucao odgovor, promenio si "false" u Unchecked..
Pre svega, ne zna se tip Unchecked varijable. Checkbox uvek mora da se referise na LOGICKU varijably, koja vraca TRUE ili FALSE. Ako imas varijable ciji sadrzaj je TRUE ili FALSE, onda ok, inace ti tek ovako nece raditi
 
VB2005

Kod: 
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
  If CheckBox1.Checked = True Then
            MsgBox("Cekirano")
        Else
            MsgBox("Nije Cekirano")
        End If
    End Sub

VB 6

Kod: 
Private Sub Check1_Click()
    If Check1.Value = 1 Then
        MsgBox("Cekirano")
    Else
        MsgBox("Nije Cekirano")
    End If
End Sub
 
Koliko sam primetio završio si podrutinu sa End Sub a nigde je nisi započeo. Program bi ti u ovom slučaju prijavio grešku.
Dakle, ovo što si napisao radi ali moraš navesti događaj pod kojim će se ovaj deo koda izvršiti.
Unchecked ne moraš navesti jer je kontrola po default-u dečekirana.
Recimo:
Kod: 
Private Sub Check1_Click()
    If (Check1.Value = Checked) Then Print "Neki tekst"
End Sub
 
Prijavite se ili registrujte da biste poslali poruku.

Back
Top