[اليوم السابع]

السلام عليكم
كيف ممكن اضع متغير نصي في class library 

و استخدمه كا ملف dll استدعيه في مشروع اخر

[3booody]

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

يفضل اخي لو تقرأ شويا عن الموضوع حتى يكون شغلك ادق بتطوير مكتبات ال dll
واعذرني شرحها مطول لكن راح اختصرلك اهم النقاط

الفئة العادية ممكن تجربها بدون ماتبدي مشروع من نوع مكتبة عن طريق تصريحك لكلاس معين في وندوز فورم وطريقة التعامل معاه تكون:

افتح مشروع جديد وضع الكود

كود :

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim str As New Class1
       MsgBox(str.Text)
       str.Text = "New Text"
       MsgBox(str.Text)
   End Sub
End Class

Class Class1

   Public Text As String = "Text1"
End Class

لاحظ لو غيرت كلمة Public الى Dim  راح يظهر خطأ والسبب ( تحتاجلك قليل من القرائة عن الموضوع)

كود :

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim str As New Class1
       MsgBox(str.Text)
       str.Text = "New Text"
       MsgBox(str.Text)
   End Sub
End Class

Class Class1

   Dim Text As String = "Text1"
End Class

اما اذا صغتها بهذا الشكل فلا احتاج تصريح كلاس جديد

كود :

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       MsgBox(Class1.Text)
       Class1.Text = "New Text"
       MsgBox(Class1.Text)
   End Sub
End Class

Class Class1
   Public Shared Text As String = "Text"
End Class

وممكن تصيغها بشكل Property

كود :

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim str As New Class1
       MsgBox(str.Text)
       str.Text = "New Text"
       MsgBox(str.Text)
   End Sub
End Class

Class Class1
   Dim txt As String = "Text1"
   Property Text() As String
       Get
           Return txt
       End Get
       Set(ByVal value As String)
           txt = value
       End Set
   End Property
End Class

نصيحتي لك ان تقرأ عن الفئات وطريقة التعامل والوصول لها قبل العمل عليها

[اليوم السابع]

(20-03-21, 02:15 PM)3booody كتب : السلام عليكم ورحمة الله وبركاته

يفضل اخي لو تقرأ شويا عن الموضوع حتى يكون شغلك ادق بتطوير مكتبات ال dll
واعذرني شرحها مطول لكن راح اختصرلك اهم النقاط

الفئة العادية ممكن تجربها بدون ماتبدي مشروع من نوع مكتبة عن طريق تصريحك لكلاس معين في وندوز فورم وطريقة التعامل معاه تكون:

افتح مشروع جديد وضع الكود

كود :

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim str As New Class1
       MsgBox(str.Text)
       str.Text = "New Text"
       MsgBox(str.Text)
   End Sub
End Class

Class Class1

   Public Text As String = "Text1"
End Class

لاحظ لو غيرت كلمة Public الى Dim  راح يظهر خطأ والسبب ( تحتاجلك قليل من القرائة عن الموضوع)

كود :

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim str As New Class1
       MsgBox(str.Text)
       str.Text = "New Text"
       MsgBox(str.Text)
   End Sub
End Class

Class Class1

   Dim Text As String = "Text1"
End Class

اما اذا صغتها بهذا الشكل فلا احتاج تصريح كلاس جديد

كود :

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       MsgBox(Class1.Text)
       Class1.Text = "New Text"
       MsgBox(Class1.Text)
   End Sub
End Class

Class Class1
   Public Shared Text As String = "Text"
End Class

وممكن تصيغها بشكل Property

كود :

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim str As New Class1
       MsgBox(str.Text)
       str.Text = "New Text"
       MsgBox(str.Text)
   End Sub
End Class

Class Class1
   Dim txt As String = "Text1"
   Property Text() As String
       Get
           Return txt
       End Get
       Set(ByVal value As String)
           txt = value
       End Set
   End Property
End Class

نصيحتي لك ان تقرأ عن الفئات وطريقة التعامل والوصول لها قبل العمل عليها

الله يعطيك العافيه ما قصرت شرح وفي ومعلومه قيمه