مخفی شدن کنترل های سمت راست فرم در حالت ریستور شدن فرم

سلام خدمت اساتید عزیز
در فایل ضمیمه فرمی قرار دارد که در قسمت عنوان اون تعدادی تکست باکس با عناوین مربوطه و یک لیست باکس در قسمت دیتیل فرم وجود دارد
خصوصیت HorizontalAnchor تکست باکس ها با لیبل های اونها در حالت Right تنضیم شده
اندازه سمت چپ لیست باکس صفر و اندازه عرض اون معادل عرض فرم یا Me.InsideWidth تنضیم شده
اگر خصوصیت HorizontalAnchor لیست باکس رو در حالت Both قرار بدهیم و در رویداد Form_Resize اندازه عرض اون رو تعیین نکنیم کنترل های فوق در حالت ماکسیمایز و ریستور شدن اون در قسمت سمت راست فرم قابل مشاهده می باشند ولی اگر اندازه عرض لیست باکس رو معادل Me.InsideWidth قرار بدهیم وقتی فرم ماکسیمایز میشود و بخواهیم دوباره اندازه فرم رو به حالت اول دربیاوریم کنترهای فوق قابل مشاهده نمی باشند .
با توجه به توضیحات بالا آیا راهی وجود دارد که اگر اندازه عرض لیست باکس رو معادل Me.InsideWidth تعیین شود موقعیت کنترها در سمت راست فرم در هر حالتی حفظ شود و قابل مشاهده باشند ؟ چون به دلایلی میخواهم تغییر عرض لیست باکس صرفاً از طریق تعیین اندازه اون صورت بگیره نه از طریق خصوصیت HorizontalAnchor
با تشکر

با سلام و احترام مشکل مربوط به کد Form_Resize می باشد.

نقل قول:

---

نوشته شده توسط mehdi_fiz

با سلام و احترام مشکل مربوط به کد Form_Resize می باشد.

---

با سلام و احترام متقابل
ممنونم بخاطر پیگیریتون
همونطور که در پست اول هم توضیح داده ام در حالتی که در رویداد Form_Resize اندازه عرض لیست باکس رو تعیین نکنیم و خصوصیت HorizontalAnchor اون رو برابر با Both قرار بدهیم مشکلی پیش نمیاد ولی همونطور که اشاره کرده ام در رویداد فوق میخوام اندازه عرض List1 رو از طریق List1.Width = Me.InsideWidth تنظیم بشه نه از طریق تغییر خصوصیت HorizontalAnchor


با تشکر

فرض بفرمائید بجای لیست باکس از لیست ویو استفاده کنیم و میخواهیم اندازه عرض ستون ها و حاشیه چپ هر ستون در لیست ویو را بدست بیاریم و اگر خصوصیت HorizontalAnchor اون رو برابر با Both قرار بدهیم اندازه عرض و حاشیه چپ یا خصوصیت left واقعی ستون ها در حالت ماکسیمایز فرم بدست نمیاد

اساتید عزیز ! راهکاری به ذهن مبارکشون نمیرسه ؟

نقل قول:

---

نوشته شده توسط atf1379

همونطور که در پست اول هم توضیح داده ام در حالتی که در رویداد Form_Resize اندازه عرض لیست باکس رو تعیین نکنیم و خصوصیت HorizontalAnchor اون رو برابر با Both قرار بدهیم مشکلی پیش نمیاد ولی همونطور که اشاره کرده ام در رویداد فوق میخوام اندازه عرض List1 رو از طریق List1.Width = Me.InsideWidth تنظیم بشه نه از طریق تغییر خصوصیت HorizontalAnchor


با تشکر

---

با سلام
اگه در نظر دارین بدون استفاده از خصوصیت HorizontalAnchor کنترل های مد نظرتون رو در قسمت سمت راست فرم نمایش بدهین باید از دو تابع عمومی زیر استفاده کنین :

Dim CTL As Control

Public Sub SaveAnchorRightCtl(frm As Form)

For Each CTL In frm.Controls

   If CTL.Tag = "AnchorRight" Then

       CTL.Tag = CTL.Tag & "," & frm.InsideWidth - CTL.Left

    End If

Next CTL

End Sub



Public Sub ResizeAnchorRightCtl(frm As Form)

On Error Resume Next

Dim i As Integer

For Each CTL In frm.Controls

    If Split(CTL.Tag, ",")(0) = "AnchorRight" Then

       CTL.Left = frm.InsideWidth - ((frm.InsideWidth - (frm.InsideWidth - Split(CTL.Tag, ",")(1))))

    End If

Next CTL

End Sub

قبل از فراخوانی توابع فوق باید ابتدا در قسمت خصوصیت Tag کنترل هائی که میخواهین در سمت راست فرم قرار بگیرن کلمه AnchorRight را وارد کنین . استفاده از این کلمه در قسمت فوق بدین خاطر است که از بین همه کنترل های فرم اون کنترل هائی که قرار است در سمت راست فرم نمایش داده شوند انتخاب کنیم
بعد از وارد کردن کلمه فوق در تگ کنترل های مد نظر حالا نوبت به فراخوانی تابع اول در رویداد Form_Load و فراخوانی تابع دوم در رویداد Form_Resize میباشه
در تابع اول تعیین کرده ایم که از بین کنتر هایی که تگ اونها معادل کلمه AnchorRight میباشه موقعیت اولیه حاشیه سمت چپ کنترل رو در تگ کنترل ( البته با یک علامت جداکننده بعد از کلمه AnchorRight ) درج بشه
در تابع دوم خواستیم که از بین همه کنترهای فرم اون کنترل هائی که کلمه اول خصوصیت تگ اونها AnchorRight میباشه انتخاب بشه و موقعیت ثانویه سمت چپ کنترل های فوق رو معادل تفاوت موقعیت اولیه رو از مقدار عرض فرم بدست بیاره

ضماً برای سوال ثابت بودن موقعیت مکانی چند کنترل در سمت راست فرم که در همین زمینه در تالار VB6 پرسیده ای نمونه ای ضمیمه نمودم

نقل قول:

---

نوشته شده توسط eb_1345

با سلام
اگه در نظر دارین بدون استفاده از خصوصیت HorizontalAnchor کنترل های مد نظرتون رو در قسمت سمت راست فرم نمایش بدهین باید از دو تابع عمومی زیر استفاده کنین :

Dim CTL As Control

Public Sub SaveAnchorRightCtl(frm As Form)

For Each CTL In frm.Controls

   If CTL.Tag = "AnchorRight" Then

       CTL.Tag = CTL.Tag & "," & frm.InsideWidth - CTL.Left

    End If

Next CTL

End Sub



Public Sub ResizeAnchorRightCtl(frm As Form)

On Error Resume Next

Dim i As Integer

For Each CTL In frm.Controls

    If Split(CTL.Tag, ",")(0) = "AnchorRight" Then

       CTL.Left = frm.InsideWidth - ((frm.InsideWidth - (frm.InsideWidth - Split(CTL.Tag, ",")(1))))

    End If

Next CTL

End Sub

قبل از فراخوانی توابع فوق باید ابتدا در قسمت خصوصیت Tag کنترل هائی که میخواهین در سمت راست فرم قرار بگیرن کلمه AnchorRight را وارد کنین . استفاده از این کلمه در قسمت فوق بدین خاطر است که از بین همه کنترل های فرم اون کنترل هائی که قرار است در سمت راست فرم نمایش داده شوند انتخاب کنیم
بعد از وارد کردن کلمه فوق در تگ کنترل های مد نظر حالا نوبت به فراخوانی تابع اول در رویداد Form_Load و فراخوانی تابع دوم در رویداد Form_Resize میباشه
در تابع اول تعیین کرده ایم که از بین کنتر هایی که تگ اونها معادل کلمه AnchorRight میباشه موقعیت اولیه حاشیه سمت چپ کنترل رو در تگ کنترل ( البته با یک علامت جداکننده بعد از کلمه AnchorRight ) درج بشه
در تابع دوم خواستیم که از بین همه کنترهای فرم اون کنترل هائی که کلمه اول خصوصیت تگ اونها AnchorRight میباشه انتخاب بشه و موقعیت ثانویه سمت چپ کنترل های فوق رو معادل تفاوت موقعیت اولیه رو از مقدار عرض فرم بدست بیاره

---

سلام جناب آقای بهرامی
درود بر شما
مطمئن بودم شما بر این مورد هم راه حلی پیدا می کنی
مثل همیشه عالی:تشویق::تشویق::تشویق:

نقل قول:

---

نوشته شده توسط atf1379

مطمئن بودم شما بر این مورد هم راه حلی پیدا می کنی

---

سلام
کار زیاد سختی نبود .