VB.Net2008编写多种图片格式转换程序(4)_.NET学习网|ASP.NET教程|ASP.NET MVC|ASP.NET 源码|VS2010教程|ASP.NET视频教程|vs2010中文旗舰版下载

进入Button3_Click事件中

Copy codePrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Result.Items.Clear()

'判断用户是否已经选择相应的目录，任意一个为空,则不能转换

If Me.PictureFolder.Text <> String.Empty And _

Me.NeedSaveFolder.Text <> String.Empty Then

'源格式和目标格式是否相同

If Me.destGS = Me.origGS Then

MessageBox.Show("抱歉，目标格式不能与源格式相同", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)

Exit Sub

End If

'开始转换

Dim saveGssName As String = String.Empty '保存为新的文件名

For Each file As String In fileList

Try

Dim liTem As Image = Image.FromFile(file)

saveGssName = String.Format("{0}\{1}.{2}", Me.filePath, getName(file), Me.destGS)

'开始转换

liTem.Save(saveGssName, fileFormat)

filejs += 1

'记录转换信息

Result.Items.Add(String.Format("已经成功转换了 {0}!", saveGssName))

Catch ex As FileNotFoundException

Result.Items.Add(String.Format("已经转换 {0} 失败! 原因: 源文件错误", saveGssName))

Catch ex As Exception

Result.Items.Add(String.Format("已经转换 {0} 失败! 原因: {1}!", saveGssName, ex.ToString))

End Try

Next

Dim Msg As String = String.Format("转换已经完成!", fileList.Length)

MessageBox.Show(Msg, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)

Result.Items.Add(String.Empty)

Result.Items.Add(String.Format("一共成功转换了 {0} 个图片! ", Me.filejs.ToString))

Me.filejs = 0 '在这里计数器需要清零

Exit Sub

Else

Exit Sub

End If

End Sub
好了代码输入完成，特别注意现在的ComboBox1，ComboBox2都没有数据项，我们需要添加数据项目才能出现下拉框，选中ComboBox1 在右上方会出现很小的箭头选择它即可，如图5

选择<编辑项> 图6

然后输入：

　　BMP

　　EMF

　　GIF

　　JPG

　　PNG

　　ComboBox2，同样按照以上步骤输入数据项，输入以下即可

　　BMP

　　EMF

　　GIF

　　JPG

　　PNG

　　好了现在我们运行程序测试一下吧，测试如图7

Visual Basic 9之查找数组中的偶数	三维图表曲线组件(VB.NET2005)
VB2008操作Excel2003	VB2005读取文本文件乱码的解决方法
用VB.Net2008编写幻灯片程序	Vb.Net循环显示TextBox1每一行的内容
VB2005实现UDP通信例程	P2P的简单示例:VB.net版
VB2010多线程并发的应用	VB2010调用百度的“知道”进行搜索
用VB.NET2008编写屏幕抓捕程序	VB.NET 2005编写定时关机程序
再谈VB2008中使用JSON	vb2010启动外部程序并且模拟鼠标点击
VB.Net2008编写多种图片格式转换程序	VB.NET2008菜单制作
VB.NET路在何方	TCP远程连接客户端(VB2010实例)

Winform企业综合人事管理系统	Tab可切换皮肤的后台模板
慧摩森电子系统技术公司整站(.Net+ACCESS)	淄博某泵业网站源码
快速查询ICP备案号的VB.Net源码	isRoc个人内容管理系统简约iPlaySoft皮肤
CRM客户关系管理系统源码	i-favourite3.0Build多用户博客系统免安装版源码
Asp.net简单多用户Blog程序源码	C#使用DataBinding、DataView进行数据绑定一些实例
Silverlight实现的在线头像截取功能	Asp.net修正版eWebEditor源码
基于SQLite开发的数据库示例	医院门诊管理系统源码

.NET学习网|ASP.NET教程|ASP.NET MVC|ASP.NET 源码|VS2010教程|ASP.NET视频教程|vs2010中文旗舰版下载

热门标签

VB.Net2008编写多种图片格式转换程序(4)

Tags：VB.NET2008