Prikazi cijelu temu 05.09.2013 09:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.