-
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
-
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!
