تبدیل ايتم هاي يك ليست باكس به خطوط يك تكس باكس مالتي لاين

[Admin of Part]

:blush: سلام
من مي خوام تمام ايتم هاي يك ليست باكس رو به خطوط يك تكس باكس مالتي لاين بياورم.هر ايتم در يك خط.

[Admin of Part]

كسي جواب سوال منو رو نمي دونه؟؟؟

[Last Killer]

javabe soalet vazehe
1 halghe for mikhay az 0 ta lengh list boxet
bad ba index har ozv ro mizari tooye textbox alabte in joori
textbox1.text+=.

[Last Killer]

string s = "";
for (int i = 0; i < lengh; i++)
{
s = listBox1.Items[i].ToString();
if (i == 0)
textBox1.Text += s;
else
textBox1.Text += "\r\n" + s;
}

[Admin of Part]

سلام
اخ ببخشيد Last Killer من يادم رفت يگم كه منظورم در ويبي دات نت بود....
:wac: :sad:

[Last Killer]

سلام
اخ ببخشيد Last Killer من يادم رفت يگم كه منظورم در ويبي دات نت بود....
:wac: :sad:


خب فرقي نمي كنه فقط بايد syntax برنامه رو عوض كني ولي روش كار همينه
مخصوصا قسمت items[] كه يك آرايه :evil:
بازم اگه نتوانستي بگو تا با V.B.NET بنويسم

[Admin of Part]

سلام
اره...اگه زحمتي نيست به وي بي دات نت هم بنويس چون وقتي به كد سي نيگاه مي كنم سرم گيج ميره و فشارم مي افته!

[Admin of Part]

سلام
اره دستت درد نكنه بي زحمت بنويس!
خيلي ممنون باشه جبران كنم

[Last Killer]

سلام
اره دستت درد نكنه بي زحمت بنويس!
خيلي ممنون باشه جبران كنم
جبران لازم ني
اينم كد وي بي

Dim c As Integer
For c = 0 To 2
If c = 0 Then
TextBox1.Text += ListBox1.Items(c)
Else
TextBox1.Text += vbCrLf & ListBox1.Items(c)
End If
Next