首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

多个bmp文件在两个picturebox中流动显示解决方法

2012-02-28 
多个bmp文件在两个picturebox中流动显示公司里面有个外包的业务,程序由老外提供,是用java+web的性质写的,

多个bmp文件在两个picturebox中流动显示
公司里面有个外包的业务,程序由老外提供,是用java+web的性质写的,具体是jsp还是applet我还不太清楚.我们只能看工作的效果.
我猜呢大体是这样的(用vb描述),有一个万条以上存有二进制bmp(也可能不是bmp格式,是一种扫描后的图片格式,图像上有各种阿拉伯数字)的大型数据库,然后很多人共享这个库来做任务,但是每人每次只能分配到20条数据(图像),然后有两个picturebox有一个textbox
picturebox1,picturebox2先显示这个20条数据的其中两个,其中picturebox2有一个遮罩层,但是还能够看到数字,作为预览使用.当在textbox输入完picturebox1的数据回车后保存textbox的内容到相应数据上,picturebox1清空,并读取第三条数据(图像),并添加遮罩,同时picturebox2移除遮罩,textbox输入picturebox2的数据回车后,picturebox2清空,并读取第四条数据(图像),并添加遮罩,同时picturebox1移除遮罩.如此这般流动显示和重复操作.
我分析并完成了20条数据是在分配的时候,已经将数据库中的二进制转化为图像保存到本地的某个文件夹下,假设为temp文件夹,并且图像的名字保存为数据库中的ID+".bmp",并能够显示前两图像,加载遮罩.

但是
1,我在picturebox的流动显示上还是一直很困扰,不知道怎么控制

我这这样写的,

VB code
        myName = Dir(App.Path + "\temp\*.bmp", vbDirectory)        If myName <> "" Then            MsgBox myName            Picture1.Picture = LoadPicture(App.Path + "\temp\" + myName)            myName = Dir            If myName <> "" Then Picture2.Picture = LoadPicture(App.Path + "\temp\" + myName)        End If


但是往后如何控制图像的加载和保存,我却不知道如何下手了,
加载还是继续用dir吗,保存如何记住文件的名字(即数据库中的ID),脑袋都大了.

[解决办法]
先将文件列表读入数组, 然后使用一个索引访问数组获取文件名称。
[解决办法]
探讨
引用:
bitblt


你妹啊,打酱油也没有这么打的,,我是问,picturebox如何流动显示bmp,不是关于图像遮罩的处理

[解决办法]
sub load()
t(20) 保存文件名
i=1
pic1加载t(i)
i=i+1
pic2加载t(i)+遮罩
end sub

sub text1输入
if i<19 then
if i mod 2 =0 then
移除pic2遮罩
i=i+1
pic1加载t(i)+遮罩
else
移除pic1遮罩
i=i+1
pic2加载t(i)+遮罩

end if
end if
end sub

热点排行