- Katılım
- 25 May 2018
- Mesajlar
- 1,610
- En iyi yanıt
- 14
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Microsoft 365 TR+EN
IMPLEMENTS [ InterFaceName, Class]
Class Modül'de uygulanabilecek bir ara birim veya sınıfı belirtir.
Açıklamalar
* Bu sadece Sınıf Modüllerinde (ClassModule) kullanılabilir
* ClassModule başlığında Makale olarak detaylı açıklama ve kullanımı paylaşılacaktır.
Örnek Kullanım
Class Modül'de uygulanabilecek bir ara birim veya sınıfı belirtir.
InterFaceName | Tür kitaplığındaki bir arabirimin adı. |
Class | Tür kitaplığındaki bir sınıfın adı. |
Açıklamalar
* Bu sadece Sınıf Modüllerinde (ClassModule) kullanılabilir
* ClassModule başlığında Makale olarak detaylı açıklama ve kullanımı paylaşılacaktır.
Örnek Kullanım
PHP:
'ClassModule kodları
Implements InterfaceClass
Public Property Get InterfaceClass_Field1() As Integer
Debug.Print "Returning value of Field1"
End Property
Public Property Let InterfaceClass_Field1(ByVal iValue As Integer)
Debug.Print "Writing value for Field1"
End Property
Public Property Get InterfaceClass_Property1() As String
Debug.Print "Returning value of Property1"
End Property
Public Property Let InterfaceClass_Property1(ByVal sValue As String)
Debug.Print "Writing value for Property1"
End Property
Public Sub InterfaceClass_Method1()
Debug.Print "Method1 - Executing"
End Sub
Public Function InterfaceClass_Method2() As String
InterfaceClass_Method2 = "Method2 - Returning"
End Function
PHP:
'Module kodları
Public Sub Testing()
Dim myobject As MyInstance
Set myobject = New MyInstance
myobject.InterfaceClass_Field1 = 20
myobject.InterfaceClass_Property1 = "Monday"
Call myobject.InterfaceClass_Method1()
Debug.Print myobject.InterfaceClass.Method2
End Sub
Son düzenleme: