.type = 4
.Value = https://www.04ip.com/post/VarPtr(quality)
End With
'保存图像
lRes = GdipSaveImageToFile(lBitmap, StrPtr(fileName), tJpgEncoder, tParams)
'销毁GDI+图像
GdipDisposeImage lBitmap
End If
'销毁 GDI+
GdiplusShutdown lGDIP
End If
If lRes Then
PictureBoxSaveJPG = False
Else
PictureBoxSaveJPG = True
End If
End Function
d.使用以下代码实现将加好文字水印图片保存为jpg格式图片 。
Private Sub Command3_Click() '保存为.jpg图片
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "JPEG Files""(*.jpg)|*.jpg"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowSave
' 显示选定文件的名字
'MsgBox CommonDialog1.fileName
Set Picture2.Picture = Picture1.Image '转移Picture1所绘图为Picture2.Picture赋值
Dim ret As Boolean
ret = PictureBoxSaveJPG(Picture2, CommonDialog1.fileName) '保存压缩后的图片
If ret = False Then
MsgBox "保存失败"
End If
Exit Sub
ErrHandler:
' 用户按vb.net下载图片了“取消”按钮
Exit Sub
End Sub
VB.net如何调用资源文件(resx)里的图片?放在解决方案资源管理器还没完 。进入项目属性,资源,把解决方案资源管理器里的资源文件拖进来,改个便于调用的名称 , 然后My.Resources里面就可以调用了 。如果是VS可以识别的,那么就直接是Bitmap类型的 , 可以隐式转换成Image类型 。
【vb.net下载图片 vb保存图片】vb.net下载图片的介绍就聊到这里吧,感谢你花时间阅读本站内容 , 更多关于vb保存图片、vb.net下载图片的信息别忘了在本站进行查找喔 。
推荐阅读
- word怎么打印目录,word如何打印目录
- c语言定义空语句,c语言怎么定义空的字符串
- 直播间边框模板制作软件,直播边框模板下载
- vb.net退出程序 vb退出窗口代码
- 视频来电下载,视频来电下载安装
- 电商如何赚钱皆选齐论电商,电商要怎么赚钱
- 飞行堡垒7游戏文件夹下载,飞行堡垒7的应用商店在哪
- java程序代码打折 java程序代码大全
- u盘模式怎么转换为usb模式的简单介绍