Minimalizace ikony do hl. panelu – Visual Basic – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Minimalizace ikony do hl. panelu – Visual Basic – Fórum – Programujte.comMinimalizace ikony do hl. panelu – Visual Basic – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
inFx
~ Anonymní uživatel
4 příspěvky
29. 8. 2007   #1
-
0
-

Ahoj poradí mi někdo jak minimalizovat ikonu projektu do hlavniho panelu ?

Nahlásit jako SPAM
IP: ...–
Reklama
Reklama
jkonopasek
~ Anonymní uživatel
69 příspěvků
29. 8. 2007   #2
-
0
-

Pro zobrazení ikony do SysTray

TrayIcon.cbSize = Len(TrayIcon)
TrayIcon.hwnd = Me.hwnd
TrayIcon.uID = 0
TrayIcon.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
TrayIcon.uCallbackMessage = WM_MOUSEMOVE
Me.Icon = Me.Image1.Picture
TrayIcon.hIcon = Me.Icon
TrayIcon.szTip = "RMouse = Nastavení" & vbCrLf & _
"LMouse = Konec"
RetVal = Shell_NotifyIcon(NIM_ADD, TrayIcon)

Pro změnu ikony zobrazené v SysTray

TrayIcon.cbSize = Len(TrayIcon)
TrayIcon.uID = 0
TrayIcon.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
TrayIcon.hIcon = Me.Image2.Picture
TrayIcon.szTip = "Přihlášení do NoVB" & vbCrLf & "Sledování uživatelů" & vbCrLf & "Archivace dat a zdrojů"
RetVal = Shell_NotifyIcon(NIM_MODIFY, TrayIcon)

Pro vymazání ikony ze Systray

TrayIcon.cbSize = Len(TrayIcon)
TrayIcon.hwnd = Me.hwnd
TrayIcon.uID = 0
TrayIcon.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
RetVal = Shell_NotifyIcon(NIM_DELETE, TrayIcon)

Pro ošetření kliknutí na ikonku v SysTray

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim ProShell As Variant
RetVal = x / Screen.TwipsPerPixelX
Select Case RetVal
Case WM_LBUTTONDOWN 'reakce na levou myš
Me.Show
Me.Refresh
Me.WindowState = vbMinimized
End
Case WM_RBUTTONDOWN 'reakce na pravou myš
Me.Show
Me.Refresh
End Select
End Sub

potřebné deklarace
pro položení do SysTray

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Public TrayIcon As NOTIFYICONDATA
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIF_ICON = &H2
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2

pro klepnutí myši na ikonu v SysTray
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN As Long = &H201
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_MBUTTONDOWN = &H207
Public RetVal As Long

Nahlásit jako SPAM
IP: ...–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 10 hostů

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý