zxz 05.09.2013 09:42
Predmet:Re: Skola Vb-a za napredne

Evo jos jedan prostiji primjer.
Napravite novi KLas modul i dajte mu ime ART.
PARAMETRI:
Attribute VB_Name = "ART"
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
U njega smjestite sledeci kod:

PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3.  
  4. Private Art_Ime As String
  5. Private Art_ID As String
  6.  
  7.  
  8. Private Sub Class_Initialize()
  9. Art_Ime = "Kisela voda"
  10. Art_ID = "0045"
  11. End Sub
  12. Private Sub Class_Terminate()
  13. Art_Ime = ""
  14. Art_ID = ""
  15. End Sub
  16. Public Property Get Ime_Art() As String
  17. Ime_Art = Art_Ime
  18. End Property
  19.  
  20. Public Property Let Ime_Art(ART As String)
  21. Art_Ime = ART
  22. End Property
  23.  
  24. Public Property Get ID_Art() As String
  25. ID_Art = Art_ID
  26. End Property
  27.  
  28. Public Property Let ID_Art(Id As String)
  29. Art_ID = Id
  30. End Property

Sada otvorite neki obicni modul i u njega kopirajte ovaj kod koji sluzi za probu.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3.  
  4. Function Probaart()
  5. Dim A As ART
  6.  
  7. Set A = New ART
  8. MsgBox A.ID_Art & "-" & A.Ime_Art
  9. A.ID_Art = "0001"
  10. A.Ime_Art = " okolada"
  11.  
  12. MsgBox A.ID_Art & "-" & A.Ime_Art
  13. End Function

Gjoreski 05.09.2013 22:38
Predmet:Re: Skola Vb-a za napredne

Moze malku podetalno okolu ovie klasive na primer zosto sluzat i kako e pravilno da se konfiguriraat.
Gledam od dva romeri sto gi dade deka sekoja klasa sodrzi
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Class_Initialize()
  2. Private Sub Class_Terminate()
i za sekoj odatok sto go obrabotuvame po
eden Public Property Get i Public Property Let

zxz 05.09.2013 22:52
Predmet:Re: Skola Vb-a za napredne

Citiraj zxz:
Klase:
Moduli klase imaju dva dogadjaja, Initialize i Terminate.
Obicno, potprogram dogadjaja Initialize sadrzi onaj programski kod koji treba biti izveden u trenutku kad je stvoren objekt.
Dogadjaj Terminate sadrzi bilo koji programski kod koji se treba izvesti nakon nestanka objekta.

Pored ovoga imamo procedure:
Property Get koja sluzi za citanje
Property Let za izmjenu odnosno unos podatka.

Ovo je veoma szeto i uopsteno.
Poslije cu postaviti par primjera kako to izgleda pa ce mozda biti jasnije.

Znaci pri stvaranju objekta izvrsava se kod Initialize.
Primjer:
Dim K as ImeKlase

set K=New ImeKlase
Znaci kada setujemo klasu izvrsava se kod initializate

zxz 10.09.2013 09:14
Predmet:Re: Skola Vb-a za napredne

Ne vidim neko interesovanje za ovo.
Izgleda da cemo morati prekinuti.
Ako vas ima javite se.

dex 11.09.2013 12:40
Predmet:Re: Skola Vb-a za napredne

U zadnje vreme bio sam dosta na putu, pa nisam bio u mogucnosti da pratim bas najredovnije, ali nastavljamo. Tema je interesantna, ima dosta (za mene) novih stvari. Nacin izlaganja vrlo jasan, precizan i koncizan Smiling

zxz 31.03.2015 11:25
Predmet:Re: Skola Vb-a za napredne

Ovo je zavrsenodavno ali ako bude kandidata mozemo opet otvoriti novu temu ali cisto sumnjam da ko hoce vise.

Avko 31.03.2015 11:15
Predmet:Re: Skola Vb-a za napredne

ja sam novi na forumu i sada sam tek naletio na ovu temu, slucajno. odmah sam se prijavio i mislim da ce mi koristiti. otkrio sam i da u linku gdje pise showtopic.php promijenim u print.php i dobijem stranicu za ispis. tako da cu probati sve isprintati i mogu se u svakom trenutku podsjetiti. Jedino sto nemogu doprineti nikakvim korisnim kodom vec samo pratim i ucim.
hmm bas mi i ne radi nesto ovaj print.php

Avko 01.04.2015 15:17
Predmet:Re: Skola Vb-a za napredne

Citiraj zxz:
Ovo je zavrseno davno ali ako bude kandidata mozemo opet otvoriti novu temu ali cisto sumnjam da ko hoce vise.
ma sve 5 meni na forumu kao da je sve novo, nade se korisnih stvari. Nadam se da ne smeta ako slucajno ostavim komentar. Ne gledam bas na datume, udubim se u temu.