title image


Smiley Ein Beispiel für Property in Modulen
Man kann das durchaus tun(wahrscheinlich bricht dazu hier ein Krieg aus über Sinn und Unsin, dazu später)



Ich hab hier mal zwei Module reingesezt, eines das Property Prozeduren verwendet und eines das darauf zugreift.



Diese Möglichkeit ist in VBA und VB6 gegeben, hat in Modulen dieselbe Berechtigung wie die Verwendung von Private oder Public.

Falls die Frage auftaucht warum überhaupt Klassen:

denk dir den Teil aus ModAuto einfach als Teil einer klasse, dann ist es möglich diese KLassen im Modul Test mehrmals zu deklarieren, und diesen Klassen unterschiedliche Eigenschaften zu geben, mit einem MOdulAuto nichjt möglich ist





Gruss GreenSand

There's upstairs

mars-chroniken

Sammlung von Links zur Marsforschung und des Weltalls allgm.





'/////////////////////////////////////////

'ModTest

Option Compare Database

Option Explicit

 

Sub test()

 

ModAuto.Fabrikat = grün

 

End Sub

'Ende

'/////////////////////////////////////////

 

'/////////////////////////////////////////

'ModAuto

 

Option Compare Database

Option Explicit

 

Private m_Fabrikat As String

Private m_Motor As Integer

 

Public Property Get Fabrikat() As String

Fabrikat = m_Fabrikat

End Property

 

Public Property Let Fabrikat(ByVal strFabrikat As String)

 

If strFabrikat <> "silber" Or strFabrikat <> "rot" Then

MsgBox "Nur rote oder silberne Fabrikate erlaubt"

Else

m_Fabrikat = strFabrikat

End If

 

End Property

 

Public Property Get MotorTyp() As Integer

MotorTyp = m_MotorTyp

End Property

 

Public Property Let MotorTyp(ByVal intMotorTyp As Integer)

 

Select Case m_Fabrikat

Case Is = "rot"

If intMotorTyp <> 101 Then

MsgBox "Nur MotorTypen 101 erlaubt"

Else

m_MotorTyp = intMotorTyp

End If

 

Case Is = "silber"

If intMotorTyp <> 102 Then

MsgBox "Nur MotorTypen 102 erlaubt"

Else

m_MotorTyp = intMotorTyp

End If

 

End Select

 

End Property

 

 

 

 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: