[ 7775 @ 18.01.2004. 12:44 ] @
list1 sa uključenim checkbox.

kako da mi se svake sekunde lista(samo sa označenim djelovima liste)uspoređuje sa textbox18

[ Safet Beriša @ 18.01.2004. 13:50 ] @
Ovo bi trebalo da odradi posao, pod uslovom da sam razumeo šta ti treba.

Code:
Private Sub Check1_Click()
    If Check1.Value = 1 Then
        Timer1.Enabled = True
    ElseIf Check1.Value = 0 Then
        Timer1.Enabled = False
    End If
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
    If List1.Text = Textbox18.Text Then
        'Sta hoces da se uradi ako su vrednosti iste.
    End If
End Sub
[ mladenovicz @ 18.01.2004. 17:08 ] @
Checkboxovi kod Listbox kontrole se koriste za multiselect feature.

Code:

Private Sub Form_Load()
    
    List1.AddItem "1"
    List1.AddItem "2"
    List1.AddItem "3"
    List1.AddItem "4"
    
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Dim i As Integer
    
    If List1.SelCount = 0 Then Exit Sub
    
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
            If List1.List(i) = Textbox18.Text Then
                MsgBox List1.List(i)
            End If
        End If
    Next
    
End Sub
[ 7775 @ 27.01.2004. 13:14 ] @
TO ,ali da mi listu uspoređuje cijelu a ne samo selektirane djelove liste

[Ovu poruku je menjao mladenovicz dana 27.01.2004. u 15:29 GMT]
[ mladenovicz @ 27.01.2004. 13:28 ] @
Da li ti ova linija govori nesto?

Code:

If List1.Selected(i) Then
[ 7775 @ 27.01.2004. 19:46 ] @
ako bi to trebalo biti to onda neradi
[ mladenovicz @ 28.01.2004. 10:37 ] @
A da li ti ova linija (zajedno sa onom proslom) znaci nesto?

Code:

If List1.SelCount = 0 Then Exit Sub


[ 7775 @ 28.01.2004. 15:30 ] @
Radi radi sve je uredu.


Kako kad spremim listu i ponovno je učitam da se stave i kvačice(checkbox)tamo gdje su bile!
[ mladenovicz @ 28.01.2004. 16:19 ] @
Kad snimas listu u fajl, pored teksta upisuj i True/False (selektovan/nije selektovan) i onda kad loadujes, zavisno od ovog drugog parametra, selektuj ga ili nemoj.
[ 7775 @ 28.01.2004. 22:03 ] @
Kako?

Rad s fajlovima i ja ko pas i mačka (ponekad se složimo)
[ mladenovicz @ 29.01.2004. 09:44 ] @
File System Object - rad sa fajlovima i folderima

Pogledaj nekad top teme.
[ 7775 @ 29.01.2004. 20:51 ] @
Već sam posto dosadan u vezi s tom temom ali mi je to potrebno.

Proučio sam šta si rekao!
Ali nema šanse da to sredim

Ako imaš volje i vremena može kod?

Hvala na svemu!
[ mladenovicz @ 30.01.2004. 10:20 ] @
Ne mozes dobiti kod na tacni - (ne)pisano pravilo foruma. Ajde postuj kod koji si ti napravio, pa da vidimo zasto ne radi.
[ 7775 @ 30.01.2004. 12:56 ] @
Code:

Private Sub Form_Load()

 Dim sfile, a As String
    sfile = App.Path + "\" + "alarm.mpl"
    On Error GoTo serr
    Open sfile For Input As #1
    Do Until EOF(1)
    Input #1, a$
    List1.AddItem a$
    Loop
    Close #1
serr:
    Close #1
End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim sfile As String
Dim i As Long
sfile = App.Path + "\" + "alarm.mpl"
On Error GoTo error
Open sfile For Output As #1
For i = 0 To List1.ListCount - 1
    List1.ListIndex = i
     Write #1, List1.Text
Next i
error:
    Close #1
end sub
[ mladenovicz @ 01.02.2004. 18:14 ] @
Ne vidim sta je problem dodati unutar petlje upisivanje jos jedne linije (List1.Selected(i)) i kod citanja iz fajla, isto tako, citati po dve linije u petlji.

Malo komplikovanije bi bilo ako bi se sve upisivalo u istoj liniji sa nekim separatorom, ali ova jednostavnija varijanta je stvarno jednostavna.
[ 7775 @ 01.02.2004. 20:41 ] @
Sve radi! Hvala