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

[luler]

VB的图象控件能加载jpg 但是保存的时候却不能为jpg，牛啊，谁有决绝方法？

[forever_chang]

http://yuanbo.webhostme.com/down/jpg.zip
用此控件

[luler]

打不开啊
这个是免费的吗？

[IT服务]

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]

老大啊，你的只能保存bmp格式的啊，俺要保存jpg 的

[luler]

UP

[lndlwwh830]

是呀，VB只支持bmp类型

[xzp1030]

保存在数据库中：
'该函数保存图片。
'参数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

[luler]

晕倒~
怎么都牛头不对马嘴啊。
狂晕中~~~

[luler]

还是用第三方控件吧。

[flc]

帮你UP

[flyingZFX]

学习中。。。。

[suntt]

有的，但vb处理的比较慢，因此通常还是用控件。
你搜一下csdn的老贴子。