picturebox - inserting symbols and fonts

[christophe]

Hi,

Is there an easier and more efficient way of doing this? There has to be.

I'm using a picture box to display some Maths information - the only way, because lots of strange characters aren't accepted in a label or textbox.

Below is a piece dealing with angles. At present, the way I do it is leave empty spaces between the text, which is normal font, and then insert a character from symbol font in that area. This is very tedious, as I have to constantly find the correct X and Y coordinates, and if I change my wording I have to change the positions of the symbols.

Is there some way you could declare it as a string or something? For example, something like:

Dim specialchar as String (or whatever)

specialchar = Picture1.Font = "symbol"; Picture1.Print "Ð"

And then I could just insert it like: "Look at " & specialchar & "abc……"

'This is the code I use at present, which is a pain. It
'inserts an angle symbol in the empty spaces.

Private Sub Form_activate()

Picture1.Print "Look at abc. You will notice that it is the" & Chr$(13) & _
"same size as bcd. These angles are called" & Chr$(13) & _
"Corresponding angles." & Chr$(13) & _
"Now look at xyz."
Form1.Picture1.CurrentX = 600
Form1.Picture1.CurrentY = 5
Picture1.Font = "symbol"
Picture1.Print "Ð"
Form1.Picture1.CurrentX = 930
Form1.Picture1.CurrentY = 200
Picture1.Font = "symbol"
Picture1.Print "Ð"
Form1.Picture1.CurrentX = 900
Form1.Picture1.CurrentY = 590
Picture1.Font = "symbol"
Picture1.Print "Ð"
End Sub

[richie]

Hi Chrissy,

How's the project going?

No. You can't do what you are trying to do. It's a pain, but you have to manually position your symbols each time.

See you soon!