文章关键字 ‘图片’

在InternetExplorer.Application中显示本地图片

2011年02月19日，星期六

很久以前的问题了，一直没解决，今天无意中搜到了答案。

在InternetExplorer.Application对象中显示远程服务器上的图片是没有问题的：

Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "about:blank"
IE.Document.write "<img src='https://demon.tw/demon.gif' />"
IE.Visible = True

然而，在IE默认的设置下，却无法显示本地图片：

（更多…）

标签：, , , ,
发布在 程序设计 | 6 条评论 »

用Shell.Application获取图片分辨率

2010年11月23日，星期二

昨天有人在博客里留言：“获取图片分辨率也可以用Shell.Application，我比较喜欢用这个。”简单Google了一下，未果，于是发邮件请教了一下，很快就有了回复。

Path = "C:\test.jpg"
arr = Split(Path,"\")
FileName = arr(Ubound(arr))
FolderPath = Left(Path, Len(Path) - Len(FileName) - 1)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FolderPath)
set objFolderItem = objFolder.ParseName(FileName)
Width = objFolder.GetDetailsOf(objFolderItem, 162)
Height = objFolder.GetDetailsOf(objFolderItem, 164)
Msgbox "Width: " & Width & " Height: " & Height

碰到VBS高手了。

标签：, , ,
发布在 程序设计 | 3 条评论 »