Dobrý deň. Pokúšam sa spraviť program pokladňu cez Visual Basic 6. Teraz robím konkrétne Sklad. Mám List1 List2 a List3 a potom Command1. V Liste1 mám položky 1 2 3. V liste 2 to isté len namiesto 1 2 3 mám A B C a v treťom mám X Y Z. Keď kliknem napríklad v Liste2 na položku C a kliknem na Command1 (čo som naskriptoval že odstráni danú položku) tak chcem, vzhľadom na to, že je to 3. item tak chcem aby aj v Liste 1 a 3 aby sa odstránil 3. item spolu aj s tým v Liste2 bez toho aby som musel mazať každé zvlášť. Priložil som aj obrázok pre istotu ak by ste nerozumeli.
POZOR! SKÚSTE MI POVEDAŤ NEJAKÝ INÝ SKRIPT AKO JE
--------------------------------------------------------------------------------
Private Sub Command1_Click ()
List1.RemoveItem "3"
List2.RemoveItem "C"
List3.RemoveItem "Z"
End Sub
alebo
List3.RemoveItem (List1.itemIndex)
List2.RemoveItem (List1.itemIndex)
List1.RemoveItem (List1.itemIndex)
---------------------------------------------------------------------------
P.S.: Chcem aby boli te Listy ako keby na seba naviazane. Ak vymažem 45. riadok v Liste1 tak sa vymaže 45. riadok a j v ostatných.[/b]
Ak budete vedieť skript len na VB2008 a nie na VB6 tak mi aj ten napíšte. Díkes
Ďakujem za pomoc.[/b]
Visual Basic 6, potrebujem pomoct, snazim sa urobit pokladnu
-
tom1597530
Zablokovaný
- Príspevky: 170
- Registrovaný: 18 okt 2008, 14:28
Visual Basic 6, potrebujem pomoct, snazim sa urobit pokladnu
- Prílohy
-
- tu je obrázok ako si to predstavujem
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
takéto čosi si skúšal?
Kód: Vybrať všetko
List3.RemoveItem(List1.itemIndex)
List2.RemoveItem(List1.itemIndex)
List1.RemoveItem(List1.itemIndex)-
tom1597530
Zablokovaný
- Príspevky: 170
- Registrovaný: 18 okt 2008, 14:28
Počkaj vyskúšam a dám ti vedieťaudiotrack napísal:takéto čosi si skúšal?Kód: Vybrať všetko
List3.RemoveItem(List1.itemIndex) List2.RemoveItem(List1.itemIndex) List1.RemoveItem(List1.itemIndex)
//autoeditácia príspevku ( 20 May 2009, 20:18 )
Vypísalo mi chybu: Method or data member not foundaudiotrack napísal:takéto čosi si skúšal?Kód: Vybrať všetko
List3.RemoveItem(List1.itemIndex) List2.RemoveItem(List1.itemIndex) List1.RemoveItem(List1.itemIndex)
//autoeditácia príspevku ( 20 May 2009, 20:26 )
POZNÁTE EŠTE NIEČO???
-
audiotrack
VIP
- Príspevky: 25958
- Registrovaný: 09 sep 2005, 18:39
- Kontaktovať používateľa:
tak skús
Kód: Vybrať všetko
List3.RemoveItem List1.ListIndex
List2.RemoveItem List1.ListIndex
List1.RemoveItem List1.ListIndex-
tom1597530
Zablokovaný
- Príspevky: 170
- Registrovaný: 18 okt 2008, 14:28
Bolo to List3.removeitem listindex atakdalej.audiotrack napísal:tak skúsKód: Vybrať všetko
List3.RemoveItem List1.ListIndex List2.RemoveItem List1.ListIndex List1.RemoveItem List1.ListIndex
Diky. Velmi si mi pomohol. Teraz mozes zamknut temu. Ahoj
//autoeditácia príspevku ( 20 May 2009, 20:36 )
POČKAŤ EŠTE NIEČO. Keď kliknem na B tak chcem aby mi označilo aj 2 aj Y. Ako to spravím??????
//autoeditácia príspevku ( 20 May 2009, 20:43 )
Prosím ťa, ešte jedno, keď kliknem v liste2 na B tak chcem aby označilo aj v liste1 dvojku a v liste3 pismeno Yaudiotrack napísal:tak skúsKód: Vybrať všetko
List3.RemoveItem List1.ListIndex List2.RemoveItem List1.ListIndex List1.RemoveItem List1.ListIndex
-
manager666
Star
- Príspevky: 642
- Registrovaný: 12 aug 2007, 13:29
Kód: Vybrať všetko
Private Sub List2_Click()
List1.Selected(List2.ListIndex) = True
List3.Selected(List2.ListIndex) = True
End Sub
-
tom1597530
Zablokovaný
- Príspevky: 170
- Registrovaný: 18 okt 2008, 14:28
len for fun, lebo sa strasne doma nudimmanager666 napísal:p.s. dufam,ze programy robis only for fun...Kód: Vybrať všetko
Private Sub List2_Click() List1.Selected(List2.ListIndex) = True List3.Selected(List2.ListIndex) = True End Sub
diky