+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: برداشتن ایکن از کنار ساعت (/showthread.php?tid=2901)
برداشتن ایکن از کنار ساعت - gachboy - 11-19-2012
سلام.چطور میتونیم ایکن برنامه ای از کنار ساعت برداریم؟
یا از پیغام دادنشون جلوگیری کنیم،مثلا وقتی فایروال disable میکنیم
پیغام میده،چطور باید از دادن پیغام جلوگیری کنیم؟
RE: برداشتن ایکن از کنار ساعت - Amin_Mansouri - 11-20-2012
درود
شما باید هندل پنچره رو پیدا کنی hide کنی
یه مثال میزنم ببین :
کد:
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Sub HideMyApp()
Dim hwd As Long
hwd = FindWindow(vbNullString, "Untitled - Notepad")
If hwd > 0 Then
'ShowWindow hwd, SW_HIDE
SetWindowPos hwd, 1, 0, 0, 0, 0, SWP_HIDEWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End If
End Sub
Sub ShowMyApp()
Dim hwd As Long
hwd = FindWindow(vbNullString, "Untitled - Notepad")
If hwd > 0 Then
'ShowWindow hwd, SW_SHOW
SetWindowPos hwd, 1, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End If
End SubRE: برداشتن ایکن از کنار ساعت - gachboy - 11-20-2012
از کنار ساعت نه از taskbar
RE: برداشتن ایکن از کنار ساعت - Amin_Mansouri - 11-21-2012
میدونم
سورس باید تو فروم گذاشته باشم
بگردید
به هر حال شما باید هندل رو بدست بیاری
تو سورس بالا یاد میگرید هندلو بدست بیاری
و مخفی کنی
کافیه هندل برنامه مورد نظر خود رو پیدا کنی مخفی کنی
http://www.freevbcode.com/ShowCode.asp?ID=671
http://support.microsoft.com/kb/88476