![]() I made three colour variations: the original MusicBee colouring, a green version, and a red one. Here are some MusicBee icon sets that contain pretty much all icon sizes that Windows and most applications will ever need. That will usually probably look fine, but it won't be pixel-perfect as intended. ![]() These will work fine in most circumstances.īut when an application-or Windows scaling-needs to display an icon in a size that is not provided, it will do some resizing of an available image. The current MusicBee icon file (musicbee.exe) contains a limited amount of the basic recommended icon sizes. Is there a way for me to get the best Resolution icon.Ĭan you post the code? as i've spent an hour just looking around following links, but it's all in c# and not to much help for me.The way application icons are rendered and displayed can vary a lot between display settings, screen resolutions, applications, the use of scaling, etc. Images of icon to compair Desktop, In Program If linker(start).Contains(" (x86)") Then 'some programs didn't want to work so i added this as a fix If ("Title") Then start = Val(Replace(sender.Name, "Title", "")) If ("Icon") Then start = Val(Replace(sender.Name, "Icon", "")) Public Sub Start_Link(sender As Object, e As EventArgs) IconArray(counter).BackgroundImage = DirectCast(My.(Item), Bitmap) 'Seaches for Item in Resources if its found its add set to the icons background 'I've got a bunch of images of icons in Resources ![]() Item = Item.Replace(" ", "-") 'Replaces " " with "-" 'This part is how i Get the higher Res icons TitleArray(counter).Text = Item 'Sets the display text for the item Item = Item.Replace(Extension, "") 'Removes the extension from item E.G item = "Hi.txt" now item = "Hi" If Item = "desktop.ini" Then '"desktop.ini" Didn't want to work thats why i have the code at the top of this sub Item = IO.Path.GetFileName(Item) 'Gets the Items name E.G Item = "C:\Users\Public\Desktop\Hi.txt" now item = "Hi.txt" IconArray(counter).BackgroundImage = Icon.ExtractAssociatedIcon(Item).ToBitmap 'Gets a 32x32 icon from item then sets it as the icons backgroundĭim Extension = IO.Path.GetExtension(Item) 'Gets the extension from item, to be used later Linker(counter) = Item 'adds item to array to be use to start the programs IconArray(0).BackgroundImage = Fake_Background.My.Resources.This_PCįor Each Item In Apps_on_Screen.Items 'loops for every item in listbox Title.Font = New Font("Microsoft Sans Serif", 9)ĪddHandler Title.DoubleClick, AddressOf Me.Start_Link Title.TextAlign = ContentAlignment.TopCenter Title.Location = New Point(Title_Position_X, Title_Position_Y) If (Icon_Position_Y 50) >= Then 'When the Picture box reaches the bottom of the sceen the Y Resets and The X Gets Increased Icon_Position_Y = 101 'Changes the Y Postion on next Picturebox IconArray(i) = Icon 'Adds picturebox to an Array for easyer use laterĪddHandler Icon.DoubleClick, AddressOf Me.Start_Link 'Adds a Double click Handler for picturebox on A Sub Me.Controls.Add(Icon) 'Adds picturebox to controls Icon.Location = New Point(Icon_Position_X, Icon_Position_Y) 'Sets the Pictureboxs X and Y Icon.Size = New Size(78, 51) 'Sets the Picturebox a size Icon.Name = "Icon"
0 Comments
Leave a Reply. |