vb获取图片的一些信息

一、vb获取图片的一些信息

Private Sub Command1_Click()

Dim pic As New StdPicture

Set pic = LoadPicture(图片地址)

Print Int(ScaleY(pic.Height, 8, 3)) '高度

Print Int(ScaleX(pic.Width, 8, 3)) '宽度

End Sub

二、VB 如何获取屏幕图片数据保存在一个二进制数组里面？

'假设Form 上已经存在Picture1的控件，并已经设置好图片

Dim PBag As New PropertyBag

Dim B() As Byte

PBag.WriteProperty Picture, Picture1.Picture

'读取Picture1.Picture 图片并写到 Pbag 容器中

B = PBag.Contents '获取容器Byte 到 B() 数组中

'这时 B 就时我们想要获得的Byte数组

'读取 Byte() 数组内容到 Picture

PBag.Contents = B '指定 PBag容器的内容

'读取容器中的图片

Set Picture1.Picture = PBag.ReadProperty(Picture)

简单的几句代码就可以完成从图片到Byte() ，从Byte()到图片的转换。而且其保存和读取的格式都是使用了原始格式，即：如果你的图片框读入的是Jpg图片格式，则保存的Byte()数组也是该Jpg格式的数组，而非普通位图的数组，所以你也不用担心转换后的数组很没有压缩，很大。

三、VB读取XML文件并修改其中的某些数值并保存

(xmlFile) End Sub 注意你上面的XML中Width=

四、vb中的mid函数

Mid(string, start[, length]) Mid 函数的语法具有下面的命名参数：部分说明 string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。 start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ()。 length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。 long 型的当然可以。

五、vb如何创建dsr文件

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。

“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，一种在计算技术发展历史上应用得最为广泛的语言。Visual Basic 在原有 BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是 Visual Basic 语言的子集，可嵌入HTML语言中，用于网页设计，如ASP（Active Server Page）文件。

VB简单易学，通用性强，用途广泛。

VB 在创建和编译工程时要产生许多文件，分为：设计时文件、杂项开发文件和运行时文件。

设计时文件是工程的建造块，例如基本模块 (.bas) 和窗体模块 (.frm)。

杂项文件是由 Visual Basic 开发环境中的各种不同的进程和函数产生的，例如打包和展开向导从属文件 (.dep)。

开发应用程序时会产生各种设计时文件和其它杂项文件，如下表所列：

扩展名描述扩展名描述

.bas 基本模块 .frm 窗体文件

.cls 类模块 .frx 二进制窗体文件

.res 资源文件 .vbp Visual Basic 工程文件

.ctx 用户控件的二进制文件 .pgx 二进制属性页文件

.dca 活动的设计器的高速缓存 .ctl 用户控件文件

.ddf 打包和展开向导 CAB 信息文件 .tlb 远程自动化类型库文件