Private Sub Command1_Click()
Set AddwzPic.Picture = LoadPicture("E:\picture1\01EW100925094130GC_C2.JPG")
AddwzPic.CurrentX = 25
AddwzPic.CurrentY = 25
AddwzPic.Print "地点:" & Format(Date, "yyyy年mm月dd日" & " " & Format(Time, "hh:mm:ss"))
SavePicture AddwzPic.Image, "E:\picture1\01EW100925094130GC_C2.JPG"
End Sub
Saving images to JPG using GDI+
This function saves a StdPicture object to a file with JPG format using the GDI+ encoder. Just call the function passing the image object, the filename and, optionally, the image quality (from 1 to 100) .
' ----==== API Declarations ====----
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Type GdiplusStartupInput
GdiplusVersion As Long
DebugEventCallback As Long
SuppressBackgroundThread As Long
SuppressExternalCodecs As Long
End Type
Private Type EncoderParameter
GUID As GUID
NumberOfValues As Long
type As Long
Value As Long
End Type
Private Type EncoderParameters
Count As Long
Parameter As EncoderParameter
End Type
Private Declare Function GdiplusStartup Lib "GDIPlus" ( _
token As Long, _
inputbuf As GdiplusStartupInput, _
Optional ByVal outputbuf As Long = 0) As Long
Private Declare Function GdiplusShutdown Lib "GDIPlus" ( _
ByVal token As Long) As Long
Private Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" ( _
ByVal hbm As Long, _
ByVal hpal As Long, _
Bitmap As Long) As Long
Private Declare Function GdipDisposeImage Lib "GDIPlus" ( _
ByVal Image As Long) As Long
Private Declare Function GdipSaveImageToFile Lib "GDIPlus" ( _
ByVal Image As Long, _
ByVal Filename As Long, _
clsidEncoder As GUID, _
encoderParams As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32" ( _
ByVal str As Long, _
id As GUID) As Long
' ----==== SaveJPG ====----
Public Sub SaveJPG( _
ByVal pict As StdPicture, _
ByVal filename As String, _
Optional ByVal quality As Byte = 80)
Dim tSI As GdiplusStartupInput
Dim lRes As Long
Dim lGDIP As Long
Dim lBitmap As Long
' Initialize GDI+
tSI.GdiplusVersion = 1
lRes = GdiplusStartup(lGDIP, tSI)
If lRes = 0 Then
' Create the GDI+ bitmap
' from the image handle
lRes = GdipCreateBitmapFromHBITMAP(pict.Handle, 0, lBitmap)
If lRes = 0 Then
Dim tJpgEncoder As GUID
Dim tParams As EncoderParameters
' Initialize the encoder GUID
CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"), _
tJpgEncoder
' Initialize the encoder parameters
tParams.Count = 1
With tParams.Parameter ' Quality
' Set the Quality GUID
CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"), .GUID
.NumberOfValues = 1
.type = 4
.Value = VarPtr(Quality)
End With
' Save the image
lRes = GdipSaveImageToFile( _
lBitmap, _
StrPtr(Filename), _
tJpgEncoder, _
tParams)
' Destroy the bitmap
GdipDisposeImage lBitmap
End If
' Shutdown GDI+
GdiplusShutdown lGDIP
End If
If lRes Then
Err.Raise 5, , "Cannot save the image. GDI+ Error:" & lRes
End If
End Sub
背景在有心课堂《自己动手写HTTP框架》课程中有下列课程：自拍要发朋友圈如何实现 http://stay4it.com/course/4/learn#lesson/208通过自己写的HTTP框架实现将图片和文字等内容在一个接口中提交到服务器。无论哪种...
前言 1.Elasticsearch 是一个分布式的 RESTful 风格的搜索和数据分析引擎。 （1）查询 ： Elasticsearch 允许执行和合并多种类型的搜索 — 结构化、非结构化、地理位置、度量指标 — 搜索方式随心而变。...
注:本文转载自 一叶飘舟切换到MarkDown编辑器 原文链接:http://blog.csdn.net/jdsjlzx/article/details/52246114 背景 在有心课堂《自己动手写HTTP框架》课程中有下列课程： 自拍要发朋友圈如何实现 ...
请问"超星4.0老鹰加强版"与"超星4.0官方版"下的有什么不同?多谢!差别很大，建议用前者。具体差别可以baidu或者google.前者下载的是清晰解密PDG，后者下载的是加密快速版PDG，只能在本机上看，到别的机器看不了，清晰...
通过自己写的HTTP框架实现将图片和文字等内容在一个接口中提交到服务器。无论哪种网络框架，都要遵守HTTP协议。下面我们简单了解下HTTP协议。 HTTP协议 其中HTTP协议版本有两种：HTTP1.0/HTTP1.1 可以...
Retrofit普及后，最近好多人都在问，如何实现Retrofit上传多文件＋文字需求(朋友圈发图片＋文字) 解决方案 google: retrofit upload multiple files 说重点 与其直接说答案，不如我们花点时间说说多文件...
我在把文字写入图片时，如果字符串为unicode编码的话，生成的图片部分字符乱码，不过这个字符串如果使用log4j编码为utf-8打印到日志文件时是正常的，但在console控制台打印出来跟图片是一样的，也是部分字符乱码那。...
c# 图片压缩 （非图片大小变化）----使得显示效果差点，但是图片占用空间需要变小。 [问题点数：60分，结帖人linxisheng] 不显示删除回复 显示所有回复 显示星级回复 显示得分回复
一.DSP的C语言同主机C语言的主要区别？...2)DSP的C语言的编译过程为，C编译为ASM（汇编语言），再由ASM编译为OBJ（中间代码文件）。因此C和ASM的对应关系非常明确，非常便于人工优化。 3)DSP的代
原文：... 学习后写了自己的实现，地址：https://github.com/yanghuiyu39/retrofix_rejava 根据http/1.1 rfc 2616的协议规定，我们的请求方式只有OPTIONS、GET、HEAD、POST、PUT、DELETE、TRACE等，那
我热爱自学，觉得自学是一条逆袭之路！ 我现在主要从事java开发工作，我所掌握的java技能都是自学得来的，从大学开始到现在，我想未来，自己依然会持续自学，不单单是java，可能是方方面面的技能，只要是能提高自己...
换了win7 64位。 重新设置source insight 字体大小，因为这个...红色字的方法解决了 source insight 设置为 微软雅黑后 中文字体重影的问题。。。 我是把注释和多行注释都设为 ”黑体“了。。 感谢好一些
以下是2017年7月2日深圳drupal聚会上的分享整理，录音请查看以下网址，音频资料...关于Drupal的为什么和怎么做 大家好：我是《云客drupal8源码分析》系列分享的作者云客，在去年（2016年）9月11日drupal深圳社区聚会
C++中Txt文件读取和写入 一、ASCII 输出 为了使用下面的方法, 你必须包含头文件(译者注：在标准C++中，已经使用取代，所有的C++标准头文件都是无后缀的。)。这是 的一个扩展集, 提供有缓冲的文件输入输出操作. ...
怎么办 属性为0字节了 文件格式变RAW了 =============================================== 你是否遇到过关于文件,U盘,移动硬盘等属性常出现莫名的扩大缩小问题,本来是4G的U盘,结果显示十多个G,有时 ...
因为需要处理数据文件，涉及到数据的重新排列（主要是换顺序），在网上找了找相关的资料，没见到系统一点的，所以在这里整理和测试一下。 已经知道的问题有以下一些： 问题一：请教Matlab数据替换的问题 ...
用source insight看blob以及内核中的代码，发现即使全局搜索，也找不到定义中后缀为.S的函数，而明明在*.S中用汇编定义了该函数的。去网上查了一下，发现原因是*.S文件并没有添加到改工程中来。 为了用source ...
欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit...图片链接和图片上传 LaTex数学公式 UML序列图和流程图 离线写博客 导入导出Markdown文件 丰富的快捷键 快捷键 加粗 Ctrl + B 斜体 Ctrl + I 引用 Ctrl
有几个虚拟仿真公司跟我请教关于大地形的加载优化问题，它们使用的引擎都是自己研发的，引擎对于开发者来说，大同小异，它们的基本构造是一样的，关键是在于解决问题的方法，正是基于这个前提写了这个课程，希望给...
C++中Txt文件读取和写入 一、ASCII 输出 为了使用下面的方法, 你必须包含头文件(译者注：在标准C++中，已经使用取代，所有的C++标准头文件都是无后缀的。)。这是 的一个扩展集, 提供有缓冲的文件输入输出操作. ...
将图片背景处理为透明的方法步骤1 简单处理图片2 将背景设置为统一颜色3 将背景设置为统一颜色4 保存图片5 一些说明 将一张图片的背景处理成透明，是在工作生活中经常碰到的问题，这个问题的解决可以通过PS这个...
作者 |王晔倞 责编| 郭 芮 如何挑战百万年薪的人工智能！ ... ...在开始这个话题之前，先问一下大家，你们觉得PPT这玩意对搞技术的同学...相信对这些问题，每个人都会根据自己的认知给出不同的答案。这不，此前就有与P...
为什么要写这篇博客？ 其实我是一个入坑已经半年的程序员，因为不是计算机专业，只能自己摸索，所以我深知博客的重要性。每次我的学习笔记啊，项目的，面试题啊，有的，只要有时间，我肯定上传上来，一方面自己...
首页 博客 学院 下载 论坛 问答 活动 专题 招聘 APP ...c语言多文件编程，即main文件调用其他.c文件的方法 原创 天泉证道 最后发布...两种方法的区别就是，gcc编译时，是否加b.c文件，不加的话，就在a.c文件里面，加#in...
DSP精华资料Link的cmd文件的作用是什么？ Link的cmd文件用于DSP代码的定位。由于DSP的编译器的编译结果是未定位的，DSP没有操作系统来定位执行代码，每个客户设计的DSP系统的配置也不尽相同，因此需要用户自己定义...
...第八章、Linux 磁盘与...系统管理员很重要的任务之一就是管理好自己的磁盘文件系统，每个分割槽不可太大也不能太小， 太大会造成磁盘容量的浪费，太小则会产生文件无法储存的困扰。此外，我们在前面几章谈到
担心创建的虚拟机硬盘容量太大会占用真正的硬盘空间，把硬盘的容量设置得很小，可是等到给虚拟机装好系统后再装其他的软件，才发现硬盘容量不够用了。如果重建虚拟机，还要重新再装一遍操作系统，非常麻烦，而在...
#include int main() { FILE *fp; char fname[32];/*文件名*/ printf("请输入文件名\n"); scanf("%s",fname);/*输入文件名*/ strcat(fname,".txt"); fp=fopen(fname,"a"); fclose(fp);...使用fopen的w
此课程是黄强老师针对C、C++指针的专题课程，通过对指针本质的讲解，帮助学员对指针的理解，并讲结合真实企业开发中指针的使用技巧，从而帮助学员高效，、灵活的掌握指针相关难点！ a:0:{}
本课程主要介绍C++类库MFC上位机与STM32单片机的RS232、RS422、RS485、USB、LWIP以太网、CAN等接口进行稳定通信。课程主要从MFC和STM32基础开始，以编写上位机以及下位机为主，非常注重实践。 本课程主要目标是让大家学会MFC上位机的编程、STM32下位机编程。单单的会上位机或者下位机有时候体会不到通讯的乐趣，如果你单单会下位机，你学了本课程，你可以把你的数据以任何方式在windows上呈现出来，如果你只会上位机，你学了本课程你可以通过windows的串口、以太网、USB控制任何硬件设备。本课程的目标就是补偿大家的短处，让大家成为综合性人才，同时让大家体会到通讯中的更多乐趣。
