ico files with the numbers 1 through 100

Posted on 2013-12-17
Medium Priority
Last Modified: 2013-12-18

Instead of having to make them, is there a collection somewhere I can download of .ico files with the numbers 1 through 100...

Style and color doesn't matter too much...

Question by:prosit
  • 2
LVL 15

Expert Comment

by:Darrell Porter
ID: 39724924
Numbers 1 through 100

The tool allows you to change the aspects of the icons then download them all as a ZIP file.

Also check out

for other icons you may find interesting.

Google search used to find this resource:

Author Comment

ID: 39725124
yeah i found that site, but I needed .ico files... I guess I can convert them, i have adobe cs...

LVL 25

Accepted Solution

Luis Pérez earned 2000 total points
ID: 39726263
Why don't you create them in a moment?

Here's how:

Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO

Private Sub CreateIcons()
        Dim iconSize As Integer = 32
        For k As Integer = 1 To 100
            Dim bmp As Bitmap = New Bitmap(iconSize, iconSize) 'Or the size you need
            Using g As Graphics = Graphics.FromImage(bmp)
                g.Clear(Color.Red) 'Or the background color you want
                g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
                g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                g.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
                g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
                g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
                Using f As Font = New Font("Tahoma", 14) 'Or the font/size you want
                    Dim size As SizeF = g.MeasureString(k.ToString, f)
                    g.DrawString(k.ToString, f, Brushes.White, New PointF((iconSize - size.Width) / 2, (iconSize - size.Height) / 2))
                End Using
            End Using
            Using newIcon As Icon = Icon.FromHandle(bmp.GetHicon)
                Using newFile As FileStream = New FileStream("c:\basura\iconos\" + k.ToString("000") + ".ico", FileMode.OpenOrCreate)
                End Using
            End Using
End Sub

Open in new window

Hope that helps.

Author Closing Comment

ID: 39726399
That's quite clever, thanks a bunch...


Featured Post

Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

A long time ago (May 2011), I have written an article showing you how to create a DLL using Visual Studio 2005 to be hosted in SQL Server 2005. That was valid at that time and it is still valid if you are still using these versions. You can still re…
This article describes and provides a custom-made tool I wrote to give businesses a means of identifying commercial music content, without having to expend too much effort. Business recordings are easily identified from possibly illegal music files …
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
The goal of the tutorial is to teach the user how to remove a natural vignette your photos and how to add vignette to your photos.
Suggested Courses

627 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question