Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.03.2015 15:01:47 |
kkarl |
|
|
|
20.03.2015 15:34:05 |
Gast30172 |
|
|
|
20.03.2015 15:51:05 |
kkarl |
|
|
|
20.03.2015 15:52:24 |
kkarl |
|
|
|
20.03.2015 16:02:12 |
Gast36405 |
|
|
im Nachhinein, noch ein Gedanke/Vorschlag dazu |
20.03.2015 16:15:41 |
Gast58608 |
|
|
Von:
Gast58608 |
Datum:
20.03.2015 16:15:41 |
Views:
769 |
Rating:
|
Antwort:
|
Thema:
im Nachhinein, noch ein Gedanke/Vorschlag dazu |
'class: MyClass
Option Explicit
Private m_Name As MyProperty
Private m_Price As MyProperty
Private Sub Class_Initialize()
Set m_Name = New MyProperty
Set m_Price = New MyProperty
End Sub
Property Get Name() As MyProperty
Set Name = m_Name
End Property
Property Get Price() As MyProperty
Set Price = m_Price
End Property
Public Sub print_(Prop As MyProperty)
If Prop Is m_Name Then
MsgBox "Name"
ElseIf Prop Is m_Price Then
MsgBox "Preis"
Else
'...
End If
End Sub
'class: MyProperty
Option Explicit
Public Value As Variant
Sub t()
Dim a As New MyClass
a.Name.Value = "Name"
a.Price.Value = 12.3
a.print_ a.Price
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.03.2015 15:01:47 |
kkarl |
|
|
|
20.03.2015 15:34:05 |
Gast30172 |
|
|
|
20.03.2015 15:51:05 |
kkarl |
|
|
|
20.03.2015 15:52:24 |
kkarl |
|
|
|
20.03.2015 16:02:12 |
Gast36405 |
|
|
im Nachhinein, noch ein Gedanke/Vorschlag dazu |
20.03.2015 16:15:41 |
Gast58608 |
|
|