Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

uspoređivanje liste sa timerom

[es] :: Visual Basic 6 :: uspoređivanje liste sa timerom

[ Pregleda: 3550 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

7775

Član broj: 17337
Poruke: 35
*.cmu.carnet.hr



Profil

icon uspoređivanje liste sa timerom18.01.2004. u 12:44 - pre 217 meseci
list1 sa uključenim checkbox.

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

 
Odgovor na temu

Safet Beriša
Malo N. Sad, malo SAD.

Član broj: 17338
Poruke: 929
*.telekom.yu



+3 Profil

icon Re: uspoređivanje liste sa timerom18.01.2004. u 13:50 - pre 217 meseci
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
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: uspoređivanje liste sa timerom18.01.2004. u 17:08 - pre 217 meseci
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

 
Odgovor na temu

7775

Član broj: 17337
Poruke: 35
*.cmu.carnet.hr



Profil

icon Re: uspoređivanje liste sa timerom27.01.2004. u 13:14 - pre 217 meseci
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]
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: uspoređivanje liste sa timerom27.01.2004. u 13:28 - pre 217 meseci
Da li ti ova linija govori nesto?

Code:

If List1.Selected(i) Then

 
Odgovor na temu

7775

Član broj: 17337
Poruke: 35
*.cmu.carnet.hr



Profil

icon Re: uspoređivanje liste sa timerom27.01.2004. u 19:46 - pre 217 meseci
ako bi to trebalo biti to onda neradi
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: uspoređivanje liste sa timerom28.01.2004. u 10:37 - pre 217 meseci
A da li ti ova linija (zajedno sa onom proslom) znaci nesto?

Code:

If List1.SelCount = 0 Then Exit Sub



 
Odgovor na temu

7775

Član broj: 17337
Poruke: 35
*.cmu.carnet.hr



Profil

icon Re: uspoređivanje liste sa timerom28.01.2004. u 15:30 - pre 217 meseci
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!
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: uspoređivanje liste sa timerom28.01.2004. u 16:19 - pre 217 meseci
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.
 
Odgovor na temu

7775

Član broj: 17337
Poruke: 35
*.net.hinet.hr



Profil

icon Re: uspoređivanje liste sa timerom28.01.2004. u 22:03 - pre 217 meseci
Kako?

Rad s fajlovima i ja ko pas i mačka (ponekad se složimo)
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: uspoređivanje liste sa timerom29.01.2004. u 09:44 - pre 217 meseci
File System Object - rad sa fajlovima i folderima

Pogledaj nekad top teme.
 
Odgovor na temu

7775

Član broj: 17337
Poruke: 35
*.net.hinet.hr



Profil

icon Re: uspoređivanje liste sa timerom29.01.2004. u 20:51 - pre 217 meseci
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!
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: uspoređivanje liste sa timerom30.01.2004. u 10:20 - pre 217 meseci
Ne mozes dobiti kod na tacni - (ne)pisano pravilo foruma. Ajde postuj kod koji si ti napravio, pa da vidimo zasto ne radi.
 
Odgovor na temu

7775

Član broj: 17337
Poruke: 35
*.cmu.carnet.hr



Profil

icon Re: uspoređivanje liste sa timerom30.01.2004. u 12:56 - pre 217 meseci
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
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: uspoređivanje liste sa timerom01.02.2004. u 18:14 - pre 217 meseci
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.
 
Odgovor na temu

7775

Član broj: 17337
Poruke: 35
*.net.hinet.hr



Profil

icon Re: uspoređivanje liste sa timerom01.02.2004. u 20:41 - pre 217 meseci
Sve radi! Hvala
 
Odgovor na temu

[es] :: Visual Basic 6 :: uspoređivanje liste sa timerom

[ Pregleda: 3550 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.