جلوگيري از resize

[abulfazl]

با سلام خدمت دوستان عزيز . چطور مي توان كاري كرد كه وقتي برنامه اجرا مي شود نتوان ان را resize كرد
با تشكر

[xman_dj]

میتونی خاصیت BorderStyle فرم رو تغییر بدی روی 1 بگذار
یا توی
Form_Resize
کدی بنویسی که موقع تغییر یک پیغام بده و اندازه فرم رو به حالت قبلی برگردونه

[abulfazl]

میتونی خاصیت BorderStyle فرم رو تغییر بدی روی 1 بگذار
یا توی
Form_Resize
کدی بنویسی که موقع تغییر یک پیغام بده و اندازه فرم رو به حالت قبلی برگردونه
با تشكر از شما از border style نمي خواهم اين كار رو انجام بدهم لطفا كد برنامه ات رو دقيق مي گي باتشكر:قلب:

[xxxxx_xxxxx]

Dim w As Long, h As Long

Private Sub Form_Load()
w = Me.Width
h = Me.Height
End Sub

Private Sub Form_Resize()
Me.Height = h
Me.Width = w
End Sub