On 22/03/2011 14:07:09, "christianlott1 (AT) yahoo (DOT) com" wrote:
Hi Christian

Progress at last

This creates a label OK

Sub CreateImage()

Dim sCmd As String
Dim sFileOUT As String
Dim sGO As String
Dim ProgPath As String, DataPath As String, PicPath As String

ProgPath = "C:\Program Files (X86)\ImageMagick\"
DataPath = "C:\Phil Data\Access\MDB 2010\WFYC\Odd Jpegs"

sCmd = ProgPath
sCmd = sCmd & "convert -rotate -45 -background transparent "
sCmd sCmd = sCmd & "-size 2000x -font 'Arial' -pointsize 96 label:Philip
-trim +repage "

ChDir hDir (DataPath) ' Imagemagick does not understand paths

sFileOUT = "draw12.png"
If Dir(sFileOUT) > "" Then
Kill sFileOUT
End If

sGO = sCmd & sFileOUT
Call ShellWait(sGO, vbMaximizedFocus)

PicPath = DataPath & "\" & sFileOUT
Space01.Picture = PicPath
Space02.Picture = PicPath
Space03.Picture = PicPath

Me.Repaint

End Sub

and I am then loading the same draw12.png as a picture into 3 image objects
(Space01, 02 and 03).

Now the work starts to create the right data for the 100 odd pngs and then
load the correct pngs into the right images.

You really did get me moving on this one, as I was completely stumped

Thanks again

Phil

Great! Glad you got it to work, there's a lot of documentation and a
lot of options. I'm sure you saw the 'montage' command which I
imagined you may put to use combining the labels with the boat images.
In the docs somewhere it says you can use brackets and numbers to
force IM to loop : ( [2-20].jpg ) but that never worked for me, hence
the VB loop and ShellWait. If you're just executing one command
without a loop I suspect you don't need the ShellWait and can just use
'Shell'.


Yep. I think it's the spaces in the pathname?


I think there's a line length limit with the Shell/ShellWait commands
that you don't run into with WSH - but that's something I read, not
something I've experienced yet.

There should have been an easier way than this, some DirectX or gdi
graphics primitive that rotates a transparent bitmap but with my
limited experience this seemed the path of least resistance.


Here are a few links from searching:

Create a bitmap in memory and draw text on it
http://www.vb-helper.com/howto_memory_bitmap_text.html

VB projects - Text-to-image converter
http://www.ostrosoft.com/vb/projects...mage/index.asp

HOWTO: Rotate a Bitmap in Visual Basic for Windows
http://support.microsoft.com/kb/80406


Good luck! Keep us posted!

Found this article on DirectX7 if you can add a reference to 'DirectX
7 Visual Basic Type Library':

http://msdn.microsoft.com/en-us/libr...8VS.60%29.aspx

Haven't tried it yet. To use you'd want to drop in a VB 2.0 Frame
Control (ActiveX), get the hWnd by using Frame1.SetFocus and the
'GotFocus' api.

On 23/03/2011 15:53:51, "christianlott1 (AT) yahoo (DOT) com" wrote:
Thought I had cracked it. In the example I gave above, that worked OK.
If however the Label has a space in it e.g. "Philip Stanton" only the Philip
part is generated. Other interesting things like reducing the pointsize from
96 to 12, gives the same size image, but blurred. I need to produce constant
height labels with a fixed font, so it's OK for their width to vary according
to the length of the label

Any ideas

Thanks

Phil

On 23/03/2011 23:50:55, "Phil" wrote:
Cracked the space in the name problem. ImageMagick doesn't understand single
quotes 'Anthony Stanton'

needs

sCmd = ProgPath
sCmd = sCmd & "convert -rotate -45 -background transparent "
sCmd = sCmd & " -trim +repage -font 'Arial' -pointsize 48 label:"
sCmd = sCmd & Chr$(34) & "Anthony Stanton" & Chr$(34) & " "

Still playing with font size

Phil