Hi Justin -
Yup, this is exactly what I'm doing now, just send the same call from both
the box and the label, then do the actual work in the called sub, after
deciding what was clicked. I was hoping to get this down to a single call
from each box, mostly to make it more generalizable for users who have a
different physical-metaphor map. But this isn't THAT bad - thanks for the
second opinion.
Armando
"Justin Hoffman" <j@b.com> wrote in message
news:d3qefg$n7o$1@hercules.btinternet.com...[color=blue]
>
> "Armando" <armando@bogusaddress.com> wrote in message
> news:KwW7e.1061$4a.101279@news1.epix.net...[color=green]
> > Hey gurus -
> >
> > Access 2000 - I have a form with a series of box controls forming a map[/color][/color]
of[color=blue][color=green]
> > clickable areas, and I want each one to have a label. No problem, just
> > put
> > 'em on, right? But I also want the box/label combination to act as a
> > single
> > item when clicked - that is, not have to put the same OnClick code on[/color][/color]
both[color=blue][color=green]
> > the box and the label (or force the user to click on the background[/color][/color]
only).[color=blue][color=green]
> > I've tried attaching the label to the box (by cutting the label then
> > highlighting the box and pasting it) to try to make the text clickable,
> > like
> > checkboxes and option buttons work, but they don't stick together.
> >
> > I can't make the boxes into command buttons, because I need to set the
> > bgcolor of each one to show its status. I suppose I could use cb's with
> > colored captions, but it's not as visually intuitive.
> >
> > Ideas?
> >
> > Armando[/color]
>
>
> Here is one possibilty to handle this sort of thing - this form has two
> box/label combinations:
>
> Private Sub HandleClick(strBox As String)
>
> Select Case strBox
>
> Case "One"
> MsgBox "Do this!"
>
> Case "Two"
> MsgBox "Do that!"
>
> Case Else
> MsgBox "Do what?"
>
> End Select
>
> End Sub
>
> Private Sub boxOne_Click()
> HandleClick "One"
> End Sub
>
> Private Sub lblOne_Click()
> HandleClick "One"
> End Sub
>
> Private Sub boxTwo_Click()
> HandleClick "Two"
> End Sub
>
> Private Sub lblTwo_Click()
> HandleClick "Two"
> End Sub
>
>[/color]
