Updating a textbox

[chris_clarke]

Hi, i'm making a gamethat contains 2 Dice and a counter, when the "Roll Dice" button is pressed i want the Dice to show the values and then the counter to move according tot he value of the Dice.

I can get all of this done, using text boxes to display the Dice value and using a macro to work out the new dice value and then move the counter.

My problem is that the counter moves before the text boxes update with the new number. I've tried putting the Dice code in one macro and the move coutner code in another macro and then running one macro after the other, however this still doens't update the textbox values before moving the counter.

Does anybody have any idea on how i could get this done?

 

[Lewiy]

I’m not quite following 100% but my suggestion would be to try using the line:

DoEvents

Somewhere in the code.

This command forces all of the calculations in the code and the worksheet to complete before the code continues. Try putting it after the part that updates your TextBox and before the part that moves the counter.

 

[chris_clarke]

Hasn't worked.

The code i have at the moment is

Private Sub cmd_DiceShaker_Click()
    RollDice
    DoEvents
    MoveCounter
End Sub

and the code in RollDice is

Randomize
Worksheets("Board").TextBox1.Value = Int((6 - 1 + 1) * Rnd) + 1
Worksheets("Board").TextBox2.Value = Int((6 - 1 + 1) * Rnd) + 1

I just don't get why it won't update the values straight away before it runs MoveCounter

 

[chris_clarke]

I'm still stumped by it, i've tried using a label instead of a textbox and the value updates instantly, however i can't get the formatting of the label the way it needs to be so it's no good really

 

[Lewiy]

Sounds like a Label might be the way to go then. How do you need it formatted? This might be easier to achieve than figuring out why your TextBox doesn’t update.

 

[chris_clarke]

Changing the format of the label seems to be a no go as well. If i use a form control label then it updates when I want it to, however i can't seem to do any kind of formatting to it. if i use an active x label then i can format it however i want but it won't update.

I take it this means it must be the active x controls that don't update until all macros have been completed. Surely there must be some way of getting around this?