منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كود تحويل ما في ListBox ل TextBox
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم و رحمه الله و بركاته اهل المنتدي ..
احتاج كود عند الضعط مثلا في Button ..
يتم نقل ما في ListBox إلي TextBox في سطور حده ..
و احتاج تنفيذ هذا الامر عن طريق شريط التحميل ProgressBar و بدون ProgressBar للتنوع ..
مع العلم اني قمت بالبحث عن هذا الكود قبل نشر الموضوع  Big Grin
PHP كود :
Public Class Form1

    Private Sub Form1_Load
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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 
هذا ما كنت احتاجة ..
شكرا لك
+1
ربنا يحميك اخي سعود ويجعلك صابرا ويربط علي قلبك ويزيدك علما
(30-06-18, 09:40 AM)سعود كتب : [ -> ]
PHP كود :
Public Class Form1

    Private Sub Form1_Load
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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 

كيف يمكنني عمل العكس اي مافي صندوق النص الى صندوق القائمه
ListBox to TextBox
PHP كود :
TextBox1.Lines ListBox1.Items.OfType(Of String)().ToArray 

TextBox to ListBox
PHP كود :
ListBox1.Items.AddRange(TextBox1.Lines
شاكر تعاونك