?
Solved

Converting NOTIFYICONDATA from VB6 to VB.NET

Posted on 2004-08-03
5
Medium Priority
?
1,892 Views
Last Modified: 2008-01-16
I have some VB6 code that I am converting to .NET.  It is going fairly well but I have a structure that is defined and passed from the Shell_NotifyIcon shell32 method.  Below is how i converted it from the VB6 code.  The problem I am having is that the hIcon is an Integer and I need to set it as a Form.Icon object.  This apparently was allowed in VB6 but not in .NET.  How can I do what I am looking to do.

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.ANSI)> Public Structure NOTIFYICONDATA
        Dim cbSize As Integer
        Dim hwnd As Integer
        Dim uId As Integer
        Dim uFlags As Integer
        Dim uCallBackMessage As Integer
        Dim hIcon As Integer
        <VBFixedString(64), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=64)> Public szTip As String

    End Structure
0
Comment
Question by:d532335
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
5 Comments
 
LVL 96

Expert Comment

by:Bob Learned
ID: 11707026
Are you trying to show a balloon on the task bar:

   Public Shared Sub ShowNotifyIconBalloon(ByVal ptrHandle As IntPtr, _
      ByVal ptrIcon As IntPtr, ByVal strTitle As String, ByVal strText As String)

      Try

         Dim uNIF As NOTIFYICONDATA

         With uNIF
            .cbSize = Marshal.SizeOf(uNIF)
            .hwnd = ptrHandle
            .uID = 1
            .dwInfoFlags = NIF_ICON Or NIF_MESSAGE Or NIIF_WARNING
            .uCallbackMessage = New IntPtr(&H500)
            .uVersion = NOTIFYICON_VERSION
            .hIcon = ptrIcon
         End With

         Dim boolResult As Boolean = Shell_NotifyIcon(NIM_ADD, uNIF)

         '// Send a balloon message
         With uNIF
            .uFlags = NIF_INFO
            .uVersion = 2000
            .szInfoTitle = strTitle
            .szInfo = strText
            .dwInfoFlags = NIIF_INFO
         End With

         boolResult = Shell_NotifyIcon(NIM_MODIFY, uNIF)

      Catch ex As Exception

         MsgBox(ex.ToString)

      End Try

   End Sub 'ShowNotifyIconBalloon'

Bob
0
 
LVL 96

Accepted Solution

by:
Bob Learned earned 1200 total points
ID: 11707132
Forgot the definitions:

   <StructLayout(LayoutKind.Sequential)> Private Structure NOTIFYICONDATA
      Dim cbSize As Int32
      Dim hwnd As IntPtr
      Dim uID As Int32
      Dim uFlags As Int32
      Dim uCallbackMessage As IntPtr
      Dim hIcon As IntPtr
      <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)> Dim szTip As String
      Dim dwState As Int32
      Dim dwStateMask As Int32
      <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=256)> Dim szInfo As String
      Dim uVersion As Int32
      <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=64)> Dim szInfoTitle As String
      Dim dwInfoFlags As Int32
   End Structure

   Private Const NIF_MESSAGE As Int32 = &H1
   Private Const NIF_ICON As Int32 = &H2
   Private Const NIF_STATE As Int32 = &H8
   Private Const NIF_INFO As Int32 = &H10
   Private Const NIF_TIP As Int32 = &H4
   Private Const NIM_ADD As Int32 = &H0
   Private Const NIM_MODIFY As Int32 = &H1
   Private Const NIM_DELETE As Int32 = &H2
   Private Const NIM_SETVERSION As Int32 = &H4
   Private Const NOTIFYICON_VERSION As Int32 = &H5
   Private Const NIS_HIDDEN As Int32 = &H1
   Private Const NIS_SHAREDICON As Int32 = &H2
   Private Const NIIF_ERROR As Int32 = &H3
   Private Const NIIF_INFO As Int32 = &H1
   Private Const NIIF_NONE As Int32 = &H0
   Private Const NIIF_WARNING As Int32 = &H2
   Private Const NIM_SETFOCUS As Int32 = &H4
   Private Const NIIF_GUID As Int32 = &H5

   Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" _
      (ByVal dwMessage As Int32, ByRef lpData As NOTIFYICONDATA) As Boolean

Bob
0
 

Author Comment

by:d532335
ID: 11708322
How do you convert an icon into an IntPtr?

With nid
  .cbSize = Len(nid)
  .hwnd = New IntPtr(Me.Handle.ToInt32)
  .uId = VariantType.Null
  .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
  .uCallBackMessage = WM_MOUSEMOVE
  .hIcon = Me.Icon
End With
0
 
LVL 96

Expert Comment

by:Bob Learned
ID: 11709612
Usage is something like this (from a form with an icon):

ShowNotifyIconBalloon(Me.Handle, Me.Icon.Handle, "Application", "This is a test of the radio broadcast system.")
0
 

Expert Comment

by:raetrace
ID: 12578637
Be sure to add

Imports System.Runtime.InteropServices

to the project
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: Kraeven
Introduction Remote Share is a simple remote sharing tool, enabling you to see, add and remove remote or local shares. The application is written in VB.NET targeting the .NET framework 2.0. The source code and the compiled programs have been in…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB. How Percona can help Percona can help you determine if Percona Server for MongoDB is the right solution for …
In this video, Percona Solutions Engineer Barrett Chambers discusses some of the basic syntax differences between MySQL and MongoDB. To learn more check out our webinar on MongoDB administration for MySQL DBA: https://www.percona.com/resources/we…
Suggested Courses

765 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question