نمایش ستون انتخاب شده در گرید

[mahsa.admin]

با سلام
یک گرید داریم که از دوستون تشکیل شده یک ستون انتخاب یک ستون اسم افردا مانند عکس زیر
حالا اگر بخواهیم فقط اسم افرادی که در داخل این گرید تیک خورده مشاهد کنیم از این کد استفاده میکنیم
For i As Integer = 0 To dgv.Rows.Count - 1
If dgv.Rows(i).Cells(0).Value = True Then
MsgBox(dgv.Rows(i).Cells(1).Value)
End If
Next
حالا سوال اینجاست
چطور میشود با زدن باتن اسم افردا داخل تکس باکس های بالای باتن بشیند ؟
اگربیش از سه ردیف تیک خورده باشد همون ستا که از بالا تیک خورده را نمایش دهد داخل تکس باکس

[lastmory]

سلام ، یه روش اینه که به جای تکست باکسها ، از یه لیبل استفاده کنی
و اسمها رو به این صورت نشون بدی
علی ، علیرضا ، مهدی ، . . .
اینجوری دیگه درگیر تولید تکست باکس به صورت داینامیک نمیشی

[mahsa.admin]

با تشكر از شما
ما اگر از يك مسيج باكس استفاده كنيم مثل بالا خودش اتوماتيك سطر هاي كه تيك دارد رو به شكل پيغام نمايش ميدهد
ولي نمايش ان در ليبل يا تكس باكس به همان ترتيب كه كه تيك دارد مشكل دارد ؟

[Hybrid]

سلام ، دوست عزیز امیدوارم حالت خوب باشه ، این هم نمونه برنامه ای که میخواستی ، نکته ی خاصی نداشت اگه سوالی داشتین بپرسین.

*** این نمونه برنامه تکست باکس هارو از چپ به راست میسازه اگه میخواین از راست به چپ بسازه ، خاصیت FlowLayoutPanel Righttoleft رو برابر True کنید

[mahsa.admin]

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

[pourang_us]

دوست عزیز شما میتونی مقدار تکس باکس ها رو به این صورت اضافه کنی


SampleTxtBx.text = SampleTxtBx.text + " مقداری که داخل حلقه خوانده
میشود"

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


موفق باشی

[mahsa.admin]

با تشکر از راهنمایی شما
من این کارو کردم ولی نشد اگر امکانش هست در فایل ضمیمه من این کارو انجام بدین
واقعا ممنونم

[Mahdi1001]

سلام



Dim A(3), j As Integer
j = 0
For i As Integer = 0 To dgv.Rows.Count - 1
If dgv.Rows(i).Cells(0).Value = True Then
A(j) = i
j += 1
End If
Next
TextBox1.Text = dgv.Rows(A(0)).Cells(1).Value
TextBox2.Text = dgv.Rows(A(1)).Cells(1).Value
TextBox3.Text = dgv.Rows(A(2)).Cells(1).Value

[mahsa.admin]

د ستتون درد نکنه عالی بود

[Hybrid]

سلام به همه ،


سلام

کدتون اشکال داره.

[mahsa.admin]

مرسی جناب vbboss
دقیقا این کد مد نظرم بود
ولی خوب اقا مهدی ایده خوبی داد
بازم ممنون

[ali_najari]

دوست عزیز چرا شما از یه ListBox استفاده نمیکنید؟ اینطوری خیلی راحت تره کار باهاش!!!