vb制作照片管理

来源:百度知道 编辑:UC知道 时间:2024/05/24 04:07:41
如此图:http://p11.freep.cn/p.aspx?u=v20_p11_p_0808311720312586_0.jpg
上一个按钮,下一个按钮,图片的路径在本盘,按上一个按钮显示上一张图片,按下一个按钮显示下一个图片
代码是什么,讲清楚点,不要复制长篇文章。

没什么很高深的东西!
loadpicture(path)
可以结合数据库来完成!
字段可以存放路径也可以存放binaray!
提示,可以把图片文件名命名成有规律的,
例如,0001,0002....
知道的都给你说了!
不懂的问俺qq:375523747

昨天有人问过了这个问题,我已经给他答复了,呵呵,代码再给你贴一次
我的思路是,当选择了一张图片的以后,程序就检查该目录下有没其它图片文件,如果有,就添加到列表list1内,当点上一张,就上移list1的内容显示上一张,下移同理

代码如下,昨天那人的问题在这里
http://zhidao.baidu.com/question/66600419.html

需要的控件:
CommomDialog名为CM1
PictureBox 名为 P1
ListBox 名为List1
三个按钮名为 Command1 Command2 Command3
分别是 打开图片 上一张 下一张
代码如下,放到Form里面就行了,已经包含了你上面的代码了
如果你不想显示文件列表,可以把List1设置为不可见,代码通过测试

Option Explicit

Sub getFileList(ByVal strPath As String)
    '枚举该文件夹下的所有文件,添加到列表
    Dim tPath
    Dim strDir As String
    '从文件路径提取文件夹路径