[سوال] درخواست سورس listbox

[ramindj]

سلام بر اساتيد بزرگوار

دوستان من يه سورسي مي خوام خيلي هم واجب هست لطفا اگر کسي مي تونه اين سورس رو برام بنويسه واقعا نياز دارم خيلي هم ساده هست ( البته براي شما )

بنده يک سورسي مي خوام که مثلا اين فايل تکست که اپلود کردم رو توي دو تا ليست باکس ايمپورت کنه
فايل تکست:‌http://www.up.iranblog.com/images/dx9x7dvf68q6jgdrh0h.rar
البته منظورم اينه که 10 تا متن اولي تکست رو توي يه ليست باکس و ده تاي دومي رو توي ليست باکس دومي اضافه کنه
يعني 20 تا اسم که تو تکست نوشتم رو ده تاي اوليش توي ليست باکس اولي و ده تاي دومي توي ليست باکس دموي قرار بگيره

ممنون مي شم اگه کسي سورس رو بذاره

[HamedFaa]

بفرما. دانلود

کد:

i = 0
cdOpen.fliter = "Text Document (*.txt)|*.txt"
cdOpen.ShowOpen
If cdOpen.FileName <> "" Then
    txtFileName.Text = cdOpen.FileName
    Dim intC As Integer: intC = 1
    Dim strAddToList As String
    Open cdOpen.FileName For Input As #1
        Do While Not EOF(1)
            Line Input #1, strAddToList
            If intC > 10 Then i = i + 1: intC = 1
            lstNames(i).AddItem strAddToList
            intC = intC + 1
        Loop
    Close #1
End If