VBS中也有Vector

标签: , , ,

对,你没看错,是VBS中的Vector,不是C++,也不是Java。

下面的示例演示了如何创建一个Vector对象并初始化为包含ASCII字符串"This is a test"的字节型Vector。

Dim v 'As Vector
Dim i 'As Integer
Set v = CreateObject("WIA.Vector")
v.SetFromString "This is a test", True, False
For i = 1 To v.Count
    MsgBox Chr(v(i))
Next

Vector更强大的地方在于可以用来创建图片,让我想到了PHP的GD库拓展,只可惜功能太简单了。

Set v = CreateObject("WIA.Vector")
For i = 1 To 200 * 200
	v.Add &HFF0000FF
Next
Set Img = v.ImageFile(200,200)
Img.SaveFile "Blue." & Img.FileExtension

Vector中的一个元素代表一个像素点,示例中的Vector对象有200*200个元素(像素点),每个像素的ARGB值都是FF0000FF(完全不透明的蓝色)。如果你足够强大,你完全可以用Vector来画一幅蒙娜丽莎。

参考链接:

  1. Vector Object
  2. Create and Initialize a Vector Object
  3. Create an ImageFile Object that Contains a Blank Page
赞赏

微信赞赏支付宝赞赏

随机文章:

  1. 魔兽无法全屏的解决方法
  2. 微软NLS文件格式
  3. VB6拾遗:调用C函数(__cdecl调用约定)
  4. VbsEdit 5.2.4.0
  5. WriteFile,WriteConsole和_tprintf的一些差别

留下回复