Problèmes avec systray en vb2005Résolu

Question

Bonjour,

je viens de passer &#224; VB2005 (&#224; mon avis ceux qui utilisent .NET peuvent
tr&#232;s bien me r&#233;pondre, vb6 pas vu la nature de mon probl&#232;me...)

Je voudrais cr&#233;er un prog avec notamment une icone dans la barre
systray. J'ai copi&#233; coll&#233; un code sample tout fait pour &#231;a (sans doute
t&#233;l&#233;charg&#233; &#224; la base sur vbFrance ou chez microsoft...), je l'ai &#224;
peine modifi&#233; (des b&#234;tises comme Type -> Structure, ou Me.hwnd ->
Me.Handle.ToInt64) et il me fait une erreur sur
"Shell_NotifyIcon(NIM_ADD, Nid)", AccessViolationUnhandled... Voil&#224; le
code exact :



Public Class Form1

    Public Structure NOTIFYICONDATA

        Dim cbSize As Long

        Dim hwnd As Long

        Dim uId As Long

        Dim uFlags As Long

        Dim uCallBackMessage As Long

        Dim hIcon As Long

        Dim szTip As String

    End Structure



    Public Const NIM_ADD = &H0

    Public Const NIM_MODIFY = &H1

    Public Const NIM_DELETE = &H2

    Public Const NIF_MESSAGE = &H1

    Public Const NIF_ICON = &H2

    Public Const NIF_TIP = &H4

    Public Const WM_MOUSEMOVE = &H200

    Public Const WM_LBUTTONDOWN = &H201     'Button down

    Public Const WM_LBUTTONUP = &H202       'Button up

    Public Const WM_LBUTTONDBLCLK = &H203   'Double-click

    Public Const WM_RBUTTONDOWN = &H204     'Button down

    Public Const WM_RBUTTONUP = &H205       'Button up

    Public Const WM_RBUTTONDBLCLK = &H206   'Double-click



    Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

    Public Declare Function Shell_NotifyIcon Lib
"shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, ByVal
pnid As NOTIFYICONDATA) As Boolean

    Public Declare Function SystemParametersInfo Lib
"user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal
uParam As Long, ByRef lpvParam As Long, ByVal fuWinIni As Long) As Long



    Dim Nid As NOTIFYICONDATA



    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        With Nid

            .cbSize = Len(Nid)

            .hwnd = Me.Handle.ToInt64

            .uId = vbNull

            .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE

            .uCallBackMessage = WM_MOUSEMOVE

           
.hIcon = System.Drawing.Icon.ExtractAssociatedIcon("c:	emp.bmp").Handle

            .szTip = "Gowap" & vbNullChar

        End With

    End Sub



    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown

        Shell_NotifyIcon(NIM_ADD, Nid)

    End Sub

End Class



Voila, voila... Merci pour votre aide...



Julien

Renfield · Accepted Answer

Utilises donc un contrôle "NotifyIcon" ...

Julien237 · Answer

Petit d&#233;tail : le code fonctionne impec sous vb6

Julien237 · Answer

Ho merci, je l'avais pas vu celui-l&#224;

Problèmes avec systray en vb2005

3 réponses

Discussions similaires