• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Makale IMPLEMENTS

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,504
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
IMPLEMENTS [ InterFaceName, Class]

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:
Üst Alt