فوکوس دریافت نکردن تکست باکس

[Rasul75]

سلام دوستان و اساتید
من روی فرم چندتا textbox دارم که خاصیت locked آن ها فعاله ولی می خوام موقعی که کلیک می کنم روشون اصلا فوکوس دریافت نکنن.

[vbhamed]

سلام
نياز به خاصيت Locked نيست، همه تكست باكس ها رو درون يك Frame قرار بديد و خاصيت Enabled اون Frame رو False كنيد

[Rasul75]

نه خوب می خوام متن های داخلشون رو بشه درگ و کپی کرد ولی فوکوس دریافت نکنه.

[Mori Bone]

سلام
نياز به خاصيت Locked نيست، همه تكست باكس ها رو درون يك Frame قرار بديد و خاصيت Enabled اون Frame رو False كنيد

منظور ایشون این بوده که اگه یه کانتینر خاصیت locked یا enabledش فعال(true) باشه روی تمام فرزنداش تاثیر می زاری
پس شما مشخصه ای کانتینر (کنترل پدر) رو نگاه کن.
یا ببین توی رویداد moues_down یا mouse_up یا mouse_move کدی نوشتی؟

[vbhamed]

نه خوب می خوام متن های داخلشون رو بشه درگ و کپی کرد ولی فوکوس دریافت نکنه.

سلام
اینکه نمیشه، هم کپی بگیرید هم فوکوس نگیره، پس چطوری می‌خواین متن رو انتخاب کنید تا کپی بشه

[Rasul75]

مثل مطالب سایت ها است که اگر بخواهیی متی را درگ می کنی و کپی میکنی ولی فوکوس دریافت نمیکنه اینطوری می خوام.

[Mori Bone]

منظور دوستمون اینکه متنی می خوان که نشه ادیتش کرد. فقط بشه انتخابش کرد مثه تمام متونی که داخله یه سایت هست

[Rasul75]

منظور دوستمون اینکه متنی می خوان که نشه ادیتش کرد. فقط بشه انتخابش کرد مثه تمام متونی که داخله یه سایت هست

دقیقا همینو می خوام

[Rasul75]

read only رو true کن

میشه بیشتر توضیح بدی!!

[ایلیا آخوندزاده]

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

[miladatashin]

دقیقا همینو می خوام


اگه اینو میخواهید که فقط کافیه locked تکست باکس رو true کنید
ولی از نوشته های شما من برداشت میکنم منظورتون اینه نمخواهید تکست باکس نشانگر بگیره (اینکه بگین فوکوس نگیره و بشه متن رو انتخاب کرد اشتباه هست)
برای این کار کد زیر رو به برنامتون اضافه کنید
Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Text1_GotFocus()
Call HideCaret(Text1.hwnd)
End Sub

[Rasul75]

اگه اینو میخواهید که فقط کافیه locked تکست باکس رو true کنید
ولی از نوشته های شما من برداشت میکنم منظورتون اینه نمخواهید تکست باکس نشانگر بگیره (اینکه بگین فوکوس نگیره و بشه متن رو انتخاب کرد اشتباه هست)
برای این کار کد زیر رو به برنامتون اضافه کنید
Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Text1_GotFocus()
Call HideCaret(Text1.hwnd)
End Sub



دستت درد نکنه دنبال همین می گشتم