تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سؤال في background warker حسن الجلب 1 39 , 12:57 AM
آخر رد: asemshahen5
  [سؤال] سؤال في الحافظه حسن الجلب 3 102 20-09-21, 07:38 PM
آخر رد: العطر الرايق
  [سؤال] سؤال حسن الجلب 3 121 20-09-21, 03:03 AM
آخر رد: العطر الرايق
  سؤال بخصوص حفظ التاريخ في قاعدة البيانات من نوع mysql 3loosh44 2 101 19-09-21, 08:47 PM
آخر رد: 3loosh44
  سؤال عن جملة for خالد20 4 222 18-09-21, 10:43 PM
آخر رد: خالد20
  [سؤال] سؤال حسن الجلب 2 152 14-09-21, 04:09 PM
آخر رد: ابو روضة
  سؤال عن داتا جريد فيو ابو انس 4 251 13-09-21, 12:40 AM
آخر رد: ابراهيم ايبو
  [سؤال] سؤال في الصور حسن الجلب 1 151 12-09-21, 11:48 PM
آخر رد: حسن الجلب
  سؤال فى عمل تقرير كريستال ريبورت خالد كامل1 2 186 10-09-21, 04:44 PM
آخر رد: جيولوجي مبتدئ
  [VB.NET] سؤال aloba 1 166 06-09-21, 10:05 PM
آخر رد: ابراهيم ايبو

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


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