مینیمایز و ماکسیمایز در فرم

[majidartoor]

باسلام به همه ی دوستان
آیا کدی وجود داره که به وسیله ی اون دکمه مینیمایز و ماکسیمایز هم در کنار ضرب در یوزر فرم نمایش داده بشه؟
دوستان در یه تاپیک هم سوال پرسیده بودن ولی کسی جواب نداده بود.
همچنین برای نمایش یوزرفرم در بزرگترین اندازه چه باید کرد؟

[علی فاطمی]

با سلام
برای قسمت اول سوالتون به لینک زیر مراجعه کنید
تغییر در کنترلهای یوزر فرم (http://forum.exceliran.com/showthread.php/5118-%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1-%D8%AF%D8%B1-%DA%A9%D9%86%D8%AA%D8%B1%D9%84%D9%87%D8%A7%DB%8C-%DB%8C%D9%88%D8%B2%D8%B1-%D9%81%D8%B1%D9%85)و برای ماکزیمم

Private Sub UserForm_initialize()
Application.WindowState = xlMaximized
Me.Width = Application.Width
Me.Height = Application.Height
End Sub

[امين اسماعيلي]

با درود
فایل پیوست در خدمت شما - ببین همینو میخواستی دیگه

[misammisam]

با درود
فایل پیوست در خدمت شما - ببین همینو میخواستی دیگه
امين خيلي عالي بود ، نميدونستم ميشه اينكارو تو يوزر فرم اكسلم انجام داد .
حالا يه سوال ، چطوري ميشه كليد ضربدر كه يوزر فرمرو ميبنده حذفش كرد و كلا نباشه ، خودمون مثل همون دكمه اي كه گذاشتي براي خروج دكمه بزاريم .

[امين اسماعيلي]

با درود
کد داره تو ایونتش بنویسی کلا کار نمیکنه


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Use a Exit button to close this userform."
Cancel = True
End If
End Sub




تو یوزر فرمت بزار

[misammisam]

ممنون ، اينو قبلا ديده بودم ، منظورم اين بود كه كلا اون دكمه ضربدر براي close حذف بشه و نباشه ، براي اين كدي نداري .

[امين اسماعيلي]

با درود
اینم خدمت اقا میثم - کلیدم نداره

[misammisam]

با درود
اینم خدمت اقا میثم - کلیدم نداره
تشكر
بله خوبه ، فقط نميشه دكمه ضربدرو محو كرد .
تو نرم افزار خود ويژوال بيسيك يادمه كه ميشد اينكارو كرد ، ولي تو يوزر فرم اكسل من چيزي نديدم .

[majidartoor]

سلام
در مورد فرم با دکمه مینیمایز عرضم به حضورتون که....
این فایلی که گذاشتید برای ویندوز 32 بیتی هست،تو 64 بیتی کار نمیکنه،چه کنم؟