How to erase a DrawString on a form?

[Stellaferox]

Hi,
I am trying to erase a DrawString on a form but FErase won't do it. Is there another way except rewriting the string in the backgroundcolour?

[Erel]

If you draw the string on the fore layer you will be able to erase it with FErase.
Other options are to draw a rectangle in the background color, or to draw the text again using the background color.

[Stellaferox]

Erel, you must be desperate for all the stupid questions you get.... I forgot the F in front of the Drawstringcommand. Now it works fine...
tnx

[Stellaferox]

Meanwhile, let me propose a problem. In the attached program I want to change the Mean and SD from 100 and 16 to 0 and 1 respectively. I want to show the change on the x-axis as soon as the new value is filled in in the textbox (let's say the 0 in the Mean textbox without ENTER). Now I have to switch textboxes and back to show the change.
Any ideas?

[Stellaferox]

hmmmmm.... to quick again... here is the file... the subs are tbMean_GotFocus and tbSD_GotFocus.
thnx in advance....
Marc

[Cableguy]

Entering the values does not raise any event..that is the problem...The only way I would see this working would be enableing a timer when a textbox got focus and the on timer.tick do a lost focus to the textbox, raising this way the lostfocus event...

[Stellaferox]

something like:?

Sub tbSD_GotFocus
Timer1.Interval = 10 'milliseconds
Timer1.Enabled = True
End Sub

Sub Timer1_Tick
Mean = tbMean.Text
SD = tbSd.Text
InitXaxis
Timer1.Enabled = False
End Sub

it doesnt change while waiting...

[Stellaferox]

I did it like this, but I do not think this is the most elegant solution...

Sub tbMean_GotFocus
Timer.Interval = 1000 'milliseconds
Timer.Enabled = True
End Sub

Sub tbMean_LostFocus
Timer.Enabled = False
End Sub

Sub tbSD_GotFocus
Timer.Interval = 1000 'milliseconds
Timer.Enabled = True
End Sub

Sub tbSD_LostFocus
Timer.Enabled = False
End Sub

Sub Timer_Tick
Mean = tbMean.Text
SD = tbSd.Text
InitXaxis
End Sub

[Cableguy]

I was thinking more in the lines of this:

sub textbox1_gotfocus
Timer1.interval=1000
timer1.enabled=true
End Sub

Sub Timer1_Tick
Timer1.Enabled=False
somecontrol.Focus (This will raise the textbox1_lostfocus)
EndSub

Sub Textbox1_lostfocus
This is were you enter the variabl values
End Sub

[Stellaferox]

Hey, that is even more nicer. I will try that. Thanks.....
Marc