Just nu i M3-nätverket
Jump to content

skapa eget objekt?


bmwjohan

Recommended Posts

jag kommer inte ihåg hur man skriver för att skapa ett eget objekt i visual basic.

 

alltså tag som exempel att jag vill skapa ett objekt som heter bil och som har egenskaperna färg och modell. hur skriver jag koden för detta?

Link to comment
Share on other sites

Magnus Ahlkvist

Högerkicla på projektet i Project Explorer i VB, välj Add->Class Module

 

Namnge din klass och vips så har du en klass i ditt projekt.

 

två privata instansvariabler:

Private pFarg as string
Private pModell as string

 

Lite defaultvärden för egenskaperna:

Private Sub Class_Initialize()
pFarg="Svart"
pModell="Volvo S70"
End Sub

 

Property Get och Let:

 


Public Property Get Farg() As String
 Farg = pFarg
End Property

Public Property Let Farg(ByVal vNewValue As String)
 pFarg = vNewValue
End Property

Public Property Get Modell() As String
 Modell = pModell
End Property

Public Property Let Modell(ByVal vNewValue As String)
 pModell = vNewValue
End Property

 

--

En röst talade till mig och sade:

”Le och var glad, ty det kunde vara värre”.

Så jag log, och jag var glad.

Och det blev värre.

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...