能用代码实现保存jpg格式的图片吗?

luler 2003-12-15 05:30:06
VB的图象控件能加载jpg 但是保存的时候却不能为jpg,牛啊,谁有决绝方法?
...全文
24 点赞 收藏 12
写回复
12 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
suntt 2003-12-19
有的,但vb处理的比较慢,因此通常还是用控件。
你搜一下csdn的老贴子。
回复
flyingZFX 2003-12-19
学习中。。。。
回复
flc 2003-12-19
帮你UP
回复
luler 2003-12-19
还是用第三方控件吧。
回复
luler 2003-12-17
晕倒~
怎么都牛头不对马嘴啊。
狂晕中~~~
回复
xzp1030 2003-12-15
保存在数据库中:
'该函数保存图片。
'参数1=保存的数据表名。参数2=主键,参数3=文件名
Public Function SavePicture(ByVal vTableName As String, ByVal vid As String, ByVal vFileName As String) As Boolean

Dim iStrm As New ADODB.Stream
Dim iRs As New ADODB.Recordset
Dim Con As New ADODB.Connection

'连接数据源
Con.Open "dsn=image"

'读取文件到数据流
With iStrm
.Type = adTypeBinary
.Open
.LoadFromFile vFileName
End With

'存到数据库中
Dim Sqlstring As String
Sqlstring = "select * from " & vTableName & ";"
iRs.Open Sqlstring, Con, adOpenKeyset, adLockOptimistic
With iRs
.AddNew
.Fields("id") = vid
.Fields("photo") = iStrm.Read
.Update
End With

Set iStrm = Nothing
Set iRs = Nothing
Set Con = Nothing

End Function
回复
lndlwwh830 2003-12-15
是呀,VB只支持bmp类型
回复
luler 2003-12-15
UP
回复
luler 2003-12-15
老大啊,你的只能保存bmp格式的啊,俺要保存jpg 的
回复
IT服务 2003-12-15
SavePicture picture, stringexpression

SavePicture 语句的语法包含下面部分:

参数 描述
picture 产生图形文件的 PictureBox 控件或 Image 控件。
stringexpression 欲保存的图形文件名。




Private Sub Form_Click ()
' 声明变量。
Dim CX, CY, Limit, Radius as Integer, Msg as String
ScaleMode = vbPixels ' 设置比例模型为像素。
AutoRedraw = True ' 打开 AutoRedraw。
Width = Height ' 改变宽度以便和高度匹配。
CX = ScaleWidth / 2 ' 设置 X 位置。
CY = ScaleHeight / 2 ' 设置 Y 位置。
Limit = CX ' 圆的尺寸限制。
For Radius = 0 To Limit ' 设置半径。
Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
DoEvents ' 转移到其它操作。
Next Radius
Msg = "Choose OK to save the graphics from this form "
Msg = Msg & "to a bitmap file."
MsgBox Msg
SavePicture Image, "TEST.BMP" ' 将图片保存到文件。
End Sub

回复
luler 2003-12-15
打不开啊
这个是免费的吗?
回复
forever_chang 2003-12-15
http://yuanbo.webhostme.com/down/jpg.zip
用此控件
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告