VB6 -Letters printen op picture zoals een sigil

Status
Niet open voor verdere reacties.

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
dag
ik heb:
een commbutton
een textbox'woordinp'
met onderstand code wordt een willekeurige woord gesplitst
en de afzonderlijke letters 'geprint' op een picturebox
Code:
Dim woord As String
Dim i As Integer
woord = woordinp
Picture1.AutoRedraw = True

For i = 1 To Len(woord)
    Picture1.CurrentX = 1050
    Picture1.CurrentY = 700
    Picture1.Print Mid(woord, i, 1)
Next i
End Sub

werkt alles perfect. Echter, de verschillende letters worden uiteraad opgestapeld de een op de ander.
Ik zou willen dat de letters geprint worden maar niet een op andere, maar wel
verbonden op een vaste of willekeurige zijde. Zeg maar zoals een sigil.
zie twee afb
 

Bijlagen

  • 1.jpg
    1.jpg
    10,9 KB · Weergaven: 31
  • 2.gif
    2.gif
    1,4 KB · Weergaven: 25
Dan zal je van een truetype font de buigpunten moeten achterhalen en eventueel raaklijnen moeten berekenen.
Ik zou je adviseren dit met een cadprogramma te doen.
Sommige kunnen truetype fonts omzetten naar vectoren, die je vervolgens kan manipuleren.
 
ofwel letters printen en daarna met drag en drop doen. Maar le letters moeten toch
verwijderen zijn van elkaar om met drag en drop te werken.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan