تعلم انشاء خصائص جديدة للنافذة .. حصريييي

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

اقدم لكم اليوم الطريقة الاسرع لانشاء خصائص للفورم (النافذة) ... نبدأ باسم الله

في البداية نعمل خاصية بسيطة ولنميها ButtomTitle والكود المطلوب هو :

Public strTitle As String

Public Property Get BottomTitle()
	BottomTitle = strTitle
End Property

Public Property Let BottomTitle(strTitleEntered)
	strTitle = strTitleEntered

	frmtitle.CurrentY = (frmtitle.Height - 600)

	If frmtitle.CurrentY < 600 Then
		Exit Property
	Else
		Print strTitle
	End If
End Property
Private Sub cmdtitle_Click()
	frmtitle.BottomTitle = "ِAla2 VB , New Property"
End Sub

في البداية اعلنا عن متغير العنوان

ثم جعلنا اجراء Get يعود بقيمة الخاصية الجديدة والتي وضعنا قيمتها في متغير العنوان

اما اجراء Let فهو يسمح لنا بالتعديل على الخاصية

وياخد القيمة التي تضعها في الخاصية الجديدة ويضعها في المتغير العام

نحدد موقع الطباعة

واذا لم تكن مساحة النافذة لا تكفي لكتابة سطر واحد فلا تكتب شيء

ثم نطبع القيمة

ارجو انكم تكونو فهمتوا الصورة

وان شاء الله لما الاقي اقبال ساضع المزيد من الخصائص المختلفة

في امان الله

Ala2_VB___New_Property.rar