VB.NET - FUNZIONE CHE ESTRAE UNA IMMAGINE DA ImageList1 E LA TRASFORMA IN ICONA
Vi metto a disposizione una funzione che estrapola un'immagine da ImageList1.Images e la trasforma in icona, e la potete utilizzare in una NotifyIcon1.Icon .
Codice Visual Basic .NET / VB.NET :
Private Function IconaIMG(ByVal numero As Integer) As Icon
Dim ico As Icon
Dim ptrIcon As IntPtr
ptrIcon = DirectCast(ImageList1.Images.Item(numero), Bitmap).GetHicon
ico = Icon.FromHandle(ptrIcon)
Return ico
End Function
Richiamare la funzione precedentemente scritta :
NotifyIcon1.Icon = IconaIMG(179) ' Cosi facendo voglio che l'immagine che si trova alla posizione 179 la trasformo in icona e la utilizzo