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):Option Compare Database
 
Option Explicit
 
 
 
Private Art_Ime As String
 
Private Art_ID As String
 
 
 
 
 
Private Sub Class_Initialize()
 
Art_Ime = "Kisela voda"
 
Art_ID = "0045"
 
End Sub
 
Private Sub Class_Terminate()
 
Art_Ime = ""
 
Art_ID = ""
 
End Sub
 
Public Property Get Ime_Art() As String
 
Ime_Art = Art_Ime
 
End Property
 
 
 
Public Property Let Ime_Art(ART As String)
 
Art_Ime = ART
 
End Property
 
 
 
Public Property Get ID_Art() As String
 
ID_Art = Art_ID
 
End Property
 
 
 
Public Property Let ID_Art(Id As String)
 
Art_ID = Id
 
End Property
 
 
Sada otvorite neki obicni modul i u njega kopirajte ovaj kod koji sluzi za probu.
PreuzmiIzvorni kôd (Visual Basic):Option Compare Database
 
Option Explicit
 
 
 
Function Probaart()
 
Dim A As ART
 
 
 
Set A = New ART
 
MsgBox A.ID_Art & "-" & A.Ime_Art
 
A.ID_Art = "0001"
 
A.Ime_Art = "okolada"
 
 
 
MsgBox A.ID_Art & "-" & A.Ime_Art
 
End Function
 
         
            Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.