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