求在图片框中显示图片的代码，在线等！！！

2004-12-24 10:57:25 370 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

告别卡顿！用AVPro Video在Unity 2022.3里流畅播放4K视频的保姆级配置流程本文详细介绍了如何在Unity 2022.3中使用AVPro Video插件实现4K视频的流畅播放。从环境配置、插件选型到核心性能优化技巧，包括解码器设置、内存管理策略和多平台适配方案，帮助开发者彻底解决卡顿问题，提升视频播放体验。阅读详情

我想把数据库中的图片显示到PictureBox 中，请教各位高手原代码？

...全文

DLL导出函数名隐藏实战：三种方法保护代码安全在Windows软件开发中，动态链接库（DLL）的导出函数名是模块间通信的关键标识，也是逆向工程的重要突破口。理解PE文件格式中的导出表结构是掌握DLL工作原理的基础，它记录了函数地址、名称和序号的映射关系。通过隐藏或混淆这些导出名称，可以有效增加代码分析的难度，提升软件的知识产权保护和安全性。这一技术在软件保护、游戏反作弊和安全组件中具有重要价值。本文聚焦DLL导出函数名隐藏，结合Dependencies工具分析，详细解析仅序号导出、导出转发器和运行时动态修改三种实用方案，为开发者提供从原理到实践的完整指阅读详情

newsuperstar

VBA 2,506 成员 10,830 内容

+ 关注 + 加入社区

切换为时间正序

newsuperstar 2004-12-24

打赏
举报

to： roger_xiong(卖女孩的小火柴～)

Dim mStmPic As ADODB.Stream ‘这一句上报错，类型未定义，ADODB.Stream 没用过，怎么用？

newsuperstar 2004-12-24

打赏
举报

to： sky9705(帝国野猪) 你弄错了，从文件中显示我会做，现在是从数据库中取出显示。

roger_xiong 2004-12-24

打赏
举报

用stream

'给相片框赋相片文件
Dim mStrPicPath As String
Dim mStmPic As ADODB.Stream
Dim mRsPic As ADODB.Recordset

'定义临时图片文件
mStrPicPath = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "temp\temp.jpg"
'清除该文件，目的是为了防止以前的该文件没有删除
Kill mStrPicPath

Set mRsPic = New ADODB.Recordset
mRsPic.Open "select * from img where id='001'", gcnnData, 1, 3
If mRsPic.RecordCount > 0 Then
Set mStmPic = New ADODB.Stream
With mStmPic
.Mode = adModeReadWrite
.type = adTypeBinary
.Open
.Write mRsPic("photo")
.SaveToFile mStrPicPath
End With
End If

imgPro.Picture = LoadPicture(mStrPicPath)

sky9705 2004-12-24

打赏
举报

不好意思，帖的这个例子算法有错误，
可是不能删自己的帖子。

sky9705 2004-12-24

打赏
举报

Sub ShowPic(szFile As String, szpicture As PictureBox)
On Error Resume Next
Dim w As Integer, h As Integer
Dim goPic As picture
Dim Pict As picture

If IsFileExist(szFile) Then

Set goPic = LoadPicture(szFile)
If goPic.Width > goPic.Height Then
If goPic.Width > szpicture.ScaleWidth Then
w = szpicture.ScaleWidth
Else
w = goPic.Width '玂ㄓ
End If
h = w * goPic.Height \ goPic.Width
Else
If goPic.Height > szpicture.ScaleHeight Then
h = szpicture.ScaleHeight
Else
h = goPic.Height
End If
w = h * goPic.Width \ goPic.Height
End If
End If
szpicture.Cls
szpicture.PaintPicture goPic, 0, 0, w, h
szpicture.ToolTipText = szFile
Set goPic = Nothing
End Sub

sky9705 2004-12-24

打赏
举报

从来都不用这样绑定来做，比如一个产品图片两张三张怎么办。。picture字段就一栏，
既然来了，就帮你顶一下。

newsuperstar 2004-12-24

打赏
举报

我用ADODC做显示同样的错误，显示不能绑定到字段上，为什么？

newsuperstar 2004-12-24

打赏
举报

谢谢： tztz520(午夜逛街)

做了还是不行，运行到下面的绑定语句上报错，向各位请教？
Set imgMain.DataSource = Rs
imgMain.DataField = Rs.Fields(7).Name ‘这一句显示不能绑定到字段,为什么？

tztz520 2004-12-24

打赏
举报

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=195751

wangfub 2004-12-24

打赏
举报

ADODB 2.5以上
用2.7吧就有了

newsuperstar 2004-12-24

打赏
举报

不会吧，我在对象浏览器里（ADODB）下面从头找到尾都没有找到Stream
谁用过，给说一下。

roger_xiong 2004-12-24

打赏
举报

是ADO了啦，你引用ADO对象就好了，microsoft activex data object 2.6 library

还有数据库中图片是以二进制存放的。

求在图片框中显示图片的代码，在线等！！！

相关推荐