what's wrong with this code..

[superracerx]

Private Sub File_Click()

End Sub

Private Sub mnuPayment_Click()
txtPayment.Enabled = Not txtPayment.Enabled
mnuPayment.Checked = txtPayment.Enabled
mnuPayment.Checked = False
mnuPresentValue = True
mnuFutureValue = True
End Sub

Private Sub mnuPresentValue_Click()
txtPresentValue.Enabled = Not txtPresentValue.Enabled
mnuPresentValue.Checked = txtPresentValue.Enabled
mnuPayment.Checked = True
mnuPresentValue.Checked = False
mnuFutureValue.Checked = True
End Sub

Private Sub mnuFutureValue_Click()
txtFutureValue.Enabled = Not txtFutureValue.Enabled
mnuFutureValue.Checked = txtFutureValue.Enabled

mnuPayment.Checked = True
mnuFutureValue.Checked = False
mnuPresentValue.Checked = True

End Sub

I am trying to select only one of the menu items which by deselecting other two items...any suggestions w/ the error in the code.


Thanxs for the help in advance

[MartinLiss]

In each routine you have something like

mnuPayment.Checked = txtPayment.Enabled
mnuPayment.Checked = False

You didn't say what the problem is, but the second line is probably it's cause. If txtPayment is enabled, the first line sets mnuPayment to Checked, and the second line immediately sets it to Unchecked. You probably should remove the second line.

------------------
Marty
What did the fish say when it hit the concrete wall?
> > > > > "Dam!"

[This message has been edited by MartinLiss (edited 02-11-2000).]

[superracerx]

Thanxs marty...but it doesnt seem to work...checking was all screwed up once I got rid of the second line..here is the deal..all I am trying to do is: If payment menu option is selected, it is supposed to have a check mark then shade out other 2 items and disable selecting text box for payment.


Manoj

[HeSaidJoe]

txtPayment.Enabled = Not txtPayment.Enabled
mnuPayment.Checked = txtPayment.Enabled
mnuPayment.Checked = False
mnuPresentValue.Checked = True
mnuFutureValue.Checked = True

You forgot your .checked