PopUp Menus

[dfg]

Hi...Just a quick question about popup menus. I have a menu popup using
the code below:

Private Sub fraAccBal_MouseDown(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 2 Then
PopupMenu mnuHi
End If
End Sub

After then menu pops up, I click on an item, but nothing happens. Where
do I put the code to make things happen?

Thanks.

[Rick Rothstein]

> Hi...Just a quick question about popup menus. I have a menu popup using

the code below:

Private Sub fraAccBal_MouseDown(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 2 Then
PopupMenu mnuHi
End If
End Sub

After then menu pops up, I click on an item, but nothing happens. Where
do I put the code to make things happen?

You put the code in each item's Click event. At Design Time, find an item
that is on the popup menu at its location on the form's main menu bar and
click on the item you want to code for... VB will take you to that item's
Click event code section automatically.

Rick - MVP

[C. Alexander]

Create a click event for each menu item
in the form code on which the menu is on

Private Sub mnuItem1_Click()
' do code
End Sub

Private Sub mnuItem2_Click()
' do code
End Sub

Alternatively, in your menu editor,
make the top level of the menu visible.
In the design window, you will see the
menu showup at the top.

Click on your menu/item to go to the code
when ur done, uncheck Visible in the menu editor

"dfg" <df*@dfg.net> wrote in message
news:y53ob.220769$9l5.115149@pd7tw2no...

Hi...Just a quick question about popup menus. I have a menu popup using
the code below:

Private Sub fraAccBal_MouseDown(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 2 Then
PopupMenu mnuHi
End If
End Sub

After then menu pops up, I click on an item, but nothing happens. Where
do I put the code to make things happen?

Thanks.