چطور میشه در یک تکس باکس دو متن که با کاما جدا شده اند را در دو لیست باکس درج کرد

[maxtools]

چطور میشه در یک تکس باکس دو متن که با کاما جدا شده اند را در دو لیست باکس درج کرد

خواهش می کنم کمک کنید خیلی نیازه .... :اشتباه:

[parselearn]

!!!
http://barnamenevis.org/showthread.php?270695-%D9%86%D8%AD%D9%88%D9%87-%DA%86%D8%AF%D8%A7%D8%B3%D8%A7%D8%B2%DB%8C-%DB%8C%DA%A9-%D8%B1%D8%B4%D8%AA%D9%87-%D8%AF%DB%8C%D8%AA%D8%A7

[saied_hacker]

می تونی از این کد توی یک باتن ( Button ) استفاده کنی فقط حواست باشه که listbox هات باید به صورت ارایه باشن.


Private Sub Command1_Click()
List1(0).Clear
List1(1).Clear
Dim value As String
Dim i As Integer
value = Text1.Text
splitVal = Split(Text1.Text, ",")
For i = 0 To 1

List1(i).AddItem (splitVal(i))

Next

End Sub

[maxtools]

دست همتون درد نکنه فقط خواستم در دو لیست باکس درج بشه ؟

مثلا xxxxxxxxx,rrrrrrrrrrrrrr

xxxxxxxxxxxxx بره تو یک لیست باکس
rrrrrrrrrrrrrrr بره تو یک لیست باکس

اگر سورس بزارید یک دنیا ممنون می شم .

[saied_hacker]

فایل پیوست شد