VB6 ListBox cu coloane ?

#1
Shtahh

Posted 29 March 2016 - 03:17

Junior Member

Grup: Members
Posts: 92
Înscris: 03.02.2013

Salutare dragii mei!
Am facut o aplicatie cu controlul Data (DAO). Am doua controale ListBox in care se sorteaza date in functie de alte ComboBox, prin metoda:

While not Data1.Recordset.EOF
..Instructiuni..
List1.Additem Data1.Recordset!Nume & Space(3) & ... adresa & Space(3) & ..... Telefon, .. etc. (mai multe field-uri)
....MoveNext

Adica toate intr-o singura coloana.

Nu gasesc posibilitatea/varianta prin care fiecare field sa corespunda unei coloane din ListBox, in sensul ca as apela la textul sau valoarea inscrisa in coloana pe care o selectez decat sa apelez la decupare din toata linia cu Left, Mid sau Right, Trim etc. pentru AddNew intr-un alt control, Data2 ori pentru .Find.
Asta e problema.
Facusem eu mai demult intr-un excel, in vba asa ceva, unde exista index si pentru coloana ListBox1.List(x,y)="text", unde x = randul si y=coloana.
In vb6 nu stiu cum sa fac, desi cred ca nici nu merge ce vreau eu. Totusi am vrut sa intreb.

Back to top

#2
_Smiley_

Posted 29 March 2016 - 06:36

Guru Member

Grup: Senior Members
Posts: 20,025
Înscris: 24.02.2006

https://msdn.microso...x(v=vs.90).aspx

Edited by _Smiley_, 29 March 2016 - 06:37.

Back to top

#3
neagu_laurentiu

Posted 29 March 2016 - 09:31

Guru Member

Grup: Senior Members
Posts: 40,596
Înscris: 30.07.2003

_Smiley_, on 29 martie 2016 - 06:36, said:

https://msdn.microso...x(v=vs.90).aspx

Asta-i VB.NET si el vrea VB6.

Cauta in controalele puse la dispozitie ( https://msdn.microso...4(v=vs.60).aspx ) daca stie lista aia asa ori ai altele (listview sau grid).

Back to top

#4
Shtahh

Posted 29 March 2016 - 11:16

Junior Member

Grup: Members
Posts: 92
Înscris: 03.02.2013

Am cautat peste tot 2 zile la rand si n-am gasit nimic.
Abia acum. Posted Image

Am Add Components >> Microsoft Forms 2.0
Merge asa:

ListBox1.AddIitem
ListBox1.List(x,y) = "text"
samd pentru fiecare coloana din randul x.

Back to top

#5
dani.user

Posted 29 March 2016 - 18:59

Guru Member

Grup: Senior Members
Posts: 30,233
Înscris: 24.02.2007

https://www.microsof...s.aspx?id=10019

Back to top

Anunturi

Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

VB6 ListBox cu coloane ?

#1 Shtahh Posted 29 March 2016 - 03:17

#2 _Smiley_ Posted 29 March 2016 - 06:36

#3 neagu_laurentiu Posted 29 March 2016 - 09:31

#4 Shtahh Posted 29 March 2016 - 11:16

#5 dani.user Posted 29 March 2016 - 18:59

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
Shtahh

Posted 29 March 2016 - 03:17

#2
_Smiley_

Posted 29 March 2016 - 06:36

#3
neagu_laurentiu

Posted 29 March 2016 - 09:31

#4
Shtahh

Posted 29 March 2016 - 11:16

#5
dani.user

Posted 29 March 2016 - 18:59