03-10-12, 08:51 AM
كاتب الموضوع : 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 بسهوله الي مشروعك
اعتذر لاني مش قادر اضيف مرفقات لان قوانين المنتدي محدده بخصوص المرفقات وحجمها وانا تعديت الحد المفروض
بالتوفيق
اخوكم عمر