[silverlight]

ممكن تستخدم Pattern للفورم و تستدعي اي شئ موجود في الفورم من خلاله و هذا الاسلوب ممكن استخدامه مع اي كلاس تكتبه و ليس مع الفورم فقط

مثال:

في الفورم اكتب الكود التالي و هنا انا أفترض أن الفورم اسمه Form1 و هذ الفورم به تكتسب بوكس اسمه TextBox1

كود :

Public Class Form1

   Private Shared pattern As Form = CType(Nothing, Form1)
   Public Shared Function GetPattern() As Form1
       SyncLock GetType(Form1)
           If pattern Is Nothing Then
               pattern = New Form1
           End If
       End SyncLock
       Return pattern
   End Function

End Class

و الكود التالي يوضح كيف يتم استدعاء االبيانات من الفورم من خلال كلاس أخر

كود :

Public Class RetrievePatternData

   Private i As Integer = Form1.GetPattern.TextBox1.TextLength

End Class

وممكن كتابة الكود بطريقة اخري وبدلا من دالة يمكن استخدام Property و في النهاية ستجد ان كل الطرق تؤدي الي نفس الشئ

كود :

Public Class Form1

   Private Shared lock As Object = New Object
   Private Shared patternForm As Form1

   Public Shared ReadOnly Property Pattern As Form1
       Get
           Dim result As Form = CType(Nothing, Form1)
           SyncLock lock
               If patternForm Is Nothing Then
                   patternForm = New Form1
               End If
               result = patternForm
           End SyncLock
           Return result
       End Get
   End Property

End Class

Public Class RetrievePatternData

   Private i As Integer = Form1.Pattern.TextBox1.TextLength

End Class