کنار هم قرار گرفتن طولی تعدادی تکست باکس بر روی فرم

[atf1379]

سلام
بر روی فرم تعداد چهار تکست باکس در طول هم قرار دارد . با کدهای مربوطه با ریسایز شدن فرم ، تکست باکس های فوق نیز ریسایز میشوند ، تا اینجا مشکلی وجود ندارد . من میخواهم وقتی فرم ریسایز یا ماکسیمایز میشود این تکست باکس ها در کنار هم قرار بگیرند بطوریکه جای تکست باکس اول در اول فرم ( چسبیده به لبه فرم از سمت راست) و تکست باکس چهارم در انتهای فرم(چسبیده به فرم از سمت چپ) باشد .
در واقع هدف اینست که این تکست باکسها بدون فاصله در کنار هم قرار بگیرند و اندازه فاصله های که بین تکست باکس ها وجود دارد به عرض تکست باکس چهارم اضافه شود بطوریکه اندازه چهار تکست باکس به اندازه طول فرم باشد.
ضمناً تعداد تکست باکس ها متغییر است
با تشکر

[isaac23]

1. دوست عزیز شما بدون کد نویسی با کامپوننت کد جاک می تونید برنامه های ریسپانسیو بسازید ..
2. هر جایی فرم که قرار بدید به همون شکل و اندازه سر جای خودش باقی می مونه

[atf1379]

1. دوست عزیز شما بدون کد نویسی با کامپوننت کد جاک می تونید برنامه های ریسپانسیو بسازید ..
2. هر جایی فرم که قرار بدید به همون شکل و اندازه سر جای خودش باقی می مونه

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

[eb_1345]

سلام
بر روی فرم تعداد چهار تکست باکس در طول هم قرار دارد . با کدهای مربوطه با ریسایز شدن فرم ، تکست باکس های فوق نیز ریسایز میشوند ، تا اینجا مشکلی وجود ندارد . من میخواهم وقتی فرم ریسایز یا ماکسیمایز میشود این تکست باکس ها در کنار هم قرار بگیرند بطوریکه جای تکست باکس اول در اول فرم ( چسبیده به لبه فرم از سمت راست) و تکست باکس چهارم در انتهای فرم(چسبیده به فرم از سمت چپ) باشد .
در واقع هدف اینست که این تکست باکسها بدون فاصله در کنار هم قرار بگیرند و اندازه فاصله های که بین تکست باکس ها وجود دارد به عرض تکست باکس چهارم اضافه شود بطوریکه اندازه چهار تکست باکس به اندازه طول فرم باشد.
ضمناً تعداد تکست باکس ها متغییر است
با تشکر

سلام
کدهای زیر رو در رویداد Form_Resize اضافه کن !

Dim n As Integer

Dim Lsam As Long

n = 3

For i = 2 To n

   Lsam = Lsam + (Me.Controls("Text" & i).Width)

   Me.Controls("Text" & i).left = Me.Controls("Text" & i - 1).left - Me.Controls("Text" & i).Width

Next

Lsam = Lsam + (Me.Controls("Text" & 1).Width)

Me.Controls("Text" & n + 1).Width = Me.Width - Lsam

[atf1379]

سلام
کدهای زیر رو در رویداد Form_Resize اضافه کن !

Dim n As Integer

Dim Lsam As Long

n = 3

For i = 2 To n

   Lsam = Lsam + (Me.Controls("Text" & i).Width)

   Me.Controls("Text" & i).left = Me.Controls("Text" & i - 1).left - Me.Controls("Text" & i).Width

Next

Lsam = Lsam + (Me.Controls("Text" & 1).Width)

Me.Controls("Text" & n + 1).Width = Me.Width - Lsam

سلام
منظورم همین بود ، ممنون