تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تصميم كومبوبوكس متعدد الاغراض
#1
كاتب الموضوع : silverlight

اخواني الكريم

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

Datagridview
ListView
RischTextBox
TreeView

دول الاربع حاجات اللي جربتهم الحقيقه

عموما الكود طويل شويه وبيعتمد في المقام الاول علي الارقام السحريه الموجوده في Win API
ولان الكود ممكن استخدامه مع اكثر من كونترول قمت بتغييره الي الفيجوال بيسك دوت نت وقمت بعمل تعديلات بسيطه لكي يتناسب مع الفيجوال بيسك


كل المطلوب لكي يعمل الكود وخصوصا مع الاخوه المبتدئين اننا نفتح فورم عادي ونضيف كلاس الي هذا الفورم ونطبلق عليه MultiPurposeComboBox
ونضيف الكود ادناه الي هذا الكلاس ثم نقوم بعمل Build للمشروع
وبعد ذلك سنجد الكونترول الجيد قد تم اضافته الي التوول بوكس ويتبقي فط ان نضيفه للمشروع مثل اي كونترول اخر

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

وسوف يتبقي فقط ان نضيف للمشروع مجموعه من هذا الكونترول انا اضفت اربعه مثل المثال التالي عموما تقدروا تجربوا وضيفو اي عدد محتاجينه لكن في النهايه الكود بيستخدم بالشكل الاتي


كود :
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' Create grid view control.
Dim gridView As New DataGridView()
gridView.BorderStyle = BorderStyle.None
gridView.Columns.Add("Column1", "ID")
gridView.Columns.Add("Column2", "Name")
gridView.Columns.Add("Column3", "Tel No")
gridView.Columns.Add("Column4", "Address")
gridView.Columns.Add("Column5", "e-mail")
MultiPurposeComboBox1.DropDownControl = gridView

' Create user ListView Control.
Dim lv As New ListView()

lv.BorderStyle = BorderStyle.None
lv.View = View.List
lv.FullRowSelect = True
lv.Items.Add("AAAAAAAAA")
lv.Items.Add("BBBBBBBBB")

MultiPurposeComboBox2.DropDownControl = lv

' Create user TreeView Control.
Dim tv As New TreeView()
tv.Nodes.Add("A")
tv.Nodes.Add("B")
tv.Nodes.Add("C")

tv.BorderStyle = BorderStyle.None
MultiPurposeComboBox3.DropDownControl = tv

' Create user RichTextBox Control.
Dim rtb As New RichTextBox()
rtb.BorderStyle = BorderStyle.None
MultiPurposeComboBox4.DropDownControl = rtb

End Sub

End Class


اعتقد الكود مش بطال انك تضيفه الي مكتبتك ربما كنوع من التعليم والافكار

الكلاس بالمرفقات وهو عباره عن ملف تكست ممكن تعمل له Copy & Paste بسهوله الي مشروعك
اعتذر لاني مش قادر اضيف مرفقات لان قوانين المنتدي محدده بخصوص المرفقات وحجمها وانا تعديت الحد المفروض



بالتوفيق

اخوكم عمر


الملفات المرفقة
.rar   MultiPurposeComboBox.rar (الحجم : 3.99 ك ب / التحميلات : 84)
}}}
تم الشكر بواسطة:



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


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