سؤالين في برمجة أداوات Ocx

الصراحه أنا لم أحاول أن أصنع أدآه ActiveX علي دوت نت ولا أعرف ان كان ممكنا أم لا ولكن لو اخترت مشروع جديد من النوع Class Library أو من النوع Windows Control Library فان ذلك سوف ينتج أدآه ذات امتداد Dll ولن تستطيع استخدامها الا في بيئة الدوت نت وبفرض أنك لديك مشروع كما سبق وتريد اضافة خاصيه Property للأداة مثلا فستكتب :

Public Property mytext()

وبمجرد الضغط علي زر Enter يكون الكود كالتالي :

    Public Property mytext()
        Get

        End Get
        Set(ByVal Value)

        End Set
    End Property

ويلزمك الاعلان عن متغير حتي تستقبل أو تضع قيمة الـ Property ...,,,

Dim mtxt As String

وتتعامل مع المتغير من خلال الـ Property كالتالي :

في الـ Get Block :

Return mtxt

وفي الـ SetBlock :

Value = mtxt

وفي النهايه يكون كود الـ Property داخل الكلاس كالتالي :

Public Class Class1
    Dim mtxt As String
    Public Property mytext()
        Get
            Return mtxt
        End Get
        Set(ByVal Value)
            Value = mytxt
        End Set
    End Property
End Class

وبعد عمل Build يمكنك استخدامها كالتالي :

أما بالنسبه للجزء الثاني من السؤال فيمكنك عمل Method تقوم بتغيير لون الفورم بحيث تأخذ 2 Parameter الفورم واللون كالتالي :

  Public Function changecolor(ByVal myform As Form, ByVal color As System.Drawing.Color)
        myform.BackColor = color
    End Function

وتستخدمها كالتالي :

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

أخي العزيز أعتقد أنك سوف ما تجده في كتاب أخي تركي العسيري

ثانيا ال vb.net لا تقوم بعمل ocx ومايكروطين أسبتدلتها بأواع ال dll المخلتفه رحم الله أيام vb2:vb6 و رحم الله أيام vb1

أخوك عمرو عيسي

شكرا أخي الكريم على ردك الرائع و لكن للإسف لم تنجح الخطوات السابقة بكائنات الUserControl يبدو أن موضوعها أضخم سننتظر خبير فيها و نشوف ما و ضعها ...

أهلا أخي الكريم عمرو عيسي (ماهذه الميكرو طين ؟؟) له له له راحت أيام الOcx إذا نحن مضطرين نعمل مع الDllهل هناك درس لأن كتا ب الأستاذ تركي عندي ليس كامل أو هل له رابط

السلام عليكم

الموضوع ان شاء الله بسيط جدا

انا هنعمل مثال بسيط الان ان شاء الله مع بعض على اداة TextBox سوف نقوم بعمل Inherits لى الاداة ونقوم باضافة بعض الخصائص Property

اول خطوة افتح الدت نت ثم new project >> windows control library

سوف تجد اداة UserControl اضغط عليها مرتين

قم بتغير السطر التالى

  Inherits System.Windows.Forms.UserControl

الى

   Inherits TextBox

الان حصلت على جميع خصائص اداة TextBox

وممكن كمان تضيف بعض الخصائص من عندك

على سبيل المثال فى حالة تنشيط الاداة يتم تغير Color وفى حالة الغاء تنسيط الاداة يتم تغير Color الى اللون المختار

الان اعمل التالى

اول حاجة استعداء فضاء الاسماء التالى

 
ثم قم بتغير متغيرات بلشكل التالى

Private _MyGgtFocusColor, _MyLeaveColor As Color

الان نقوم باضافة الخاصية الاولى

Property MyGetFocus() As Color

Get

MyGetFocus = _MyGgtFocusColor

End Get

Set(ByVal Value As Color)

_MyGgtFocusColor = Value

End Set

End Property

قمت الان بعمل خاصية جديدة فى اداة TextBox اسمها MyGetFocus 
الان الخاصية التانية

Property MyLeave() As Color

Get

MyLeave = _MyLeaveColor

End Get

Set(ByVal Value As Color)

_MyLeaveColor = Value

End Set

End Property

الان ندخل بداخل حدث Enter الخاص بى الاداة ونقوم بعمل الكود المسؤال عن تغير اللون

Private Sub UserControl1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Enter

Me.BackColor = MyGetFocus

End Sub Private Sub UserControl1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Leave

Me.BackColor = MyLeave

End Sub

control.rar

Imports System.ComponentModel

شكرا لك أخي الكريم waleedhm الحقيقية طريقة رائعة و مفهومة و بسيطة ...و لكن عندما نحول الخصائص إلى خصائصTextBox لن تظهر لنا شاشة التصميم (أكيد تعود لو كانت الخصائص للUserControl) ..

ولكن عندما أقوم بتصميم أدوات معقدة تحتاج لعدة عناصر أكيد سأستطيع تعديل الخصائص كما أريد ..مثلا خاصية النص للTextBox1 وخاصية نص أخرى للTextBox2وخاصية صورة للPictueBox1 ولكن هنا ال Inherits سيكون لمن بالتحديد هل سيكون للUserControlنفسها أي

Inherits System.Windows.Forms.UserControl

شكرا لك جدا ..سأقوم بتجارب عليها مرة أخرى حتى أتقنها .

أخ اياس أعتقد أن كتاب في هذه الحاله مفيد جدا :

Apress - User Interfaces in VB .NET Windows Forms and Custom Controls

فان وجد أحد منه نسخه رجاء وضع الرابط الخاص بها أو ارفاق نسخه من الكتاب ,,,

أخي الكريم waleedhm

لقد حاولت تصميم أداة تعتمد على عدة عناصر(صور و نص ) عندما أضفت هذا الكود للتعريف

عن اللون :

Private PColor As Color

قبله بشكل عادي بفرض أن ال

Inherits System.Windows.Forms.UserControl

مازالت موجودة و الفضاء المستدعى هو فقط

Imports System.ComponentModel

و لكن عندما حاولت إضيف خاصية نص و عرفت عن النص بالشكل :

Private tx As Text

حدث خطأ في البرنامج وهو

Text' is ambiguous, imported from the namespaces or types

'System.Drawing, System'.

ما الحل هنا هل هناك فضاء آخر يجب إضافته .

وشكرا

بسم الله الرحمن الرحيم

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

اخي العزيز اياس ... يمكنك اخي استخدام الكود التالي:

   Privet mText As String
   Public Shadows Property Text As String
       Get
           Return mText
       End Get
       Set(ByVal Value As String)
           mText = Value
       End Set
   End Property

   Privte mTextColor As Color
   Public Property TextColor As Color
       Get
           Return mTextColor
       End Get
       Set(ByVal Value As Color)
           mTextColor = Value
       End Set
   End Propert

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

أخي رغيد ليه الغيبه الطويله دي ,,,

ياريت تقوللي ايه حكاية الـ Shadows ???

وياريت كمان الـ Shared ؟؟؟

جزاك الله خيرا,,,

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

من هذا المهندس رغيدالطيب أم أنه ضوء القمر ..أِشكرك على تشريفنا الموضوع و يبدو أنك مستعجل جدا و إلا لما كتبت ال Private بهذا الشكل Privet ثم بهذا الشكل Privte ...

أخي الكريم شكرا جدا الطريقة نجحت و لكن ليس بشكل مباشر أقصد أني عدلت بالكود عدة مرات حتى أصبح بالشكل :

Private mText As String

Property Text1() As String

Get

mText = Val1.Text

Text1 = mText

End Get

Set(ByVal Value As String)

mText = Value

Val1.Text = mText

End Set

End Property

طبعا أكيد طريقك صح ولكن لسذاجتي لم أستطع تطبيقها ..دعنا نراك دائما .

إيـاس

بسم الله الرحن الرحيم

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

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

بالنسبة لكي عزيزي hazzoom يؤسفني كثيرا عدم تواجدي كثيرا هذه الايام نظرا لعدم كوني في منزلي حاليا فقد تغربنا بحثا عن عمل بعد تخرجنا و الله الحمد تعالى و لنا في سعة فضله سبحانه امل كبير انه هو السميع العليم.

بالنسبة لحكاية الـ Shadows فهي تفيد في حالة رغبتك في تصميم دالة او خاصية معينة تلغي الدالة او الخاصية في الفئة الاصلية.

فمثلا اذا كنت ترث من فئة الـ UserControl وتعلم انه لديه الخاصية Text وانت تريد ان تقوم بتغييرها بشكل يناسبك فعندها قم بعمل Sahdows للخاصية و هي تشبه عملية الـ Overriding و لكنها اعم و تستخدم حتى مع الخصائص و الدوال التي لم يتم تعريفها بإستخدام الـ Overridable ... اعتدر عن سرعة الاجابة و اختصارها الشديد و اتمنى ان اجد وقت مناسب كي نناقش معا بإذن الله تعالى حالات نستفيد منها من هذه الميزة اخي

اتمنى ان يغفر لي تقصيري لضيق الوقت قليلا اخي الكريم

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

ولايهمك أخي الكريم رغيدالطيب كلنا مقدرين ظروفك ..و ننتظرك حتى تستقر و تعود لنا و عندها سنناقش مواضيع عملاقة.