+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود تحويل ما في ListBox ل TextBox (/showthread.php?tid=25562)
كود تحويل ما في ListBox ل TextBox - YousefOkasha - 30-06-18
السلام عليكم و رحمه الله و بركاته اهل المنتدي ..
احتاج كود عند الضعط مثلا في Button ..
يتم نقل ما في ListBox إلي TextBox في سطور حده ..
و احتاج تنفيذ هذا الامر عن طريق شريط التحميل ProgressBar و بدون ProgressBar للتنوع ..
مع العلم اني قمت بالبحث عن هذا الكود قبل نشر الموضوع
RE: كود تحويل ما في ListBox ل TextBox - سعود - 30-06-18
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 1 To 10
ListBox1.Items.Add("Item: " & i)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.ProgressBar1.Value = 0
TextBox1.Clear()
Me.ProgressBar1.Maximum = ListBox1.Items.Count - 1
For i As Integer = 0 To ListBox1.Items.Count - 1
Me.ProgressBar1.Value = i
TextBox1.AppendText(ListBox1.Items.Item(i) & vbNewLine)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.ProgressBar1.Value = 0
TextBox1.Clear()
For i As Integer = 0 To ListBox1.Items.Count - 1
TextBox1.AppendText(ListBox1.Items.Item(i) & vbNewLine)
Next
End Sub
End Class
RE: كود تحويل ما في ListBox ل TextBox - YousefOkasha - 30-06-18
هذا ما كنت احتاجة ..
شكرا لك
+1
RE: كود تحويل ما في ListBox ل TextBox - dametucorazon - 24-07-18
ربنا يحميك اخي سعود ويجعلك صابرا ويربط علي قلبك ويزيدك علما
RE: كود تحويل ما في ListBox ل TextBox - معاذ العامري - 24-07-18
(30-06-18, 09:40 AM)سعود كتب :PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 1 To 10
ListBox1.Items.Add("Item: " & i)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.ProgressBar1.Value = 0
TextBox1.Clear()
Me.ProgressBar1.Maximum = ListBox1.Items.Count - 1
For i As Integer = 0 To ListBox1.Items.Count - 1
Me.ProgressBar1.Value = i
TextBox1.AppendText(ListBox1.Items.Item(i) & vbNewLine)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.ProgressBar1.Value = 0
TextBox1.Clear()
For i As Integer = 0 To ListBox1.Items.Count - 1
TextBox1.AppendText(ListBox1.Items.Item(i) & vbNewLine)
Next
End Sub
End Class
كيف يمكنني عمل العكس اي مافي صندوق النص الى صندوق القائمه
RE: كود تحويل ما في ListBox ل TextBox - Done - 24-07-18
ListBox to TextBox
PHP كود :
TextBox1.Lines = ListBox1.Items.OfType(Of String)().ToArray
TextBox to ListBox
PHP كود :
ListBox1.Items.AddRange(TextBox1.Lines)
RE: كود تحويل ما في ListBox ل TextBox - معاذ العامري - 24-07-18
شاكر تعاونك