您的位置：程序门 -> vb -> 基础类

上传图片

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

上传图片

发表于：2008-01-18 10:07:34 楼主

请问大家怎么用vb做一个上传图片的程序，并且能在image控件中将上传的图片显示出来，小弟急用，谢谢大家帮忙！

发表于：2008-01-18 10:44:461楼得分:0

用winsock控件

发表于：2008-01-18 15:22:072楼得分:0

private sub command1_click（)'浏览事件
commondialog1.filename = ""
commondialog1.filter = "（*.jpg) ¦*.jpg ¦（*.bmp) ¦*.bmp"
commondialog1.filterindex = 1
commondialog1.action = 1
if commondialog1.filename <> "" then
text16 = commondialog1.filename
outputfile = right（commondialog1.filename, len（commondialog1.filename) - instrrev（commondialog1.filename, "."))
command2.enabled = true
end if
end sub

private sub command2_click（)‘上传按钮
if text2.text = "" then
msgbox "请先输入名字", , "提示"
else
outputfile = text2.text & "." & outputfile
filecopy text16.text, app.path & "\picture\" & outputfile & ""
msgbox "上传成功", , "提示"
command2.enabled = false
end if
end sub
'--------------------------------由于我是在我的程序中直接复制过来的所以有的地方需要修改

发表于：2008-01-18 16:03:573楼得分:0

好的，谢谢楼上的，我试试看吧

发表于：2008-01-21 10:15:024楼得分:0

savecmd.tag = false
if val（key) = 0 then
ajpic.addnew
end if
dim bit（) as byte
fn = freefile（)
open （apppath & curnum & ".jpg") for binary as fn
redim bit（lof（1)) as byte
get fn, 1, bit
close fn
ajpic（"来源") = me.tag
ajpic（"来源id") = val（key.tag)
ajpic（"图片内容").appendchunk bit
ajpic.update
if val（key) = 0 then
pages = val（pages) + 1
page = val（pages)
end if
key = ajpic（"id")

下一篇：大家好，如何用vb写虚拟鼠标点击执行具体路径的exe 谢谢！！加分 100
上一篇：vb中小数点最多能取到几位?

其他资讯