asked on

Converting NOTIFYICONDATA from VB6 to VB.NET

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

Bob Learned

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

ASKER CERTIFIED SOLUTION

Bob Learned

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

d532335

ASKER

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

Bob Learned

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.")

raetrace

Be sure to add

Imports System.Runtime.InteropServices

to the project