loadimage使用教程如何在vb中改变图片大小？

2023-05-30

3037

如何在vb中改变图片大小？创建一个图像框和两个命令按钮。PrivateSubCommand1_Click()缩小图1。HeightImage1 .高度*0.9图1。宽度图像1 .宽度*0.9末端接头P

如何在vb中改变图片大小？

创建一个图像框和两个命令按钮。

PrivateSubCommand1_Click()缩小

图1。HeightImage1 .高度*0.9

图1。宽度图像1 .宽度*0.9

末端接头

PrivateSubCommand2_Click()放大

图1。H

sqlit: tsqlit:档案流

开始

(数据库.数据库)

FS :(，fmOpenRead)

SqliteDB。UpdateBlob(更新PhotoLib集照片？其中ID为1，FS)

结束

读取图像控制显示:

(数据库.数据库)

(Select * From PhotoLib，其中Id1)

:女士([图片])

如果(MS nil)则

开始

Showm: 0

PIC :

图片。LoadFromStr:图片