vb不能插入png图片_VB6.0载入PNG格式图片
展开全部
给你一个示例吧,显示PNG到e69da5e6ba903231313335323631343130323136353331333335313739FORM上,用GDI的:Private Declare Function GdiplusStartup Lib "gdiplus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As GpStatus
Private Declare Sub GdiplusShutdown Lib "gdiplus" (ByVal token As Long)
Private Declare Function GdipCreateFromHDC Lib "gdiplus" (ByVal hwnd As Long, graphics As Long) As GpStatus
Private Declare Function GdipDeleteGraphics Lib "gdiplus" (ByVal graphics As Long) As GpStatus
Private Declare Function GdipDrawImageRect Lib "gdiplus" (ByVal graphics As Long, ByVal image As Long, ByVal x As Single, ByVal y As Single, ByVal Width As Single, ByVal Height As Single) As GpStatus
Private Declare Function GdipLoadImageFromFile Lib "gdiplus" (ByVal filename As String, image As Long) As GpStatus
Private Declare Function GdipGetImageWidth Lib "gdiplus" (ByVal image As Long, Width As Long) As GpStatus
Private Declare Function GdipGetImageHeight Lib "gdiplus" (ByVal image As Long, Height As Long) As GpStatus
Private Declare Function GdipDisposeImage Lib "gdiplus" (ByVal image As Long) As GpStatus
Private Type GdiplusStartupInput
GdiplusVersion As Long
DebugEventCallback As Long
SuppressBackgroundThread As Long
SuppressExternalCodecs As Long
End Type
Private Enum GpStatus
Ok = 0
GenericError = 1
InvalidParameter = 2
OutOfMemory = 3
ObjectBusy = 4
InsufficientBuffer = 5
NotImplemented = 6
Win32Error = 7
WrongState = 8
Aborted = 9
FileNotFound = 10
ValueOverflow = 11
AccessDenied = 12
UnknownImageFormat = 13
FontFamilyNotFound = 14
FontStyleNotFound = 15
NotTrueTypeFont = 16
UnsupportedGdiplusVersion = 17
GdiplusNotInitialized = 18
PropertyNotFound = 19
PropertyNotSupported = 20
End Enum
'主要代码就下面这几句而已.
Private Const c_pngPath As String = "C:\1.png" '要显示的图片名称和路径。
Dim m_token As Long
Private Sub Form_paint() ‘Form上显示
Dim pImg As Long
Dim pGraphics As Long
Dim w As Long, h As Long
Call GdipCreateFromHDC(Me.hDC, pGraphics)
Call GdipLoadImageFromFile(StrConv(c_pngPath, vbUnicode), pImg)
Call GdipGetImageWidth(pImg, w)
Call GdipGetImageHeight(pImg, h)
Call GdipDrawImageRect(pGraphics, pImg, 0, 0, w, h)
Call GdipDisposeImage(pImg)
Call GdipDeleteGraphics(pGraphics)
End Sub
Private Sub Form_Load()
Dim StartupInput As GdiplusStartupInput
StartupInput.GdiplusVersion = 1
If GdiplusStartup(m_token, StartupInput, ByVal 0) Then
MsgBox "Error initializing GDI+"
Exit Sub
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call GdiplusShutdown(m_token)
End Sub
vb不能插入png图片_VB6.0载入PNG格式图片相关推荐
- 一键完成:批量转pdf图片为png、svg格式图片
记得以前使用texlive2020时,只要在standalone的选项里面使用convert选项,再加一些设置,就能自动生成高清png 格式的图片了. 自从升级为exlive2022后,才发现再也不能 ...
- c语言实现pdf显示图片,C语言读取BMP格式图片.pdf
C语言读取BMP格式图片 C 语言读取BMP 格式图片 以下摘自维基百科,自由的百科全书 BMP 取自位图BitMaP 的缩写,也称为DIB (与设备无关的位图)是微软视窗图形 子系统(Graphic ...
- 前端vs图片:0 为什么需要重视图片
图片占流量的大头 据统计,图片内容已经占到了互联网内容总量的62% toC网站,基本上都是图片占流量大头 某电商网站商详页,js.css.图片对比如下面三张图,结果十分明显 js大小: css大小: ...
- Freemarker下载Word文档(文字+图片+表格)Idea示例 (附word展示图片异常解决方案)(附JPEG格式图片通过imageio.read方法读取为null解决方案)
流程:拿到word模板 转为ftl格式并填充占位符参数,调用java代码填充参数即可 (文末附word打开图片显示异常,wps打开却显示正常的解决方案) (文末附Jpeg格式图片获取为null解决方案 ...
- php 去除图片,php可以去除jpg格式图片的背景并加水印吗?
从网上找到了这段,但我运行并不能实现,而且这个是针对png和gif格式的 $fnew = "a.png"; $img = file_get_contents($fnew); $im ...
- android分享分享到朋友圈图片,android7.0 通过代码 分享图片到朋友圈
转载注明出处:简书-十个雨点 在Android7.0中,系统对scheme为file://的uri进行了限制,所以通过这种uri来进行分享的一些接口就不能用了,比如使用代码来调用分享朋友圈的接口. 此 ...
- Java 实现图片转换为ICO以及多种格式图片之间转换
详细信息请访问我的GitHub网站:https://github.com/HuBoZhi/image4j
- python3使用opencv读取raw格式图片并保存为bmp格式图片
import numpy as np import cv2rawImg = np.fromfile('./test.raw', dtype=np.uint8)rawImg = rawImg.resha ...
- VB中使用PNG格式图片的一种新方法
由于VB中的Image控件和Picture控件都不能直接加载PNG格式图片,给我们使用或浏览PNG格式的图片带来了困难.现行的解决方法主要是以下两种: (1)利用GDI显示PNG图片: (2)将PNG ...
最新文章
- java反射获取方法内部_公共技术点之 Java 反射 Reflection
- selenium2 python自动化测试实战(回归测试)
- 源端RAC数据库删除实例操作时GoldenGate的运维流程
- Tomcat启动阻塞变慢
- 用html写出生日蛋糕,纯HTML5+CSS3制作生日蛋糕代码
- CodeForces 1396E Distance Matching(构造+树的重心+dfs+set)
- 【线性基】彩灯(luogu 3857/金牌导航 线性基-1)
- 2012年波兰乌克兰欧洲杯完全赛程(06.09-07.02)
- matlab动态电路仿真,matlab电路仿真教程
- 卡密激活php代码,全自动PHP授权检测系统,卡密功能自助授权功能源码
- opengl——贴图
- 消消乐android 源代码,【消消乐】源代码
- 金额保留小数点后两位方法
- 关于房价问题的看法。
- SpringBoot ClassPathResource获取文件(包含一个坑,两个知识点)
- Android 朋友圈之多图显示
- Windows 文件属性
- echarts图表中显示图例lengend
- windows搭建go语言开发环境
- 在金融行业中,直播获客应该怎么做呢?