مشكلة في تعريف المتغيرات

السلام عليكم

ضيف المتغير فى Class واجعل المتغير Shared

ممكن تعمل بلطريقة الحالية

    Public Shared InvoiceNumber As Integer

او

Public Class Class1
    Private Shared mInt As Integer
    Shared Property InvoiceNumber() As Integer
        Get
            Return mInt
        End Get
        Set(ByVal Value As Integer)
            mInt = Value
        End Set
    End Property
End Class

الاستخدام بلشكل التالى تضيف او تحصل على قيمة

  TextBox1.Text = Class1.InvoiceNumber
        Class1.InvoiceNumber = TextBox1.Text

يمكن أن تضعها في الفورم الرئيسي (أو في كلاس وحدها) و تعرفها بالكلمة Shared هكذا:

Shared invoicenumber as Integer

بعد ذلك يمكنك الوصول إليه من أي مكان هكذا:

Form1.invoicenumber

طبعاً بتغيير اسم الفورم (أو الكلاس). لكن تنبه أن المتغير بهذه الطريقة (و يدعى global variable) ليست طريقة محبذة في البرمجة.

السلام عليكم و رحمة الله وبركاته

شكرا على المساعدة لقد قمت بتجربة هذا الكود و نجح لمن المشكلة اريد تعريف متغير من نوع

String بنفس الطريقة فلا يقبل هذه العبارة

Return mInt

End Get

Set(ByVal Value As Integer)

mInt = Value

حيث المتغير من نصي و هذا الكود يدعم الارقام mInt

اما الطريقة الاولى لم تنجح

Public Shared InvoiceNumber As Integer

و شكرا

الحل هو نفس الحل الذي أعطاكي ايام الاخ وليد لكن تغييرين نوع المتغير الى String

 Private Shared mStr As String
   Shared Property MyString() As String
       Get
           Return mStr
       End Get
       Set(ByVal Value As String)
           mStr = Value
       End Set
   End Property