Solved

ico files with the numbers 1 through 100

Posted on 2013-12-17
4
562 Views
Last Modified: 2013-12-18
Hi,

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...

tnx
~j
0
Comment
Question by:prosit
  • 2
4 Comments
 
LVL 15

Expert Comment

by:WalkaboutTigger
ID: 39724924
Numbers 1 through 100
http://mapicons.nicolasmollet.com/numbers-letters/numbers/

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

Also check out
http://mapicons.nicolasmollet.com/

for other icons you may find interesting.

Google search used to find this resource:
https://www.google.com/search?num=100&safe=off&q=numbers+1+100+series+icons
0
 
LVL 2

Author Comment

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

~J
0
 
LVL 25

Accepted Solution

by:
Luis Pérez earned 500 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)
                    newIcon.Save(newFile)
                End Using
            End Using
        Next
End Sub

Open in new window

Hope that helps.
0
 
LVL 2

Author Closing Comment

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

~j
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I. Introduction In a previous article (http://www.experts-exchange.com/Web_Development/Document_Imaging/A_6537-PaperPort-Upgrade-How-to-download-and-install-updated-versions-of-PaperPort-11-and-12.html) (now deprecated), I discussed how to upgrad…
In a previously published article (http://www.experts-exchange.com/articles/10331/Automatic-Duplex-Scanning-in-PaperPort-Versions-11-12-14.html) here at Experts Exchange, I explained how to achieve duplex (double-sided) scanning in Nuance's PaperPor…
Learn how to automatically add page numbers in your next InDesign project. This can be very helpful in multi-page books and magazines that you are designing. Make sure your Pages window visible.:  In the document you wish to add page numbers to. Act…
In this sixth video of the Xpdf series, we discuss and demonstrate the PDFtoPNG utility, which converts a multi-page PDF file to separate color, grayscale, or monochrome PNG files, creating one PNG file for each page in the PDF. It does this via a c…

685 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