کنترل Anchor با کدنویسی

[papeli_83]

با سلام

من در برنامم می خوام با استفاده از کد نویسی خاصیت anchor top , anchor right رااجرا کنم , در واقع یه کنترل مثل لیبل دارم که مختصات اونو تو فرم ( وقتی که لود میشه) رو دارم , حالا می خوام وقتی فرم سایزش تغییر می کنه , به همون نسبت تغییر سایز فرم , جای کنترل منم تغییر کنه , از دوستان ممنون میشم که کمکم کنن

با تشکر

[JaVa]

با استفاده از کد نویسی:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Anchor = AnchorStyles.Right + AnchorStyles.Bottom

End Sub


در طراحی :
کنترل مورد نظر در حالت انتخاب باشه و با استفاده از خصیصه Anchor تنظیم کنید.

90504

موفق باشید.*

[papeli_83]

با سلام و با تشکر

دوست عزیز منظورم این نبود !!!! منظورم:

اختلاف سایزطول فرم ,قبل و بعد از ری سایز+مکان قبلی کنترل =anchor right

[ali reza mansoori 2]

فکر کنم منظورت همچین چیزی هستش
Dim x As Integer = 100
Dim y As Integer = 100
Button1.Left = (Me.Width - x)
Button1.Top = (Me.Height - y)

[papeli_83]

فکر کنم منظورت همچین چیزی هستش
Dim x As Integer = 100
Dim y As Integer = 100
Button1.Left = (Me.Width - x)
Button1.Top = (Me.Height - y)

با تشکر از شما دوست عزیز

کد شمارو امتحان کردم

ولی Button1.Left مقداری رو قبول نمیکنه (Read Only)

[the king]

با سلام

من در برنامم می خوام با استفاده از کد نویسی خاصیت anchor top , anchor right رااجرا کنم , در واقع یه کنترل مثل لیبل دارم که مختصات اونو تو فرم ( وقتی که لود میشه) رو دارم , حالا می خوام وقتی فرم سایزش تغییر می کنه , به همون نسبت تغییر سایز فرم , جای کنترل منم تغییر کنه , از دوستان ممنون میشم که کمکم کنن

با تشکر

یه سوال رو در چند انجمن می پرسید؟

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Tag = New Point(Label1.Parent.Width - Label1.Left, Label1.Top)
End Sub

Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
Dim pos As Point = Label1.Tag
Label1.Location = New Point(Label1.Parent.Width - pos.X, pos.Y)
End Sub