标题: VBS中也有Vector
作者: Demon
链接: https://demon.tw/programming/vbs-vector.html
版权: 本博客的所有文章,都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。
对,你没看错,是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来画一幅蒙娜丽莎。
参考链接:
- Vector Object
- Create and Initialize a Vector Object
- Create an ImageFile Object that Contains a Blank Page
微信赞赏支付宝赞赏
随机文章: