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
[复制链接]
发表于 2015-6-27 11:38
|
发表于 2015-6-27 12:54
发表于 2015-6-27 11:43
