PDA

View Full Version : از کار انداختن دکمه close و maximize



arsalansalar
سه شنبه 15 آبان 1386, 20:31 عصر
سلام دوستان عزیز
من در یک پروژه احتیاج به این دارم که در بالای فرمم دکمه minimize فعال باشد ولی دکمه
close و maximise غیر فعال باشد چگونه می شود این کار را انجام داد؟

amirsajjadi
سه شنبه 15 آبان 1386, 21:11 عصر
با سلام
اینم کدش

PrivateDeclareFunction DeleteMenu Lib"user32" (ByVal hMenu AsInteger, ByVal nPosition AsInteger, ByVal wFlags AsInteger) AsInteger
PrivateDeclareFunction GetSystemMenu Lib"user32" (ByVal hwnd AsInteger, ByVal bRevert AsInteger) AsInteger
PrivateConst MF_BYPOSITION = &H400&
Private ReadyToClose AsBoolean
PrivateSub RemoveMenus(ByVal frm As Form, _
ByVal remove_restore AsBoolean, _
ByVal remove_move AsBoolean, _
ByVal remove_size AsBoolean, _
ByVal remove_minimize AsBoolean, _
ByVal remove_maximize AsBoolean, _
ByVal remove_seperator AsBoolean, _
ByVal remove_close AsBoolean)
Dim hMenu AsInteger
hMenu = GetSystemMenu(Me.Handle.ToInt32, False)
If remove_close Then DeleteMenu(hMenu, 6, MF_BYPOSITION)
If remove_seperator Then DeleteMenu(hMenu, 5, MF_BYPOSITION)
If remove_maximize Then DeleteMenu(hMenu, 4, MF_BYPOSITION)
If remove_minimize Then DeleteMenu(hMenu, 3, MF_BYPOSITION)
If remove_size Then DeleteMenu(hMenu, 2, MF_BYPOSITION)
If remove_move Then DeleteMenu(hMenu, 1, MF_BYPOSITION)
If remove_restore Then DeleteMenu(hMenu, 0, MF_BYPOSITION)
EndSub
PrivateSub Form1_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
Me.MaximizeBox = False
RemoveMenus(Me, False, False, False, False, False, False, True)
EndSub

reza1944
جمعه 16 آذر 1386, 00:20 صبح
سوال من با زدن دکمه MINIMAIZE فرم برنامه به SYSTEM TRAY منتقل می شود. در VB.net 2005 .لطفا جواب من رو بدید من خیلی نیاز دارم.

Sub Zero
جمعه 16 آذر 1386, 19:01 عصر
سوال من با زدن دکمه MINIMAIZE فرم برنامه به SYSTEM TRAY منتقل می شود. در VB.net 2005 .لطفا جواب من رو بدید من خیلی نیاز دارم.

Private Sub frmMain_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
If Me.WindowState = FormWindowState.Minimized Then Me.Hide()
End Sub
البته باید از کنترل NotifyIcon هم استفاده کنی

reza1944
یک شنبه 18 آذر 1386, 22:11 عصر
ممنون از جواب این سوالتون اما یه سوال دیگه
من یک فرم دارم می خوام با progress bar بار گذاری کنم این بارگذاری فرم با progress bar چطور است؟
progress bar با لود فرم بره جلو و وقتی فرم لود شد اونم به صد برسه این خیلی ممنون میشم که جواب بدید فقط Progress bar سوری نباشه با لود فرم بره جلو مثلا برنامه که اولش یک لود میزارن

amirsajjadi
دوشنبه 19 آذر 1386, 05:30 صبح
دوست عزیز شما میتونید از کنترل BackgroundWorker استفاده کنید یک مثالشو من توی همین سایت گذاشتم
یک سرچ بزنی پیدا میکنی

reza1944
دوشنبه 19 آذر 1386, 18:57 عصر
خیلی ممنون آخرین سوال بنده اینکه چطور توی Report Viewer با کد نویسی کاغذ رو Landscape کنی یا اندازه کاغذ رو عوض کنی مثلا بکنی A3

reza1944
چهارشنبه 21 آذر 1386, 01:04 صبح
یکی نیست این مطلبی که نوشتم بدونه ؟

reza1944
چهارشنبه 21 آذر 1386, 01:05 صبح
برنامه نویسان جواب بدید :
چطور توی Report Viewer با کد نویسی کاغذ رو Landscape کنی یا اندازه کاغذ رو عوض کنی مثلا بکنی A3

reza1944
چهارشنبه 21 آذر 1386, 01:06 صبح
برنامه نویسان جواب بدید :
چطور توی Report Viewer با کد نویسی کاغذ رو Landscape کنی یا اندازه کاغذ رو عوض کنی مثلا بکنی A3