Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: PILNE - Zapis to kolekcji - PILNE
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004
PILNE - Zapis to kolekcji - PILNE

Wyobraźmy sobie, że mam kolekcję (Collection), dodałem do niej trochę elementu (konkretnie Stringów). Teraz chcę któryś z nich zmienić. jak to zrobić?

Jeśli próbuję przypisać bezpośrednio:
Kolekcja(Numer) = sJakisTekst

dostaję błąd 424: "Object required".

Ktoś wie, jak to zrobić?
Sprawa jest pilna.

[Post edytowany dnia 07-10-2004 12:33 przez marcin_an]


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

07-10-2004 12:15
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Ja się zbytnio nie znam na kolekcjach (czyt. wogóle się nie znam), ale spróbuj walnąć set Kolekcja(Numer) = sJakisTekst - nie wiem, może pomoże?


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

07-10-2004 16:17
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

no to se przez gygy rozwiązaliśmy problemik. Kawałek kodu, jakby ktoś jeszcze miał problem. Funkcja nie jest dopracowana, ale jak się doda gdzie nie gdzie kropkę nad i, to będzie działać; ważny jest sposób.


Dim Kolekcja As New Collection
Private Sub Form_Load()
Dim ToReplace As Integer, ReplaceText As String
ToReplace = 5
ReplaceText = "mikmas master"
Set Kolekcja = New Collection

Dim I As Byte
For I = 0 To 10
Kolekcja.Add "Master" & I
Next
Kolekcja.Remove ToReplace
Kolekcja.Add ReplaceText, , ToReplace

Dim ToShow As String
For I = 1 To Kolekcja.Count
ToShow = ToShow & Kolekcja.Item(I)
Next
MsgBox ToShow
End Sub


[Post edytowany dnia 07-10-2004 16:37 przez mikmas]


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

07-10-2004 16:36
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Nie sprawdzałem dokłądnie tej funkcji, ale użyłem czegoś podobnego i działa. A ja chyba miałem jakieś zaćmienie... nie wiem, jak mozna było tego nie zauważyć .


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

07-10-2004 19:49
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1