نحوه انتخاب متن چند text box با موس

[liaghat]

سلام
چگونه می توان با کلیک کردن و کشیدن موس روی چند text box متن آنها را به حالت انتخاب در آورد؟

[H4i0 ACP]

سلام دوست عزیز
منظورت رو دقیق تر بگو ؟
اگر منظورت اینه که تو textها دونه دونه کلیک کنیم و متن داخلشون را انتخاب کنیم به طوری که متن انتخابی با رفتن به text دیگر از حالت انتخاب خارج نشود خاصیت hideselection هر text رو برابر با false قرار بده .

[H4i0 ACP]

سلام دوست عزیز
منظورت رو دقیق تر بگو ؟
اگر منظورت اینه که تو textها دونه دونه کلیک کنیم و متن داخلشون را انتخاب کنیم به طوری که متن انتخابی با رفتن به text دیگر از حالت انتخاب خارج نشود خاصیت hideselection هر text رو برابر با false قرار بده .

بعد از این کار این کدها رو برای 2 کنترل text امتحان کن ~



Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End Sub

[liaghat]

توضیح بیشتر:

وقتی در اکسل کار میکنیم میتوان با کشیدن موس روی سلولها ، هر تعداد از آنها را انتخاب کرد .
حالا فرض کنید بر روی یک فرم چند text box (به جای سلول) باشد . با موس بتوانیم همزمان همه جملات داخل این box ها را انتخاب کنیم.

[H4i0 ACP]

توضیح بیشتر:

وقتی در اکسل کار میکنیم میتوان با کشیدن موس روی سلولها ، هر تعداد از آنها را انتخاب کرد .
حالا فرض کنید بر روی یک فرم چند text box (به جای سلول) باشد . با موس بتوانیم همزمان همه جملات داخل این box ها را انتخاب کنیم.

--------------------------------------------------------
کد ها رو امتحان کردی .
در ضمن اگر قصد داری activex بسازی؟ ، وقتی ساختی اگر میشه برام بفرست .....

[Mbt925]

این نمونه رو ببینید:

http://mbt925.persiangig.com/Learn_Sample/SelectCellsByDragScrShot.jpg

دانلود (http://mbt925.persiangig.com/Learn_Sample/Select%20Cells%20By%20Drag.rar)

[liaghat]

سلام

با تشکر مجدد
حال چگونه می توان با زدن کلید del موارد انتخابی پاک شود؟

[Mbt925]

وقتی Delete زده شد کنترل هایی که در حالت انتخاب قرار دارند رو پنهان یا حذف کنید.

[liaghat]

می بخشید مطلب را درست بیان نکردم:
منظور حذف مطالب داخل Box ها بود نه خود کنترل ها
با تشکر مجدد

[H4i0 ACP]

for i=1 to textcount
text(i).seltext=""
next i
--------------------------------
شبیه سازی DataGrid !!!؟؟؟

[Mbt925]

همون کاری که برای انتخاب متن داخل تکس باکس ها انجام دادم رو تکرار کنید ، با این تفاوت که این بار متن داخلشون رو حذف کنید.