VB Forum / General 2 / July 2004

Do the Recalc in the LostFocus event of the Textbox

Note that clicking a Menu does not cause a LostFocus

One way to work around this is the Validate Event...
Such as->

Option Explicit

Private Sub Form_Load()
Dim llp As Long
   'Text(5) will be used for the total...
   Text1(0).Text = ""
   For llp = 1 To 5
       Load Text1(llp)
       With Text1(llp)
           .Top = Text1(llp - 1).Top + Text1(llp - 1).Height + 40
           .Visible = True
       End With
   Next llp
   With Text1(5)
       .Locked = True
       .TabStop = False
   End With
End Sub

Private Sub Text1_Validate(Index As Integer, Cancel As Boolean)
Dim llp As Long
Dim lTotal As Long
   For llp = 0 To 4
       lTotal = lTotal + Val(Text1(llp))
   Next llp
   Text1(5).Text = CStr(lTotal)
   
End Sub

Have a good day...

Don

Dave,

First of all, what's wrong with it actually recalculating on every
keystroke?

If you want it to calc only when you're done, I'm afraid you somehow
have to tell the program you're done. You can but a button somewhere
and make its Default property to True. You then can just press ENTER
when you want a re-calc update. Otherwise you could use the LostFocus
event for the textboxes, but you would always have to tab away from
the box in order to get this to fire.

Hope one of these options is sufficient for you.

---Atreju---

Dave, just thought of one more idea.
You could have a timer control. Whenever keystrokes begin, you could
first shut off then turn back on the timer at, say, 1000 (1 second).
then when the timer event fires, re-calc, and turn off the timer. Only
turn it back on when another key is pressed. This is a bit messy, but
basically what you do is turn it off and then on again every time a
key is pressed. This way if you are typing numbers in, generally it
wouldn't take a whole second between numbers, so every keystroke would
basically reset the timer to another 1 second. once you're done
typing, that 1 second would be allowed to pass, and the recalc would
fire.

I will try to make a sample and if it works well, i will post the
code.

---Atreju---

SNIP

Okay, here's some code:

Make a form with as many textboxes you want, but make them all in an
array.
I have used the name txtInput(0) and so on for all the textboxes.
Add one last textbox called txtResul

Add a timer called Timer1. Set its interval to 1000

Here's form code:
(please note, I have not included any verification for numeric, I just
wanted to get you the code. please verify the text before allowing it
or calculating it. i suggest just testing the keystroke and
disallowing it if not numeric). The calc procedure here also skips a
textbox if there's nothing in it. You could also, I suppose, add
testing for numeric.

Hope this helps.

Option Explicit
Private lSum As Integer

Private Sub Timer1_Timer()
 Dim iCount As Integer
 
 lSum = 0
 
 For iCount = 0 To txtInput.Count - 1
   lSum = lSum + IIf(txtInput(iCount).Text <> "",
txtInput(iCount).Text, 0)
 Next iCount
 
 txtResul.Text = Str(lSum)
 Timer1.Enabled = False
End Sub

Private Sub txtInput_KeyPress(Index As Integer, KeyAscii As Integer)
 Timer1.Enabled = False
 Timer1.Enabled = True
End Sub

---Atreju---