ROSTAM2
دوشنبه 25 فروردین 1393, 21:21 عصر
سه تابع Overload هست که توی یک ماجول می تونید استفاده کنید...
'Converting Image to Icon
Public Function CIcon(ByVal Image As Image) As Icon
Dim ico As Icon = Nothing
ico = Icon.FromHandle(New Bitmap(Image).GetHicon)
Return ico
End Function
'Convert ImageList Item As Image to Icon
Public Function CIcon(ByVal ImageList As ImageList, ByVal Index%) As Icon
Dim ico As Icon = Nothing
ico = CIcon(ImageList.Images(Index))
Return ico
End Function
Public Function CIcon(ByVal path As String) As Icon
Dim ico As Icon = Nothing
ico = CIcon(Image.FromFile(path))
Return ico
End Function
'Converting Image to Icon
Public Function CIcon(ByVal Image As Image) As Icon
Dim ico As Icon = Nothing
ico = Icon.FromHandle(New Bitmap(Image).GetHicon)
Return ico
End Function
'Convert ImageList Item As Image to Icon
Public Function CIcon(ByVal ImageList As ImageList, ByVal Index%) As Icon
Dim ico As Icon = Nothing
ico = CIcon(ImageList.Images(Index))
Return ico
End Function
Public Function CIcon(ByVal path As String) As Icon
Dim ico As Icon = Nothing
ico = CIcon(Image.FromFile(path))
Return ico
End Function