ايران ويج

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

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

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

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

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

کد: 
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

ramindj

HamedFaa