ورود

View Full Version : Maximize , Restore Down كردن فرم



MohammadGh2011
سه شنبه 24 خرداد 1390, 13:26 عصر
سلام دوستان خوب
من ميخوام برنامم اجرا شد اگه مثلا يك label در گوشه فرم داشتم وقتيRestore Down و يا Maximize كردم همون گوشه بمونه تكوني نخوره كه طراحي برنامم خراب شه؟
اميدوارم كه منظورم رو متوجه شده باشيد و راهنماييم كنيد
ممنونم عزيزان

Mr.Unknown
سه شنبه 24 خرداد 1390, 13:44 عصر
اگر منظورتون هنگام ریسایز کردن فرم آبجکت ها اتو ریسایز بشن این سورس مشکلتون رو حل میکنه.موفق باشید

MohammadGh2011
سه شنبه 24 خرداد 1390, 14:12 عصر
سلام جناب Mr.Unknown (http://barnamenevis.org/member.php?182748-Mr.Unknown)
اين سورسي رو كه لطف كردين گذاشتين سرشار از خطا است:افسرده:
بله تقريبا منظور من همين بود .همين سورسي كه گذاشتين ميخوام وقتي فرم كوچك يا بزرگ ميشه شيء هاي داخلش همون اندازه بمونه و تغييري نكنه.
شما يك label همون طور كه گفتم رو بالا سمت راست بگذاريد و فرم رو كوچك و بزرگ كنيد ميبينيد كه اونlabel
همون جايي كه گذاشتين ميمونه يعني بزرگ كردني ديگه نميره اون گوشه!!!!؟:متفکر:
ممنونم ازت جناب Mr.Unknown (http://barnamenevis.org/member.php?182748-Mr.Unknown)

MMR_1344
سه شنبه 24 خرداد 1390, 15:06 عصر
میتونی مختصات سمت چپ فرمت رو بگیری بعد بر اساس اندازه طول فرمت مختصات قرار گرفتن تکست رو انتخاب کنی

Mr.Unknown
سه شنبه 24 خرداد 1390, 15:24 عصر
سلام جناب Mr.Unknown (http://barnamenevis.org/member.php?182748-Mr.Unknown)
اين سورسي رو كه لطف كردين گذاشتين سرشار از خطا است:افسرده:
بله تقريبا منظور من همين بود .همين سورسي كه گذاشتين ميخوام وقتي فرم كوچك يا بزرگ ميشه شيء هاي داخلش همون اندازه بمونه و تغييري نكنه.
شما يك label همون طور كه گفتم رو بالا سمت راست بگذاريد و فرم رو كوچك و بزرگ كنيد ميبينيد كه اونlabel
همون جايي كه گذاشتين ميمونه يعني بزرگ كردني ديگه نميره اون گوشه!!!!؟:متفکر:
ممنونم ازت جناب Mr.Unknown (http://barnamenevis.org/member.php?182748-Mr.Unknown)

خیر برنامه مشکل نداره یک لیبل روی زمینه بزارید بعد فرم رو ریسایز کنید میبینید که لیبل هم ریسایز میشه

pcdownload.bloghaa.com
سه شنبه 24 خرداد 1390, 15:26 عصر
Dim y As Integer
Private Sub Form_Load()
y = Me.Height - Label1.Top
End Sub
Private Sub Form_Resize()
Label1.Top = Me.Height - y
End Sub