Solved

Converting NOTIFYICONDATA from VB6 to VB.NET

Posted on 2004-08-03
5
1,825 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
  • 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 300 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

Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

Join & Write a Comment

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…
Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…

708 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

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now