Kent,
Have you tried saving as bmp instead of wmf ?
Here is the help about SavePicture from VB6, look at the
remarks.
SavePicture Statement
Saves a graphic from the Picture or Image property of an object
or control (if one is associated with it) to a file.
Syntax
SavePicture picture, stringexpression
The SavePicture statement syntax has these parts:
Part |
Description |
picture |
Picture or Image control from which the
graphics file is to be created. |
stringexpression |
Filename of the graphics file to
save. |
Remarks
If a graphic was loaded from a file to the Picture property of
an object, either at
size=2>design time or at
href="javascript:alink_4.Click()">run time,
and it’s a bitmap, icon, metafile, or enhanced metafile, it's saved using the
same format as the original file. If it is a GIF or JPEG file, it is saved as a
bitmap file.
Graphics in an Image property are always saved as bitmap (.bmp)
files regardless of their original format.
"Kent Keller" <
href="mailto:kwik.mcad@verizon.net">
size=2>kwik.mcad@verizon.net> wrote in message
size=2>news:326D639F5C8443E791C49ADA1D4C0CCE@in.WebX.maYIadrTaRb
size=2>...
| Hi Frank
|
| This is the basics
of the code I am using
|
| Private oFilePropReader As
DSOleFile.PropertyReader
| Private oDocProp As
DSOleFile.DocumentProperties
|
| Private Sub Form_Load()
|
Dim sFile As String
| sFile =
"D:\Inventor\Projects\ATV Lift\ATV Lift.iam"
| Set
oFilePropReader = New DSOleFile.PropertyReader
| Set
oDocProp = oFilePropReader.GetDocumentProperties(sFile)
|
Picture1.Picture = oDocProp.Thumbnail
|
| SavePicture
Picture1, Left(sFile, Len(sFile) - 3) & "wmf"
| End Sub
|
|
|
--
| Kent Keller
|
href="http://kwik-mcad.scriptmania.com/">
size=2>http://kwik-mcad.scriptmania.com/|
|
"Frank Oquendo" <
size=2>franko@acadx.com> wrote in message
|
size=2>news:DF819134D6B047C23BAB19EF1A5DC4AF@in.WebX.maYIadrTaRb
size=2>...
| > Pressed 'send' a little too quickly. I meant to say that my
output is fine.
| >
| > --
| > Good judgment comes from
experience.
| > Experience comes from bad judgment.
| >
| >
size=2>http://www.acadx.com| >
| >
|
|
