vb.netで現在のプロジェクト用に高品質のアイコンを作成する必要があります
これはこれまでの私のコードです、
Private Sub CreateIcon(ByVal bitmapName As String)
Try
Dim fi As New System.IO.FileInfo(bitmapName)
Dim bmp As New Bitmap(fi.FullName)
Dim sw As System.IO.StreamWriter = System.IO.File.CreateText(fi.FullName.Replace(fi.Extension, ".ico"))
Icon.FromHandle(bmp.GetHicon).Save(sw.BaseStream)
sw.Close()
Catch ex As Exception
System.Diagnostics.Debug.WriteLine(ex)
End Try
End Sub
しかし、問題は、最後に非常に低品質のアイコンしか表示されないことです。より高品質の画像を作成する方法について誰かが何かアイデアを持っていますか?