تغییر اندازه دکمه با کد نه از طریق پروپرتیس [بایگانی]

masaioki.ono

سه شنبه 26 اسفند 1393, 05:31 صبح

دوستان من دو تا تکست باکس دارم و یک دکمه یکی برای عرض دیگری برای طول میخوام کاربر با نوشتن عدد و کلیک روی دکمه بتونه اندازه دکمه رو تغییر بده :متفکر:

Mori Bone

سه شنبه 26 اسفند 1393, 09:17 صبح

سلام. الان مشکل کجاس؟:متفکر: کده آماده میخواین آیا؟:متفکر:

isaac23

سه شنبه 26 اسفند 1393, 10:03 صبح

سلام دوست عزیز واسه این کار از این کد استفاده کن

Private Sub Command1_Click()
Text1.Height = Val(Text1)
Text1.Width = Val(Text1)
End Sub

masaioki.ono

سه شنبه 26 اسفند 1393, 17:47 عصر

With Command1
.Height = Text1.Text
.Width = Text2.Text
End With

این رو پیدا کردم .تشکر دوست عزیز