تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال في المتغيرات لو سمحتم
#1
السلام عليكم
كيف ممكن اضع متغير نصي في class library 

و استخدمه كا ملف dll استدعيه في مشروع اخر
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

يفضل اخي لو تقرأ شويا عن الموضوع حتى يكون شغلك ادق بتطوير مكتبات ال 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




نصيحتي لك ان تقرأ عن الفئات وطريقة التعامل والوصول لها قبل العمل عليها
الرد }}}
#3
(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




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

الله يعطيك العافيه ما قصرت شرح وفي ومعلومه قيمه
الرد }}}
تم الشكر بواسطة: 3booody



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم