Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

.NET CE systray ...

[es] :: .NET :: .NET CE systray ...

[ Pregleda: 3629 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

overflow
Goran Milosavljević
Integration & Internet Senior
Engineer @ Telenor
Beograd

Član broj: 396
Poruke: 345
*.vdial.verat.net.

ICQ: 106825659
Sajt: localhost


Profil

icon .NET CE systray ...05.02.2005. u 08:45 - pre 233 meseci
Da li je neko uspeo da spusti ikonu u systray u CE framework-u (pocekPC) ?
Uopste, koja su vasa iskustva u koriscenju ovog osakacenog "okvira", neki korisni linkovi ... ?
Sve sto je besmislenije, utoliko je bolje.
 
Odgovor na temu

ntadic
bg

Član broj: 38173
Poruke: 75
217.26.75.*

ICQ: 317199697


Profil

icon Re: .NET CE systray ...28.02.2005. u 12:21 - pre 232 meseci
saljem ti ime funkcije, koja se koristi za ovu operaciju...

i primjer kako se to implementira u Visual Basic-u 6.

samo treba da pogledash malo informacije o funkciji u MSDN-u.

I naravno da prevedesh VB kod u .NET, ne bi trebalo da je problem...
(uradio bi ti to ja ali sad imam bruku posla na poslu...)

Linkovi:

www.allapi.net
------- Informacije o API programiranju (u VB6), na ovj adresi
takodje imash par korisnih programa koji sadrze dokumentaciju za sve
API funkcije (primjere, konstante, itd.)

http://msdn.microsoft.com/libr...html/cerefshell_notifyicon.asp
-------- Informacije o Windows CE .NET API-ju

EVO TI I SORS KOD PRIMJERA U VB6:

-------------------------------------------------------------------------------------------

'Download the full source+pictures+... at
http://kpdteam.hypermart.net/download/tray.zip
Private 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

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_RBUTTONUP = &H205

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias
"Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA)
As Boolean
Dim TrayI As NOTIFYICONDATA
Private Sub Form_Load()
TrayI.cbSize = Len(TrayI)
'Set the window's handle (this will be used to hook the specified window)
TrayI.hWnd = pichook.hWnd
'Application-defined identifier of the taskbar icon
TrayI.uId = 1&
'Set the flags
TrayI.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
'Set the callback message
TrayI.ucallbackMessage = WM_LBUTTONDOWN
'Set the picture (must be an icon!)
TrayI.hIcon = imgIcon(2).Picture
'Set the tooltiptext
TrayI.szTip = "Recent" & Chr$(0)
'Create the icon
Shell_NotifyIcon NIM_ADD, TrayI

Me.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
'remove the icon
TrayI.cbSize = Len(TrayI)
TrayI.hWnd = pichook.hWnd
TrayI.uId = 1&
Shell_NotifyIcon NIM_DELETE, TrayI
End
End Sub
Private Sub mnuPop_Click(Index As Integer)
Select Case Index
Case 0
MsgBox "KPD-Team 1998" + Chr$(13) + "URL:
http://www.allapi.net/" + Chr$(13) + "E-Mail: [email protected]",
vbInformation + vbOKOnly
Case 2
Unload Me
End Select
End Sub
Private Sub pichook_MouseDown(Button As Integer, Shift As Integer, X
As Single, Y As Single)
Msg = X / Screen.TwipsPerPixelX
If Msg = WM_LBUTTONDBLCLK Then
'Left button double click
mnuPop_Click 0
ElseIf Msg = WM_RBUTTONUP Then
'Right button click
Me.PopupMenu mnuPopUp
End If
End Sub
Private Sub Timer1_Timer()
Static Tek As Integer
'Animate the icon
Me.Icon = imgIcon(Tek).Picture
TrayI.hIcon = imgIcon(Tek).Picture
Tek = Tek + 1
If Tek = 3 Then Tek = 0
Shell_NotifyIcon NIM_MODIFY, TrayI
End Sub
----------------------------------------------------------------------

pozdrav
I tako...
 
Odgovor na temu

nervozica
Novi Beograd

Član broj: 18671
Poruke: 77
*.ikomline.net.



Profil

icon Re: .NET CE systray ...28.02.2005. u 14:23 - pre 232 meseci
http://www.microsoft.com/downl...5E261288AE3&displaylang=en
Djankam se, kuzish.
 
Odgovor na temu

[es] :: .NET :: .NET CE systray ...

[ Pregleda: 3629 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.