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

2003-12-15 05:30:06 124 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

自动驾驶小车DIY：树莓派+激光雷达实现DWA路径规划（从仿真到实车）本文详细介绍了如何基于树莓派与激光雷达，从零搭建一套完整的自动驾驶小车系统，并实现DWA局部路径规划算法。内容涵盖硬件选型、ROS环境部署、DWA算法原理与仿真，以及关键的实车调试与性能优化技巧，为创客和竞赛爱好者提供了一套低成本、高可行性的自主导航解决方案。阅读详情

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

...全文

简单搭建可视化日志+链路追踪 JAVA 可视化日志、链路追踪、plumeLog、Tlog、Logback 阅读详情

luler

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

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

打赏
举报

luler 2003-12-15

打赏
举报

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

赴日工作招聘程序员 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
用此控件

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

相关推荐