vb 保存图片时设置保存文件大小

方法如下：

1、读取该；

2、使用PaintPicture方法缩放绘制；

3、保存PictureBox中的。

注意：VB的SavePicture只能保存BMP，想保存为其他格式，只能自己根据文件格式写，或者找控件。

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

在网上我找到了相关的代码，但是在我的电脑上总实现不了，说编译错误，求达人解惑！

代码全文如下：

在Form1的通用部分加入以下代码：

Option Explicit

Dim fsoTest As New FileSystemObject

Dim folder1 As Folder

并且分别在三个命令按钮的click事件输入以下代码：

Private Sub CmdCreate_Click()

' 获取 Folder 对象。

Set folder1 = fsoTestGetFolder(“C:")

'创建文件夹

fsoTestCreateFolder (“C:\Test")

MsgBox “folder C:\Test has created"

End Sub

Private Sub CmdDelete_Click()

' 获取 Drive 对象。

Set folder1 = fsoTestGetFolder(“C:")

'删除文件夹

fsoTestDeleteFolder (“C:\Test")

MsgBox“folder C:\Test has deleted"

End Sub

Private Sub CmdGetPro_Click()

'获取文件夹的有关信息

Dim sReturn As String

Set folder1 = fsoTestGetFolder(“C:\Windows")

'sReturn = “The folder's Attributes is " & folder1Attributes & vbCrLf

'获取最近一次访问的时间

sReturn = sReturn & “The folder's last access time is " & folder1DateLastAccessed & vbCrLf

'获取最后一次修改的时间

sReturn = sReturn & “The folder's last modify time is " & folder1DateLastModified & vbCrLf

'获取文件夹的大小

sReturn = sReturn & “The folder's size is " & FormatNumber(folder1Size / 1024, 0)

sReturn = sReturn & “Kb" & vbCrLf

'判断文件或文件夹类型

sReturn = sReturn & “The type is " & folder1Type & vbCrLf

MsgBox sReturn

End Sub

解析:

如果以上代码是楼主完全从VB里拷贝出来的话，那问题就只有一个：

Set folder1 = fsoTestGetFolder(“C:")

VB里面所有的字符串都必须用英文双引号。而以上都是一个中文双引号开始（“），再用的英文双引号（"）结束的

把以上所有的 “ 改成 " 。

FileDateTime 和 FileLen 是VB的内置函数 可以直接使用

如果你想获取图像的尺寸 你可以用picturebox控件设置autosize属性，然后加载图像 最后获取picturebox的长宽属性值 就可以使用你文件尺寸了。

Private Sub Form_Load()

DebugPrint Picture1ScaleWidth, Picture1ScaleHeight

End Sub

Dim ObjFileSystem As New FileSystemObject '需引用MicrosoftScripting Runtime

Dim ObjFile As File

Set ObjFile = ObjFileSystemGetFile("d:/19txt")'文件名

DebugPrint ObjFileDateCreated '文件创建时间

DebugPrint ObjFileDateLastAccessed '文件访问时间

DebugPrint ObjFileDateLastModified '文件修改时间

FileSizes = ObjFileSize  ‘文件大小 字节为单位

'将image的stretch属性改为true就行了

image1stretch=true

'就是让图像适应image

'或者:

'在窗体加载时设置image的大小

image1width=1000

image1height=2000

方法如下：

1、读取该；

2、使用PaintPicture方法缩放绘制；

3、保存PictureBox中的。

注意：VB的SavePicture只能保存BMP，想保存为其他格式，只能自己根据文件格式写，或者找控件。

以上就是关于vb 保存图片时设置保存文件大小全部的内容，包括:vb 保存图片时设置保存文件大小、求vb创建文件夹全部代码以及在其中生成文件、VB如何文件目录读取图像属性宽和高的像素尺寸等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！