Application Bar update - Clearer Icons
Posted: Mon Jul 27, 2009 5:52 am
Hi,
OK I have made a small modification to the Application Bar which shows your shortcut icons without the annoying shortcut arrow on top of it so now they look nice crisp and clear like this:
![Image]()
It doesnt work on absolutely every icon though, shortcuts to like 'C:\' still show the arrow but im working on it.
OK to modify the code you need to find these 2 sections in the code:
. Compile and test it out. Any problems please let me know.
OK I have made a small modification to the Application Bar which shows your shortcut icons without the annoying shortcut arrow on top of it so now they look nice crisp and clear like this:
It doesnt work on absolutely every icon though, shortcuts to like 'C:\' still show the arrow but im working on it.
OK to modify the code you need to find these 2 sections in the code:
Code: Select all
Thats repeated twice in the code you already have. You need to replace those sections with the following code:Try
Using ico As Icon = Drawing.Icon.ExtractAssociatedIcon(line)
Dim s = ico.ToBitmap
w.Image = s
End Using
Catch
w.BackColor = Color.Aqua
End Try
Code: Select all
And thats it Try
Dim shortcut, starget As String
Dim oshelllink
Dim wsh As Object = CreateObject("WScript.Shell")
wsh = CreateObject("WScript.Shell")
shortcut = filename
oshelllink = wsh.CreateShortcut(shortcut)
starget = oshelllink.TargetPath
Using ico As Icon = Drawing.Icon.ExtractAssociatedIcon(starget)
Dim s = ico.ToBitmap
w.Image = s
End Using
Catch ex As Exception
Using ico As Icon = Drawing.Icon.ExtractAssociatedIcon(filename)
Dim s = ico.ToBitmap
w.Image = s
End Using
End Try