分享
 
 
 

VisualBasic.NET和GDI+共创图标编辑器

王朝vb·作者佚名  2008-05-19
窄屏简体版  字體: |||超大  

如果想自己设计一个个性独特的ico图片,然后让它成为如"我的电脑","回收站"这样的图标该怎么做?就只有用一些专门的画图工具。因为Windows的的画图程序无法创建ico文件。于是本人利用.net和GDI+就编写了一个这样的画图工具。虽然现在有很多文章都介绍了GDI+技术,但都只是纯粹的GDI+的简单应用的介绍,至少我还没有看见一篇利用GDI+开发一个完整软件或程序片段的文章。

这个程序实现了以下的功能:将BMP、JPG、jpeg、GIF、.png、.tiff文件转化成ico文件,可以对转化后的文件进行编辑;创建并编辑一个新的ico文件;对已有的ico文件进行编辑。所有被编辑的文件都保存为ico文件,可以在任何可使用ico文件的地方使用它们。

我先说明一下什么是GDI+。GDI+ 是GDI(Windows 早期版本提供的图形设备接口)的后续版本,是Microsoft Windows XP操作系统即后续版本的图形显示技术。它已经集成到了.net开发环境中,所以不管你的OS是什么版本,只要安装了.NET框架,就有了GDI+(注意:是.net框架,而不是.net开发环境,所以win98中也可以使用GDI+)。当然它也提供了传统的api,可以由.net或非.net开发工具调用它。由于他和GDI的使用有很大的差别,所以要使用GDI+就必须从头学。GDI+要比GDI简单得多。

现在就来看一下如何实现这个软件:先添加picturebox,0penfiledialog,savefiledialog,colordialog,domainupdown,label控件;然后添加两个菜单即它们的子菜单,添加的菜单如下"文件"菜单包括"新建","打开","保存","退出","功能"菜单包括"直线","选择颜色"代码如下,在代码后给出程序说明:

Public Class Form1

Inherits System.Windows.Forms.Form

Public imagepen, newbit, changiamge, mpen 'movepen,moveb,,grh,filenames,endpen

Dim xd, yd, xu, yu, pk, ps

Private Sub MenuItem9_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) 'Handles MenuItem9.Click

'新建一个ico文件,即"新建"菜单

PictureBox1.Image = Nothing

Dim bitnew As New System.Drawing.Bitmap(32, 32,

Drawing.Imaging.PixelFormat.Format32bppArgb)'建立一个Bitmap对象,以便在它上面画图

Dim x, y

For x = 0 To 31

For y = 0 To 31

bitnew.SetPixel(x, y, Color.Transparent)'将Bitmap的背景设置为透明

Next

Next

newbit = bitnew

MenuItem3.Enabled = False'"选择颜色"菜单不可用

MenuItem2.Enabled = True'"直线"菜单可用

End Sub

Private Sub MenuItem6_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)' Handles MenuItem6.Click

'打开图片文件即"打开"菜单"

OpenFileDialog1.Filter = "ico文件(*.ico)|*.ico|图像文件

(*.BMP;*.JPG;*.jpeg;*.GIF;*.png;*.tiff)|*.BMP;*.JPG;*.jpeg;*.GIF;*.png;*.tiff"

OpenFileDialog1.FilterIndex = 2

OpenFileDialog1.ShowDialog()

OpenFileDialog1.FileName = ""

End Sub

Private Sub MenuItem8_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) 'Handles MenuItem8.Click

Me.Close()'退出

End Sub

Private Sub MenuItem7_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)

'Handles MenuItem7.Click

'保存文件,即"保存"对话筐

PictureBox1.Cursor = System.Windows.Forms.Cursors.Default

SaveFileDialog1.Filter = "ico文件(*.ico)|*.ico"'设置要保存的文件后缀

SaveFileDialog1.ShowDialog()

If SaveFileDialog1.FileName <> "" Then

If Not SaveFileDialog1.ShowDialog.Cancel Then

Dim bmp As New System.Drawing.Bitmap(PictureBox1.Image,

32,32)'从PictureBox1.Image初始化Bitmap,设置保存为图片的大小,标准ico图由

32*32和16*16两种格式组成,此处为32*32,你也可以设置为16*16

Dim ico As System.Drawing.Icon = ico.FromHandle(bmp.GetHicon())

'用Bitmap的句柄,初始化icon,他是专门处理ico文件的类

Dim file As New System.IO.FileStream(SaveFileDialog1.FileName(),

IO.FileMode.Create)'创建文件流

ico.Save(file)'保存为ico文件

file.Close()'关闭流

End If

End If

End Sub

Public Sub MenuItem2_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)

'Handles MenuItem2.Click

'是用直线在新建的ico中画图

PictureBox1.Cursor =System.Windows.Forms.Cursors.Cross

'在PictureBox1中鼠标的样式

ColorDialog1.ShowDialog()

Dim pen As New Pen(ColorDialog1.Color, DomainUpDown1.Text())'创建画笔

imagepen = pen

End Sub

Private Sub PictureBox1_MouseDown(ByVal sender As System.Object,

ByVal e As System.Windows.Forms.MouseEventArgs)

'Handles PictureBox1.MouseDown

'当按下鼠标左键时获取直线的起点

If e.Button = MouseButtons.Left Then

xd = e.X / 8 : yd = e.Y / 8

End If

End Sub

Private Sub PictureBox1_MouseUp(ByVal sender As System.Object,

ByVal e As System.Windows.Forms.MouseEventArgs)

'Handles PictureBox1.MouseUp

'画出直线

If PictureBox1.Cursor Is System.Windows.Forms.Cursors.Cross And ps <> 1 Then

xu = e.X : yu = e.Y

Me.k(1, imagepen, yu / 8, xu / 8, xd, yd)

Else

If OpenFileDialog1.FilterIndex = 1 Then

xu = e.X : yu = e.Y

Me.k(2, mpen, yu / 8, xu / 8, xd, yd)

End If

End If

End Sub

Public Sub k(ByVal k As Integer, ByVal drawtool As Object,

ByVal x As Integer, ByVal y As Integer, ByVal xs As Integer,

ByVal ys As Integer)

If k = 1 Then

PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage'自动容纳图片

PictureBox1.Image = newbit

Dim Graphic As Graphics

Graphic = Graphic.FromImage(Me.PictureBox1.Image)'在PictureBox1上画图

Graphic.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias'锯齿削边

Graphic.DrawLine(drawtool, y, x, xs, ys)'画线

End If

If k = 2 Then

PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

PictureBox1.Image = changiamge

Dim Graphic As Graphics

Graphic = Graphic.FromImage(Me.PictureBox1.Image)

Graphic.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias

Graphic.DrawLine(drawtool, y, x, xs, ys)

End If

End Sub

Private Sub MenuItem3_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs)

'Handles MenuItem3.Click

'对打开的ico文件用直线画图

ColorDialog1.ShowDialog()

Dim m3pen As New Pen(ColorDialog1.Color, DomainUpDown1.Text())'建立画笔

mpen = m3pen

End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As

System.ComponentModel.CancelEventArgs)

'Handles OpenFileDialog1.FileOk

'打开文件

If OpenFileDialog1.FilterIndex = 1 Then

Dim m3pen As New Pen(Color.Black, DomainUpDown1.Text())

mpen = m3pen

MenuItem2.Enabled = False

MenuItem3.Enabled = True

Else

MenuItem3.Enabled = False

MenuItem2.Enabled = False

End If

If OpenFileDialog1.FileName <> "" Then

PictureBox1.Cursor = System.Windows.Forms.Cursors.Default

Dim images As New System.Drawing.Bitmap(OpenFileDialog1.FileName)

changiamge = images

PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

PictureBox1.Image = images

Me.Text = OpenFileDialog1.FileName

End If

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs)

'Handles MyBase.Load

'由于刚运行次程序时,没有打开的ico文件和新建立的ico对象所以不可以创建画图工具对象

MenuItem3.Enabled = False

MenuItem2.Enabled = False

End Sub

End Class

程序说明:

1. 如何新建ico文件:先初始化bitmap,然后在"功能"-》"直线"菜单代码中创建画笔,就可以开始画了。此时只是创建的一个bitmap对象,是我们在picturebox中画。画完后将bitmap对象保存到文件,就完成了新建ico的文件。

2.如何打开已有的ico文件,并修改后保存它:判断打开的文件是否是ico,如果不是就只显示他,如果是就显示并且初始化一个画笔,通过"功能"-》"选择颜色"来改变画出直线的颜色和宽度,然后保存,就完成了对原来ico文件的修改。

3.保存文件和对非ico文件转化为ico文件:通过打开文件,将非ico文件显示在picturebox中,在用picturebox.image初始化bitmap对象,此句的实际作用是将当前的picturebox.image内容附给bitmap。用bitmap的句柄初始icon对象(处理ico文件的对象),作用是将非ico文件转化为ico文件,建立文件流对象,在其中指定新文件名,和访问方法(文件流是save方法的参数)使用icon对象的save保存,最后关闭文件流。

4.如何画:当完成1或2后,就可以开始画图,画图是由sub k过程,mouse-down,mouse-up来实现的。此时调用mouse-down获得直线的起点,在mouse-up中获得直线终点,接着在mouse-up 中调用sub k过中程绑定bitmap对象到picturebox的image属性,他的作用类似于有了一张可以画画的纸,并在sub k中用Graphic.FromImage(Me.PictureBox1.Image)语句创建Graphics对象,表示是在PictureBox1.Image的bitmap对象中画,而不是在PictureBox1上画,他们的区别在于前者是可以保存画画结果的,后者不可以。K的值表示是在新建的ico文件中画还是修改以有的ico文件(k=2是表示修改已有的ico文件)

5.一些语句说明:dim pen …是指用钢笔来画,object.rawline(….)表示画直线,

6.文件格式的转换问题:你可以使用image对象的save的方法来转换图象的格式,但是我发现虽然他提供了icon格式,但转化后不是ico文件,而是png文件。从网上的资料显示这是.net的本身问题。顺便提一下image对象无构造函数,他虽然标为必须继承才可使用,但实际上不行,如要使用它要用他的fromfile或fromstream方法来构造它。

7.关于k的问题:当你看懂这篇文章后你一定会提出为什么在每条分支中的PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage,PictureBox1.Image = changiamge这两句代码不可以与它后面的代码分开放在其他地方,如k=1时放在"新建"菜单中的代码部分,k=2是放在mouseup中的else后的if语句中!其实这两句就是我在编写这个程序时遇到的最大的难题,我用了两个小时才的出这两句代码要放在了现在的位置。最后看资料并与朋友探讨后得出3个结论:

1. .NET本身问题。

2.如果分开使PictureBox1.Image对象丢失(PictureBox1.Image返回的是bitmap对象),无法绑定到Graphics。

3. PictureBox1.Image对象在sub k中不可见。虽然我不知道那个结论是对的,但我将它写了出来,仅供参考。

对于程序中的0penfiledialog,savefiledialog,colordialog,domainupdown,文件流的使用请见msdn。这5个只是为了辅助这个程序而使用的,如果要在这里讲清楚那这片文章就太长了,而且这些的使用很简单。我在程序中使用的画图工具是钢笔,画出的图形是直线,这队ico文件已经够有了,如果你想使用其他工具,画其他图形,只要修改"功能"中的子菜单,和sub k代码就够了。

运行如图:

更换后的"我的电脑"图标

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有