نمایش یک متن وسط فرم

[silverado]

یه متن مثلاً سایت برنامه نویس رو چطوری می تونم وسط فرم نمایش بدم . البته جوری که اگه سایز مانیتور هم تغییر کنه باز وسط فرم باشه

[محسن واژدی]

سلام،
کد زیر رو در ماژول فرمتون کپی کنید:

Private Sub Form_Resize()
Label1.Move (Me.Width / 2) - (Label1.Width / 2), (Me.Height / 2) - (Label1.Height / 0.75)
End Sub

بجای Label1 نام متنون رو جایگزین کنین

[returnx]

به این شکل هم میشه:

Me.CurrentX = Me.Width / 2
Me.CurrentY = Me.Height / 2
Print "Jame Barname Nevis"

البته چون از Print استفاده میکنید در رویداد Activate باید بنویسید...

[محسن واژدی]

به این شکل هم میشه:

Me.CurrentX = Me.Width / 2
Me.CurrentY = Me.Height / 2
Print "Jame Barname Nevis"

البته چون از Print استفاده میکنید در رویداد Activate باید بنویسید...

در تکمیل کد دوست عزیز ms2222 یک خط کد به این اضافه شده که در تابع Print لازمه:
Me.AutoRedraw=True
Me.CurrentX = Me.Width / 2
Me.CurrentY = Me.Height / 2
Print "Jame Barname Nevis"


موفق باشید
یاعلی