软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 源码下载 > VB源码 > 文件操作 > VB图片压缩包合并器源码下载

VB图片压缩包合并器源码

  • 资源语言:简体中文
  • 资源类型:国产软件
  • 资源大小:5 KB
  • 资源等级:3星级
  • 相关链接:Home Page
  • 资源性质:免费版
运行环境:Windows/VB6.0
更新时间:2015-06-27 12:38:19
有无插件:无插件,请您放心使用!

话说图种这个东西,最早是从百度贴吧开始流行的,其实原理很简单,如果是用批处理制作,只需要一行代码完成!

请将以下代码复制到记事本,并修改扩展名为bat,当然代码中的文件路径还要保持正确!

copy C:\veryhuo.jpg/b+C:\veryhuo.zip/b "C:\合并的文件.jpg"

还有的同学会说,这很麻烦啊,另外批处理看上也不够高大上啊!,所以我还是选择了做成软件...
苦于几年没动编程,就用比较熟悉的VB软件吧.调用CMD完成,其他编程软件原理也差不多,选熟悉的入手.
精简版才几兆哦~~ 下载地址:http://www.veryhuo.com/down/html/21414.html

VB图片压缩包合并器源码

编程开始

先附上全部代码,已带上注释.全部控件都用到了组合
需要的控件包括: 按钮控件(commond) 文本控件(text) commondialog控件 label控件
控件组合设置方法: 直接点击创建的控件--进行复制--粘贴操作即可,生成的名称如: text1(0)...等等

Dim a As Integer '定义一个整数变量a
Private Sub Command1_Click(Index As Integer) '组合按钮单击事件
If Index = 0 Then '当点击组合按钮编号0的时候,下面代码意思相同
'选择需要合并的图片
pic(0).Filter = "JPG图片(*.jpg)|*.jpg|GIF图片(*.gif)|*.gif|PNG图片(*.png)|*.png|BMP图片(*.bmp)|*.bmp"
pic(0).DialogTitle = "请选择图片文件路径"
pic(0).ShowOpen
Text1(0).Text = pic(0).FileName
End If '结束
If Index = 1 Then
'选择需要合并的压缩包
rar(1).Filter = "zip压缩包(*.zip)|*.zip|rar压缩包(*.rar)|*.rar|7z压缩包(*.7z)|*.7z"
rar(1).DialogTitle = "请选择压缩包文件路径"
rar(1).ShowOpen
Text1(1).Text = rar(1).FileName
End If
If Index = 2 Then
'选择合并后文件的储存位置
heti(2).Filter = "JPG图片(*.jpg)|*.jpg|GIF图片(*.gif)|*.gif|PNG图片(*.png)|*.png|BMP图片(*.bmp)|*.bmp"
heti(2).DialogTitle = "请选择合体后文件路径"
heti(2).ShowOpen
Text1(2).Text = heti(2).FileName
End If
If Index = 3 Then '点击合体按钮
'检查三个文本框是否为空,若为空则提示错误并不执行合并
If Text1(0).Text = "" Or Text1(1).Text = "" Or Text1(2).Text = "" Then
MsgBox "哎哟!你还没选完文件呢!", 32, "错误" '弹出错误窗口
Else '若不为空则运行CMD合并文件,这里也是调用CMD
Dim cmd '定义cmd
cmd = Environ("windir") & "\system32\cmd.exe /c copy /b /y " & """" & Text1(0).Text & """ " & "+ " & """" & Text1(1).Text & """ " & """" & Text1(2).Text & """"
Shell cmd, vbHide '调用CMD 并隐藏
MsgBox "合并完成!", 32, "成功" '合并过程结束 '弹出窗口提示成功
End If
End If
If Index = 4 Then '点击退出按钮
a = MsgBox("是否获取更多精彩内容?", 1 + 32) '弹出退出选择
If a = 1 Then '点击确定则访问网页并退出,点击否则直接退出程序
Shell Environ("windir") & "\explorer.exe http://www.52pojie.cn", vbMaximizedFocus '调用打开网页
End '结束程序
Else '不满足上面条件则执行以下动作
End '结束程序
End If
End If
End Sub

文本框想不可以修改,可以把控件属性locked 设为真(true) 如: text1.locked=true

VB图片压缩包合并器源码

 报告下载错误
点击链接开始下载
本类最新
相关教程
下载说明
栏目导航
推荐软件