کوچک وبزرگ کردن تکس باکس

[moghadam1372]

با سلام

می‌خواهم زمانی که یک باتون را پایین نگه داریم تکس باکس از سمت چپ بزرگ شود و در صورتی که یک باتون دیگر را پایین نگه داریم تکس از سمت چپ کوچک شود ؟؟؟؟؟:تشویق:

[محسن واژدی]

سلام علیکم
کد زیر، در هربار اندازه TextBox را 100تا کمتر می کنه:
Private Sub Command1_Click()
Dim lOW&
With Text1
lOW& = .Left + .Width
.Width = .Width - 100
.Left = lOW& - .Width
End With
End Sub

برای افزایش Width علامت - را به مثبت تغییر دهید

موفق باشید

[moghadam1372]

با تشکر
ولی زمانی که فرم را دوباره باز می کنی حالت تکس برمی گردد به حالت اولیه می خواهم که همانطور که تنظیم مکنی به همان حالت بماند ؟؟؟ با تشکر

[rezankh]

كد بالا رو توي فرم لود بذاريد.

[moghadam1372]

جواب نمی دهد

[setroyd]

چون ذخیره نمیکنی .
بیا هر چهار طرف رو برات گذاشتم + ذخیره کردنش اگه متوجه نشدی بپرس برات توضیح میدم اگرم نبودم میتونی از محسن بپرسی یا بقیه دوستان چیز خاصی نداره ! چهار خط کد سادس بهش دقت کنی برات قابل درکه .