الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال/كيفية نقل العناصر بين listbox

مغلق
بدأه amr15 في 14 فبراير 2006 · 27 رد · 4,699 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم :

عندي في المشروع 2 listbox

الاول يعرض المواد الموجودة في جدول في الsql

اما الثاني فاريد ان ابرمجه بزر بحيث انه ينقل المواد التي اخترتها من listbox1 الى

listbox2 وبعد ذلك اضغط على زر اضافة فيضيف المواد الوجودة في listbox2 الى جدول المواد في sql

ولكم جزيل الشكر

#2
Private Sub ListBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseMove
        If e.Button = MouseButtons.Left Then
            Dim s As String
            For i As Int16 = 0 To ListBox1.SelectedItems.Count - 2
                s += s & ListBox1.SelectedItems.Item(i) & " "
            Next
            ListBox1.DoDragDrop(s, DragDropEffects.Copy)
        End If
    End Sub

    Private Sub ListBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragEnter
        Dim s As String = e.Data.GetData(DataFormats.Text)
        ListBox2.Items.Clear()
        Dim a() As String = Split(s, " ")
        ListBox2.Items.Add(a)
    End Sub
#3

السلام عليكم :

اخي الفاضل الفكره هي اني اريد برمجة الزر الذي يكون موجود في برامج كثيرة الي يكون

مرسوم علية سهم لنقل المواد من listboxالى اخرى حتى يكونوا زرين واخد للنقل من اليمين الى اليسار والاخر العكس

وشكرا

#4

Dim s As String

For i As Int16 = 0 To ListBox1.SelectedItems.Count - 2

s += s & ListBox1.SelectedItems.Item(i) & " "

Next

Dim a() As String = Split(s, " ")

ListBox2.Items.Add(a)

#5

السلام عليكم :

اخي الكريم لقد جربت الكود الي كتبته لي بس

بيعطيني خطأ لااعرف السبب فلو تكرمت واعطيتني مثال مع الشرح اكون ممتنه لك

مع خالص الشكر

#6

السلام عليكم

لنقل جميع محتويات ListBox لى اخرى اكتب الكود التالى

    ListBox1.Items.Clear()
        Me.ListBox1.Items.AddRange(Me.ListBox2.Items)
        ListBox2.Items.Clear()

نقل Items المحدد

   ListBox1.Items.Add(Me.ListBox2.SelectedItem)
        ListBox2.Items.Remove(ListBox2.SelectedItem)

بلتوفيق ان شاء الله

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#7

السلام عليكم :

شكرا جزيلا يا اخي الفاضل هذا بالضبط ماكنت اريده ولكن الان اريد ان اكتب كود لاضافة المواد التي نقلتها الى ال listbox لاضيفها الى جدول المواد في ال sql

وجزاك الله الف خير

#8

السلام عليكم

الرجاء قراءة قواعد طرح الاسئلة والمشاركات

فى المرة القادمة اكتب عنوان يدل على المشاركة والا سيتعرض للاغلاق

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

002.gif

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#9

السلام عليكم :

اخواني المبرمجين العرب ارجو منكم مساعدتي في الحصول على الكود الذي يخزن المواد الموجودة في الlistbox الى جدول الماد في ال sql

وشكراا

ارجو مساعدتي بسرعه

#10

أعتقد أنك ممكن أن تسخدم هذا الكود

insert into table_name(column_name) values(' " & Me.ListBox2.SelectedItem & " ')

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

insert into table_name(column1_name,column2_name, .......) values(' " & Me.ListBox2.SelectedItem & " ', ......, ......)

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

اللهم انك عفو كريم حليم تحب العفو فاعفو عنا

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

اللهم لا تدع لنا ذنبًا إلا غفرته ولا همًا إلا فرجته ولا مريضًا ولا دينًا إلا قضيته ولا عيبا إلا سترته ولا حاجًا هى لك رضا إلا قضيتها

اللهم انى أسألك موجبات رحمتك وعزائم مغفرتك والسلامة من كل إثم والغنيمة من كل بر والفوز بالجنة و النجاة من النار اللهم أمين يا رب العالمين

#11

يعني هيكون هذا في stored procedure طيب والكود الي يكتب في زر الاضافه في الvb

تم تعديل هذه المشاركة بواسطة amr15 في 18 فبراير 2006 في 11:33

#12

وينكم يا اخواني المبرمجين ارجو المساعدة

#13

يمكنك كتابة الكود في زر الإضافة

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

اللهم انك عفو كريم حليم تحب العفو فاعفو عنا

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

اللهم لا تدع لنا ذنبًا إلا غفرته ولا همًا إلا فرجته ولا مريضًا ولا دينًا إلا قضيته ولا عيبا إلا سترته ولا حاجًا هى لك رضا إلا قضيتها

اللهم انى أسألك موجبات رحمتك وعزائم مغفرتك والسلامة من كل إثم والغنيمة من كل بر والفوز بالجنة و النجاة من النار اللهم أمين يا رب العالمين

#14

السلام عليكم أخي الكريم دقق بالعبارة التي ذكرتها الأخت إنجي :

اقتباس
insert into table_name(column1_name,column2_name, .......) values(' " & Me.ListBox2.SelectedItem &

لا أظن أن العبارة التالية تكتب في T-SQL :

Me.ListBox2.SelectedItem

أليس كذلك يا أخي .. ;)

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

إبدأ T-Sql

أكواد بدلفي

نعيب زماننا و العيب فينا *********** و ما لزماننا عيب سوانا ( الشافعي رحمه الله )

عماد .. B) B)

دروس و كتب مفيدة----------------------كتيب الإجرائيات المخزنةتعرف على اللغة Transact SQL <<-->> كتيب عن تنصيب قواعد البيانات Sql Server باللغة العربية كتيب عن إنشاء قواعد البيانات في SQL Server باللغة العربية <<-->> درس مع الأمثلة عن المؤشرات و التعامل معها في الـ T-SQLالعبارات الشرطية و الحلقات في T-SQL <<-->> شرح لبعض الـ Extended Stored Procedure استخدام مكتبات الـ Dot Net الخاصة بك في الـ Sql Server 2005 <<-->> التعامل مع المصفوفات من خلال الـ T-SQLتعابير الجداول الشائعة في SQL Server 2005 <<-->>الاتصال بالأداة SQL Server Management Studioحلول سريعة و لمحات برمجية --------------------------------التصدير إلى إكسل : طريقة أولى : طريقة بسطر واحد من الكود <<-->> طريقة ثانية : طريقة تحتاج إنشاء إجرائية مخزنةً تجهيز بيانات جدول بالصيغة XML تمهيداً لحفظها كملف <<-->> تصدير البيانات إلى ملفات نصية برمجياً إغلاق جميع الإتصالات المفتوحة بقاعدة بيانات محددة .. تمهيداً لاسترجاعها أو حذفها <<-->> الاستعلام بناء على وقت مخزن بالصيغة العربية ضمن حقل نصي ..حذف السجلات المتكررة و إبقاء عدد محدد منها في جدول.. <<-->> أسرع طريقة لحذف سجلات جدول كيف احصل على اسم جهازي والباسوورد باستخدام T-SQL <<-->> حشر أنواع الصور المختلفة في حقل من نوع Image باستخدام إجرائية مخزنة .كيف تعرف أنواع الصور المخزنة في حقل من نوع Image .. <<-->> إجرائيات مخزنة ببارامترات ديناميكية مفيدة جداً للاستعلامات استخدام رقم الحقل بدلاً من الإسم في عبارات الإستعلام <<-->> من هو أضخم الجداول في قاعدة بياناتي ؟معرفة زمن تنفيذ الإجرائيات ( لتختار الطريقة الأسرع بين إجرائياتك المخزنة ) <<-->> التعامل مع الـ Rules برمجياً الحصول على آخر صف في الجدول <<-->> قراءة ملفات XML باستخدام T-SQL برمجياً (مثال مرفق)سحب بيانات ملف إكسل إلى الـ SQL Server <<-->> تشفير النسخة الاحتياطية بكلمة مرور <<-->> التخلص من البيانات المكررة <<-->> حل مشكلة التاريخ الهجريDifferential Backup بالتعريف---------- لا إله إلا الله .. محمد رسول الله

أخوكم في الله..  Imad Ozone

#15

السلام عليكم

ان شاء الله الكود يعمل معك بلشكل التالى

اقتباس
        Dim cmd As New OleDb.OleDbCommand

        cmd.Connection = OleDbConnection1

        cmd.CommandText = "INSERT INTO tbl_2([name]) VALUES('" & ListBox1.Text & "')"

        OleDbConnection1.Open()

        cmd.ExecuteNonQuery()

        OleDbConnection1.Close()

وفى حالة نقل جميع البيانات تعمل حلقة تكرار على listbox

For Counter As Int16 = 0 To ListBox1.Items.Count - 1

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#16

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

#17

شوفي يا قمر15 لازم تعرفي انتي اش تبغي تخزني بالزبط

هل تبغي تخزني قيمة المادة يعني رقمها ام اسمها؟

يعني فيه عندك حاجتين

selectedvalue

selectedindex

selecteditem

كل وحدة لها قيمة فانتي بالحالة هذي لازم تعرفي اش تبغي تخزني عشان تستدعيها

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

msgbox(listbox1.selectedvalue)

msgbox(listbox1.selectedindex)

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

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

#18

السلام عليكم

ممكن يا اخى عمرو تحدد المطلوب بلضبط علشان اعمل ليك مثال يعنى انت عندك جدولين وتريد نقل البيانات بين الجدولين ؟

ياريت تحدد المطلوب بلضبط ولو شرح بسيط

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#19

السلام عليكم :

اخي الكريم انا عندي فورم فيه 2تكس بوكس وهم (اسم الخطة,ورقمها)و listbox يحتوي على مواد كل خطة انا اريد عمل بروسيجر وزر اضافة عند الضغط عليه ياخذ اسم الخطة ورقمها والمواد ويضيفها في جدول (plan_courses)

#20

السلام عليكم

يا اخى الكريم انت بتتحث عن عمل شاشة MasterDetails ويوجد لى شرح فى المنتدى عن الاضافة والطباعة ليها فا الافضل استخدام اداة DataGrid وليس اداة ListBox رغم انك ممكن تستخدم ListBox بس الافضل استخدام DataGrid

على العموم فى الوصلة التالية يوجد مثال لى فى المنتدى عن الموضوع السابق

بلتوفيق ان شاء الله

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#21

السلام عليكم :

اخي الكريم شكرا على المعلومة ولكني اريد ان اضعه في اليست بوكس فلو ممكن انك تعطيني كود يضيف القيم الي في ال 2 textbox وال listbox الى الجدول في ال sql

واكون شاكره لك

#22

انا ما ادري ليه الاخوان مصرين على انك ولد خخخخخخخخخخخخخخ

اخت قمر 15 سوي مثال صغنطوط وإن شاء الله نحل لك ابو المشكلة :)

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

#23

السلام عليكم

ان شاء الله اعمل ليكى مثال

تم تعديل هذه المشاركة بواسطة waleedhm في 4 مارس 2006 في 19:35

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

#24

ياريت يكون المثال واضح عشان نوصل لحل سليم يا اخ وليد

ولا ترى .......... يا عضو الشرف ههههههههههههههه

تم تعديل هذه المشاركة بواسطة Romantic_touch في 4 مارس 2006 في 19:39

<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>

#25

اخي الكريم ارجو ان تعمل المثال ولاتنساني انا مستعجلة ولم يبقى لي غير هذا الكود

مع خالص الشكر والتقدير

هذا الموضوع مغلق.

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