[es] - Kod za kreiranje listbox-a

User21
Hrvatska

Član broj: 252393
Poruke: 11
*.adsl.net.t-com.hr.

Profil

^{31.05.2012. u 18:18 - pre 145 meseci}

Imam 2 textboxa i 2 commandbuttona

pritiskom na command1 kreiram listu naziva text1.text

Code:
Dim lst As ListBox
Set lst = Me.Controls.Add("VB.ListBox", Text1.Text, Form1)
lst.Left = 10
lst.Top = 10
lst.Height = 1000
lst.Width = 1000
lst.Visible = True
lst.ZOrder 0

kako da pritiskom na commadn2 dodam text2.text u listu koju sam prethodno kreirao

Odgovor na temu

MSElectronics
MSElectronics
Novi Sad

Član broj: 301507
Poruke: 5

Profil

Re: Kod za kreiranje listbox-a

^{31.05.2012. u 19:41 - pre 145 meseci}

Možda ovako nešto?

Code:

Private Sub Command2_Click()

   For Each ctl In Controls
        If ctl.Name = Text1.Text Then
            ctl.AddItem Text2.Text
            'moze i
            'Me.Controls(Text1.Text).AddItem Text2.Text
        End If
    Next

End Sub

Mada mi nije jasna svrha toga ali nije ni važno da mi bude jasno :)
Pozdrav

Odgovor na temu

User21
Hrvatska

Član broj: 252393
Poruke: 11
*.adsl.net.t-com.hr.

Profil

Re: Kod za kreiranje listbox-a

^{31.05.2012. u 19:49 - pre 145 meseci}

Hvala puno,radi perfektno

Treba mi zato sto ce mi nekad trebati 3 nekad 4 a nekad i vise listi

a u text2 mi pise u koju listu trebam dodati podatak.

Još jednom hvala puno!! :D

Odgovor na temu

MSElectronics
MSElectronics
Novi Sad

Član broj: 301507
Poruke: 5

Profil

Re: Kod za kreiranje listbox-a

^{31.05.2012. u 19:55 - pre 145 meseci}

ne nego u Text1 piše u koju listu treba da doda podatak koji piše u Text2 (to si i tražio)

Odgovor na temu

User21
Hrvatska

Član broj: 252393
Poruke: 11
*.adsl.net.t-com.hr.

Profil

Re: Kod za kreiranje listbox-a

^{31.05.2012. u 20:04 - pre 145 meseci}

ma da to,ispricavam se pobrkao sam text1 i text2

Moze jos jedno pitanje,

kako da provjerim dali lista postoji ,a ako ne da je napravi?

kada radim sa "if then else" izbacuje mi For without end if

gdje grijesim(vjerovatno nesto banalno)

Code:
For Each ctl In Controls
If ctl.Name = Text1.Text Then
Form1.Caption = "postoji"
Else

Dim lst As ListBox

Set lst = Me.Controls.Add("VB.ListBox", Text1.Text, Form1)
lst.Left = 10
lst.Top = 10
lst.Height = 1000
lst.Width = 1000
lst.Visible = True
lst.ZOrder 0
End If

Odgovor na temu

MSElectronics
MSElectronics
Novi Sad

Član broj: 301507
Poruke: 5

Profil

Re: Kod za kreiranje listbox-a

^{31.05.2012. u 20:11 - pre 145 meseci}

Zaboravio si NEXT za FOR

Code:

   For Each ctl In Controls

        If ctl.Name = Text1.Text Then
                 'znaci da postoji sa tim imenom

        End If

    Next

Takodje možeš da dodaš u command2 da i proveri da li je kontrola sa tim imenom listbox (u slučaju da se pojavi kontrola koja ima isti naziv kao u text1 ali da nije listbox došlo bi do greške u prethodnom primeru)

Code:

Private Sub Command2_Click()

   For Each ctl In Controls
        If ctl.Name = Text1.Text And (TypeOf ctl Is ListBox) Then
            ctl.AddItem Text2.Text
            'moze i
            'Me.Controls(Text1.Text).AddItem Text2.Text
        End If
    Next

End Sub

Odgovor na temu

User21
Hrvatska

Član broj: 252393
Poruke: 11
*.adsl.net.t-com.hr.

Profil

Re: Kod za kreiranje listbox-a

^{01.06.2012. u 17:20 - pre 144 meseci}

Hvala za ovo iznad sve radi super,sve 5 :D !

E sad kako bi mogao da pretrazim sve liste na formi ako im ne znam ime i ne znam koliko ih ima

znaci

IF sveliste.list(8) = "0" then else

i pri tome da mi neizbacuje grsku ako jedna od listi nema 8 vec 4 unosa?

Hvala jos jednom

Odgovor na temu

MSElectronics
MSElectronics
Novi Sad

Član broj: 301507
Poruke: 5

Profil

Re: Kod za kreiranje listbox-a

^{05.06.2012. u 18:48 - pre 144 meseci}

Ne znam da li sam dobro razumeo ali možda ovako nešto?

Code:

   For Each ctl In Controls                   ' pretrazuje sve kontrole
        If TypeOf ctl Is ListBox Then       ' ako je kontrola ListBox
            For i = 0 To ctl.ListCount - 1   ' pretrazuje sve elemente list
                If ctl.List(i) = "text" Then   ' trazi "tekst" u toj listi
                    'nasao
                    MsgBox "Nadjeno u listi " & ctl.Name & " na poziciji " & i
                End If
            Next i
        End If
    Next                                            'sledeca kontrola

Odgovor na temu