VB6处理图像问题,恳请大神帮忙,困惑已久!!!
代码:
Dim prop As GDIPPropertyItem
Dim img As GDIPImage
Set img = New GDIPImage
img.FromFile sFIle ‘sFIle为图片途径
For i = 1 To img.PropertyCount
Set prop = img.PropertyItem(i)
If prop.ItemType = PropertyTagTypeASCII Then
…………
end if
Next i
调试img.PropertyCount值为54,prop也不为空,但是每个prop.ItemType都为无变量……,导致每次都提示错误。错误提示如下图:
对prop变量添加监视,各属性值如下图:
初步怀疑是GdiPlus.dll注册不成功导致,然后在网上找了各种修复GdiPlus.dll的补丁,可是无济于事。
在工程中又不能添加引用这个dll。
恳请大神帮忙!
Visual?Basic?6.0 补丁 GdiPlus
[解决办法]
http://download.csdn.net/detail/veron_04/4039695