drawing a line under a string or integer?

[christophe]

Hi,

Does anybody know how I can draw a horizontal line under a string or integer?

The problem is that I don't want to hardcode the line because the position of the integer will change.

'command button and picturebox
Private Sub Command1_Click()
Dim number As Integer
Randomize
number = Int(Rnd * 200)
Picture1.Cls
Picture1.FontSize = 14
picture1.print number
end sub

How could I have it so that, regardless of whether I have:

picture1.print number
or
picture1.print " " & number
or
picture1.print "You will see that the answer is " & _
number & ", so you have failed the test."

the line will always appear under the integer, number?

Thanks for any help!

[kedaman]

Picture1.Font.Underline = True
Picture1.Print "Whatever"
Picture1.Font.Underline = false

Next to the .FontSize = 14 line, put this line:

Picture1.FontUnderline = True

Oooooohh... You got me kedaman....
BTW, there shouldn't be a period between Font and Underline.

[Edited by Sc0rp on 09-26-2000 at 07:53 AM]

[kedaman]

Hehe, 1 minute

[christophe]

Hi,

Either what you gave me doesn't work or I picked you up wrong.

I put what you gave me as a Function so I could call it when I wanted:


Private Sub Command1_Click()
Dim number As Integer
Randomize
number = Int(Rnd * 200)
Picture1.Cls
Picture1.FontSize = 14
Picture1.Print "The number is " & lineunder(number)
End Sub

Public Function lineunder(x As Integer)
Picture1.Font.Underline = True
Picture1.Print x
Picture1.Font.Underline = False
End Function

--------

number is printed at the top of my picturebox, whereas it should be printed next to, "The number is "

Do you know why this is happening and how it can be solved?

Thanks.

You might wanna try this:

Private Sub Command1_Click() 

    Dim number As Integer 
    Randomize 
    number = Int(Rnd * 200) 

    Picture1.Cls 
    Picture1.FontSize = 14 
    Picture1.Print "The number is "
    WriteUnderline number

End Sub 

Public Sub WriteUnderline(x As String) 

    Picture1.Font.Underline = True 
    Picture1.Print x
    Picture1.Font.Underline = False

End Function

I think that this will work.

[kedaman]

Almost Sc0rp, almost

Picture1.Print "The number is ";

[christophe]

I got an error with WriteUnderline number but I changed it to WriteUnderLine(number) and it worked better.

But it's not as effective as I want it to be. I want a function that can be called throughout my project for different integers.

E.g:

Picture1.print "If the first number is " & WriteUnderLine(primenumber) & " what is the second one?"
'underline WriteUnderLine(primenumber) only

And somewhere else in my project:

Picture1.print "What is " & WriteUnderLine(evennumber) &
" squared?"
'underline WriteUnderLine(evennumber) only

And my function is:

Public Sub WriteUnderline(x As String)

Picture1.Font.Underline = True
Picture1.Print x
Picture1.Font.Underline = False

End Sub

-----

Well at present, everything is underlined after WriteUnderLine. In my first example, WriteUnderLine(primenumber) & " what is the second one?", is underlined, whereas all I want is WriteUnderLine(primenumber).

How can I have it so that only the part in brackets is underlined?

Any ideas?

Thanks.

You could try sending 3 strings: B4Underling, underline, AFTRUnderine.

and constitue the text in the control from the strings. Note that if you sent "",5,"" you would get only the underlined string.

This would also allow this to be used in other situations where the arguments are not necessarily integers, reals, or whatever.



Good Luck
DerFarm

[christophe]

Ah hah!

I got it.

I was leaving out the ; in the function:

Public Function WriteUnderline(x As Integer) As String
Picture1.Font.Underline = True
Picture1.Print x; 'forgot the ;
Picture1.Font.Underline = False
End Function

Now it works - with integers only. How can I have it so that it also works with strings. What do I have to change here:

Public Function WriteUnderline(x As Integer) As String

Thanks!

It should look like this:

Public Sub WriteUnderline(x As String)

Now it also works for strings.

Example:

Print "Hello, welcome to ";
WriteUnderline "my"
Print " world."

will return:
Hello, welcome to my world.

[Edited by Sc0rp on 09-26-2000 at 03:43 PM]

[kedaman]

Change it to variant and it'll work for both strings and integer. In fact you can print datatypes except arrays, UDT's and objects.