[YousefOkasha]

السلام عليكم و رحمه الله و بركاته اهل المنتدي ..
احتاج كود عند الضعط مثلا في Button ..
يتم نقل ما في ListBox إلي TextBox في سطور حده ..
و احتاج تنفيذ هذا الامر عن طريق شريط التحميل ProgressBar و بدون ProgressBar للتنوع ..
مع العلم اني قمت بالبحث عن هذا الكود قبل نشر الموضوع 

[سعود]

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 


[YousefOkasha]

هذا ما كنت احتاجة ..

شكرا لك

+1

[dametucorazon]

ربنا يحميك اخي سعود ويجعلك صابرا ويربط علي قلبك ويزيدك علما

[معاذ العامري]

(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 


كيف يمكنني عمل العكس اي مافي صندوق النص الى صندوق القائمه

[Done]

ListBox to TextBox

PHP كود :

TextBox1.Lines = ListBox1.Items.OfType(Of String)().ToArray 


TextBox to ListBox

PHP كود :

ListBox1.Items.AddRange(TextBox1.Lines) 


[معاذ العامري]

شاكر تعاونك