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

atf1379

شنبه 25 مرداد 1399, 23:28 عصر

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

isaac23

یک شنبه 26 مرداد 1399, 12:04 عصر

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

atf1379

یک شنبه 26 مرداد 1399, 13:16 عصر

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

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

eb_1345

یک شنبه 26 مرداد 1399, 14:39 عصر

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

سلام
کدهای زیر رو در رویداد 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

یک شنبه 26 مرداد 1399, 18:10 عصر

سلام
کدهای زیر رو در رویداد 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

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