خاصية لربط Object ب Usercontrol

#16 يوليو 2008 في 19:30 صاحب الموضوع

السلام عليكم...

بحثت عن هذا الموضوع في المنتدى، لكن رغم كثرة المواضيع عن الـ UserControl فإني لم أجد جواباً لسؤالي.

أقوم بتصميم UserControl و جعلت له خاصية لربطه بمكون آخر (Label)، كما في الكود التالي:

Private FLinkedLabel As Label
'
'
Public Property Get LinkedLabel() As Control
Set LinkedLabel = FLinkedLabel
End Property
Public Property Set LinkedLabel(ByVal vNewValue As Control)
' كود محذوف للتحقق من صحة المكون الممرر
Set FLinkedLabel = vNewValue
PropertyChanged "LinkedLabel"
End Property

البرنامج لا يعترض على الكود لكن المشكلة أن الخاصية LinkedLabel لا تظهر في نافذة الخصائص مع أن الخصائص الأخرى (من نوع String مثلاً) تظهر.

نرجو إفادتنا و لكم جزيل الشكر.... و السلام.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#26 يوليو 2008 في 21:24

هذا يا اخى لانها من نوع object هناك انواع محدودة يتم عرضها فى شاشة الخصائص

لى عودة ان شاء الله

موقع البرنامج

مبارك لشعب تونس

#37 يوليو 2008 في 01:46

السلام عليكم...

عودة مرة أخرى!

بعد بحث موسع بعض الشيء في الإنترنت تبين لي (أو هذا ما توصلت إليه حتى الآن) أن ذلك غير ممكن في VB لأنها لا تملك الواجهات (Interfaces) اللازمة لعرض الخصائص من النوع Object إلا في حالات محدودة مثل الـ Picture و الـ Font.

النص التالي هو جزء من مقال يتحدث عن نفس المسألة:

Usercontrols don't have the required interfaces to allow them to show objects in the property window

لكن أتمنى أن يكون لدى الإخوة بالمنتدى حلاً (ربما عبقرياً) فيساعدنا به!

و السلام.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#47 يوليو 2008 في 11:43

- هل هناك إمكانية جعلها في PropertyPage , مثل مثلا أداة ToolBar , حيث يمكنك من خلال الخاصية Custom عرض PropertyPage الخاص بها , وتحديد أي أداة ImageList من القائمة الخاصة بها

- أو إنك تقوم بعمل الخاصية من النوع String ويوضع فيها من خلال أمر Enum أو من خلال دوارة أسماء Labels حيث يتم دوران على الأدوات في النموذج ووضع أسماء الأدوات Label في قائمة

اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut

Albert Einstein

Delphawi.wordpress.com

مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

#58 يوليو 2008 في 08:09

السلام عليكم...

الشكر الجزيل للأخ "Ala2 VB" الذي ذكرني باستخدام الـ PropertyPages. و لقد أمضيت ساعات لتطبيق الأمر، و قد نجح بشكل كبير. و للفائدة فإني سأشرحه هنا بشيء من التفصيل مع ملاحظة أني وضعت التوضيحات ضمن الكود باللغة الإنجليزية حتى لا تبدو بعض التوضيحات ملخبطة إذا تكونت من كلمات عربية و إنجليزية.

لتجربة الأمر:

1. افتح مشروع جديد من نوع Standard Exe. ستكون لدينا بشكل افتراضي Form1.

2. أضف إلى المشروع UserControl و اترك اسمه كما هو (UserControl1). أضف إليه Label (اترك اسمه Label1) و اضبط الخاصية Caption للـ Label على "UserControl" (أو لأي نص آخر).

3. أضف إلى المشروع PropertyPage و اترك اسمها كما هو (PropertyPage1). اضبط الخاصية Caption على "General" و الخاصية StandardSize على Large.

4. أضف للـ PropertyPage المكونات المبينة في الصورة التالية:

5. عد إلى الـ UserControl و اختر الخاصية PropertyPages. من النافذة التي ستم عرضها اختر PropertyPage1 و كذلك الخيار StandardColor، و تأكد من وجود PropertyPage1 في البداية (استعمل سهم الرفع للأعلى إذا لم تكن كذلك)، ثم انقر الزر OK.

6. اكتب الكود التالي للـ UserControl:

انسخ الكود

Option Explicit
' ======== Private Members (Holding Property Values) ============
Private FLinkedLabel As Label ' Linked label
' =============== Private Variables for internal use =============
Private ALinkedLabelColor As OLE_COLOR
Private ALinkedLabelName As String
' ============== Private Subs and Functions ==================
' SUB CheckObjectReference:
' Check if the linked label still exists, otherwise it may be deleted or renamed.
Private Sub CheckObjectReference()
Dim AnyVar As String
' A simple idea is just to try to reference the linked label using an Error Trap!
' If it is still present, no error will happen.
' If not present, error happens, so set the holding var to Nothing.
On Error GoTo CheckObjectReference_Error
AnyVar = FLinkedLabel.Name
' At this point: No error -> Label still present.
Exit Sub
CheckObjectReference_Error:
' If we got here, Label not present any more -> set to Nothing:
Set FLinkedLabel = Nothing
Err.Clear
End Sub
' Save the required properties of the linked label:
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
CheckObjectReference
If FLinkedLabel Is Nothing Then
PropBag.WriteProperty "LinkedLabelName", ""
PropBag.WriteProperty "LinkedLabelColor", vbBlack
Else
PropBag.WriteProperty "LinkedLabelName", FLinkedLabel.Name
PropBag.WriteProperty "LinkedLabelColor", FLinkedLabel.BackColor
End If
End Sub
' Load the required properties of the linked label (previously saved for the UserControl):
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
' We DO NOT reference the linked label here because it may not be yet created.
' This procedure occurs BEFORE the Load event of the containing form.
ALinkedLabelName = PropBag.ReadProperty("LinkedLabelName", "")
ALinkedLabelColor = PropBag.ReadProperty("LinkedLabelColor", vbBlack)
End Sub
' This is the best place to set properties of the linked label.
' BUT it occurs ONLY AT DESIGN-TIME of the application containing the UserControl.
' So we added later a method (public Sub) to call it at Run-time of the containing app.
Private Sub UserControl_Show()
Dim Ctl As Control
Set FLinkedLabel = Nothing
If ALinkedLabelName <> "" Then
' Loop through the controls in the containing from to find the linked label:
For Each Ctl In Extender.Parent.Controls
If (TypeOf Ctl Is Label) And (Ctl.Name = ALinkedLabelName) Then
' Linked label found:
Set FLinkedLabel = Ctl
Exit For
End If
Next Ctl
End If
If Not (FLinkedLabel Is Nothing) Then
' Set properties of the linked label:
FLinkedLabel.BackColor = ALinkedLabelColor
'PropertyChanged "LinkedLabelColor"
End If
End Sub
' ==================== Properties =======================
'
' This is a special property. Note that it is Private, so can not be seen by the developer
' using the control.
' It is used only to save (and restore) the name of linked label to the PropertyBag at
' WriteProperties and ReadProperties procedure:
Private Property Get LinkedLabelName() As Variant
CheckObjectReference
If FLinkedLabel Is Nothing Then
LinkedLabelName = ""
Else
LinkedLabelName = FLinkedLabel.Name
End If
End Property
' Property to access the linked label:
Public Property Get LinkedLabel() As Object
CheckObjectReference
Set LinkedLabel = FLinkedLabel
End Property
' Property to set the linked label:
Public Property Set LinkedLabel(ByVal vNewValue As Object)
Set FLinkedLabel = vNewValue
PropertyChanged "LinkedLabel"
PropertyChanged "LinkedLabelName"
End Property
' Property to access the linked label color (BackColor):
Public Property Get LinkedLabelColor() As OLE_COLOR
CheckObjectReference
If FLinkedLabel Is Nothing Then
LinkedLabelColor = vbBlack
Else
LinkedLabelColor = FLinkedLabel.BackColor
End If
End Property
' Property to set the linked label color (BackColor):
Public Property Let LinkedLabelColor(ByVal ANewColor As OLE_COLOR)
CheckObjectReference
If Not (FLinkedLabel Is Nothing) Then
FLinkedLabel.BackColor = ANewColor
PropertyChanged "LinkedLabelColor"
End If
End Property
Public Property Get Caption() As String
Caption = Label1.Caption
End Property
Public Property Let Caption(ByVal vNewValue As String)
Label1.Caption = vNewValue
PropertyChanged "Caption"
End Property
' This is a read only, run-time only property to get access to the parent (containing form)
' of the UserControl:
Public Property Get Parent() As Object
Set Parent = Extender.Parent
End Property
' ====================== Methods =======================
' This method is required to call the UserControl_Show procedure at reun time of the
' hosting application. It must be called in the Load event handler of the containing from:
Public Sub RefreshObjects()
UserControl_Show
End Sub

7. أغلق نافذة تصميم الـ UserControl لكي يصبح في وضعية التشغيل. إذا نظرت الآن إلى صندوق الأدوات (ToolBox) ستجد في آخره رمزاً جديداً باسم UserControl1.

8. اكتب الكود التالي للـ PropertyPage:

انسخ الكود

Option Explicit
Private LabelsCollection As Collection
' Changing the linked label:
Private Sub cboLabels_Click()
Changed = True ' Enable "Apply" button
End Sub
' SUB ApplyChanges, Executed when:
' = "Apply" button clicked.
' = "OK" button clicked.
' = Change to an other page (tab) in the PropertyPages dialog.
Private Sub PropertyPage_ApplyChanges()
SelectedControls(0).Caption = txtCaption.Text
If cboLabels.ListIndex = 0 Then
Set SelectedControls(0).LinkedLabel = Nothing
Else
Set SelectedControls(0).LinkedLabel = LabelsCollection(cboLabels.Text)
End If
' It automatically sets Changed property of the PropertyPage to False.
End Sub
' Occurs the first time the PropertyPages dialog shown, and every time the selected
' control(s) change:
Private Sub PropertyPage_SelectionChanged()
Dim Ctl As Control
txtCaption.Text = SelectedControls(0).Caption
' Set the Collection used to keep label objects on the parent form:
Set LabelsCollection = Nothing
Set LabelsCollection = New Collection
' Clear the ComboBox that contains the label names:
cboLabels.Clear
' Add an empty item for removing the linked label:
cboLabels.AddItem ""
cboLabels.ListIndex = 0
' Loop through the parent form controls to find labels and add their names to the
' ComboBox, and add them (as objects) to the collection:
For Each Ctl In SelectedControls(0).Parent.Controls
If TypeOf Ctl Is Label Then
cboLabels.AddItem Ctl.Name
' If this is the label linked to the UserControl, select it in the ComboBox:
If Not (SelectedControls(0).LinkedLabel Is Nothing) Then
If Ctl.Name = SelectedControls(0).LinkedLabel.Name Then
cboLabels.ListIndex = cboLabels.NewIndex
End If
End If
' Add the label object to the collection:
LabelsCollection.Add Ctl, Ctl.Name
End If
Next Ctl
Changed = False ' Disable "Apply" button at first show.
End Sub
Private Sub PropertyPage_Terminate()
Set LabelsCollection = Nothing ' Release the collection object.
End Sub
Private Sub txtCaption_Change()
Changed = True ' Enable "Apply" button
End Sub

9. عد إلى Form1 و أضف إليها مجموعة من الـ Labels و زر أمر (Command1) مع مكونات أخرى. أضف كذلك المكون UserControl1.

10. اكتب الكود التالي للـ Form1:

انسخ الكود

Option Explicit
Private Sub Command1_Click()
' Changing some property of the label linked to our UserControl:
UserControl11.LinkedLabelColor = vbYellow
End Sub
Private Sub Form_Load()
' We need to call the RefreshObjects method of the UserControl to set the properties
' of the linked label. This must be done in the Form_Load procedure:
UserControl11.RefreshObjects
End Sub

11. حدد الـ UserControl1 على الـ Form ثم اضغط المفتاح F4 لعرض نافذة الخصائص. من بين الخصائص ستجد الخاصيتين Custom و LinkedLabelColor.

12. انقر على زر الخاصية Custom لعرض الـ PropertyPages الخاصة بالـ UserControl1. ستلاحظ أن نافذة الحوار تحتوي على صفحتين (Tabs) الآولى باسم General، و هي الصفحة التي قمنا بتصميمها و ضبطنا الخاصية Caption لها على General، و الثانية للألوان (لأننا اخترنا StandardColor عند ربط الـ UserControl بالـ PropertyPages).

13. افتح قائمة الـ LinkedLabel (في الصفحة General) ستجد بها أسماء الـ Labels الموجودة على الـ Form1. اختر أحد الـ Labels ثم انقر الزر OK.

14. الآن إذا غيرت قيمة الخاصية LinkedLabelColor للـ UserControl سيتم تغيير لون الـ Label الذي تم ربطه مع الـ UserControl1.

15. قم بتشغيل البرنامج و انقر الزر Command1.

======================================

ملاحظات:

أ. الأكواد السابقة تعمل بشكل صحيح عند تحديد UserControl واحد على الـ Form، و سنجري في مشاركة قادمة إن شاء الله تعديلات على الكود للتعامل مع أكثر من UserControl واحد محددة معاً.

ب. إذا أغلقت المشروع و أعدت فتحه فإنك تحتاج إلى إعادة ضبط الخصائص المتعلقة بالـ LinkedLabel لأن الكود يحتاج إلى بعض الإضافة التي لم أجد لها الوقت الكافي، و سيتم تعديلها في المشاركة القادمة أيضاً إن شاء الله.

نرجو الاستفادة و السلام.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#68 يوليو 2008 في 18:45

اقتباس
أو من خلال دوارة أسماء Labels حيث يتم دوران على الأدوات في النموذج ووضع أسماء الأدوات Label في قائمة

نعم هذا هو ما كنت اقصده

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

موقع البرنامج

مبارك لشعب تونس

خاصية لربط Object ب Usercontrol

مواضيع مشابهة