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

[majidosmani]

سلام خدمت اساتید محترم میگم من یک فرم از نوع Continuous دارم دو تا از فیلدهای ان تکس باکس های هستند که در انها متن طولانی وارد می شود حالا وقتی کاربر می خواهد متن داخل تکس باکس را ببیند یخورده سخت میشه ایا راهی وجود دارد که با کلیک بر روی تکس باکس یا یک پنجره کنارش باز بشه و متن را کامل نشان بده یا یک راه دیگه
لطفا اگر راهی سراغ دارید که این مشکلم رفع گردد کمکم کننید

[saeed1234n]

سلام

به نظر بنده ميتونيد كدي بنويسيد كه با كليك در تكس باكس پنجره اي باز شده و محتويات تكس باكس بطور كامل در آن به نمايش در بياد .

[Rasool-GH]

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

[amir91]

از shift+f2 استفاده کنید

[majidosmani]

از shift+f2 استفاده کنید

سلام از جواب تمام دوستان تشکر می کنم میگم درباره جواب آقا امیر آیا میشه کاری کرد که با دابل کلیک روی تکس باکس ترکیب کلید شیفت و f2 انجام شود؟

[mosaArabi]

سلام
از نمونه استفاده کنید
در فرم 2 دکمه هست که یکی سایز را تکس را بزرگ و دیگری به حالت اول برمیگرداند

در این ادرس هم یک فیلم از اتوسایز تکس باکس گذاشتم
http://s6.picofile.com/file/8226633900/Resize_Form_Dynamically_with_VBA_.mp4.html

[saeed1234n]

سلام



سلام از جواب تمام دوستان تشکر می کنم میگم درباره جواب آقا امیر آیا میشه کاری کرد که با دابل کلیک روی تکس باکس ترکیب کلید شیفت و f2 انجام شود؟


از کد زیر استفاده کنید :


SendKeys "+{f2}"

[majidosmani]

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

Private Sub eghdam_DblClick(Cancel As Integer)
SendKeys "+{f2}"
End Sub
میشه بی زحمت شما یک نمونه ساده با کدتون درست کنید من ببینم

[saeed1234n]

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



1
2
3

Private Sub eghdam_DblClick(Cancel As Integer)
SendKeys "+{f2}"
End Sub










از این کد استفاده کنید .


DoCmd.RunCommand acCmdZoomBox

[Rasool-GH]

سلام
اقا سعید کدوم رفرنس باید فعال باشه ؟

[saeed1234n]

سلام

فایل نمونه در لینک زیر :

http://yon.ir/8yXL