vb 文件夹里图片打包
作者&投稿：励真 （若有异议请与网页底部的电邮联系）
Private Sub Command1_Click()Dim myPath As StringDim FileList As FileListBoxmyPath = "C:\" '路径Set FileList = Me.Controls.Add("VB.FileListBox", "fl")FileList.Path = myPathFileList.Pattern = "*.bmp;*.jpg" '这里将所有图片的扩展名都列上Print "图片数：" & FileList.ListCountMe.Controls.Remove FileListSet FileList = NothingEnd Sub
方法一：
将图片放到 PictureBox 或是 Image 控件中，然后隐藏该控件。等需要时显示。
方法二：
将所需要的资源文件中单独存放在一个资源文件。
1，点选菜单“外接程序”下的“外接程序管理器”,在弹出的对话框的列表框中选择“VB 6资源编辑器”,选择加载并单击“确定“后退出对话框。
2，点击“工具”菜单栏中就有一项“vb资源编程器”了。打开“vb资源编辑器”就可以进行资源文件的编辑了。
3，将图片文件添加到资源编辑器中，保存。
4，在程序中需要显示的地方，用LoadResPicture加载资源中图片。如PictureBox1控件中：
PictureBox1.Picture = LoadResPicture(101, 0) '101为资源的ID，0表示为位图
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
Dim Path As String, fn As String, c As Long, n As Long
Dim WinRarFilePath As String
WinRarFilePath = "c:\program files\winrar\winrar.exe" '例如"c:\program files\winrar\winrar.exe"
Path = '例如"d:\图片文件夹"
c = 100
fn = Dir(Path & "\*.jpg", vbHidden + vbReadOnly + vbSystem) '如果文件夹里只有图片文件，可以用*代替*.jpg，*.jpg只压缩JPG图片
Do While Len(fn)
If fn = "." Or fn = ".." Then GoTo nt
c = c + 1
If c > 100 Then c = 1: n = n + 1: MkDir Path & "\" & n
Name Path & "\" & fn As Path & "\" & n & "\" & fn
nt:
fn = Dir
Loop
'分别打包
For c = 1 To n
ShellExecute hwnd, "open", WinRarFilePath, "a " & c & " " & c & "\*.jpg", Path, 0 '这里的*.jpg同上
Next
'打包到一起
'For c = 1 To n
'ShellExecute hwnd, "open", WinRarFilePath, "a " & 1 & " " & c & "\*.jpg", Path, 0 '这里的*.jpg同上
'Next
End Sub
用fso遍历所有文件，再建10个文件夹，把文件放入相应的文件夹，对10文件夹用winrar 打包。
说清楚点，是随便100张图片压缩就行吗？
郜阮肝舒： 把图片放在同一 目录下 然后VB图片路径应该是＂app.path\＂+图片文件夹名字+＂\＂+图片文件名+＂＂
镇康县17030239784： 怎么把vb程序使用的图片文件(多个)跟程序一起打包?比如vb用了d盘里的图片,程序打包的时候怎么把 - ？
郜阮肝舒： 如果你图片文件比较小 你可以直接放在窗体中 用 picturebox或image控件在属性栏中加载图片 或者放在资源里 要不然就放在EXE同目录下 程序运行时判断是否存在,不存在提示,存在则显示
镇康县17030239784： vb 文件夹里图片打包 - ？
郜阮肝舒： Option ExplicitPrivate Declare Function ShellExecute Lib ＂shell32.dll＂ Alias ＂ShellExecuteA＂ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal ...
镇康县17030239784： vb程序打包 - ？
郜阮肝舒： 你所谓的“程序里面有图片”是什么意思?如果是Form或PictureBox用Picture属性加载图片了的话,直接发程序就行;如果是调用图片路径的话,同WINRAR压缩后发给他,告诉他解压后不要修改文件路径.
镇康县17030239784： VB怎么用比较好的方法将多个图片和音频文件打包起来,并用代码快速读取并显示或播放出来,给个指导方向 - ？
郜阮肝舒： 方法很多,各有利弊.简单说一下.1、使用一个MDB,把多媒体数据序列化后保存在备注字段里.2、可以使用第三方压缩组件.最传统的应该是ZLib.相关资料很多,你自己查一下吧.3、自定义一个文件格式,自己写读写函数.经典例子可参考暴雪的游戏,知道MPQ吧?这里面MDB法最简单,但是功能单一,很多辅助能力非常弱.压缩法就好的多了,但是你得自己选择合适的第三方组件(注意:zlib不是CopyLeft的).自定义文件格式的做法可以达到最高效率,但是代码复杂,需要考虑的部分非常多.比如:索引的编制、超大文件的处理、单文件提取和批量提取、更名和修改以及很多性能问题.至于加密和压缩,到可以暂时放在一边.
镇康县17030239784： 如何在VB中将图片直接封装到EXE中 - ？
郜阮肝舒： 可讲图片放入资源文件中或者直接把图片放到窗体picture或image中
镇康县17030239784： VB载入图片的程序怎么把图片合并在程序文件里? - ？
郜阮肝舒： 把图片存到控件中比如存入image中 最后引用image的picture属性
镇康县17030239784： VB6.0打包 - ？
郜阮肝舒： 这是因为在其他电脑上的指定路径(D:\vb\workspase\queryupdclient)中,没有该图片文件.建议你打包时将图片打包在程序安装目录上,然后在代码中LoadPicture()的路径中使用 App.path & ＂\normal.jpg＂
镇康县17030239784： vb如何在文件夹选择图片,并将其复制粘贴到指定的文件夹中,并覆盖之前的文件 - ？
郜阮肝舒： Sub 选择性打开多个文件() Dim fn fn = Application.GetOpenFilename(＂EXCEL文件(*.xls), *.xls＂, , ＂导入文件＂, , True) '继续对字符串fn进行操作.End Sub
镇康县17030239784： vb打包丢失文件 - ？
郜阮肝舒： 用vb的打包工具只能打包他认为必须的文件(如运行库,主程序什么的),而在代码中用到的文件他识别不出,也不会去识别.setup factory可以解决,不过比较麻烦,要手动把图片文件拖动到中间的方框(存档)里面.不过,你要想点击按钮...
