• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 239
  • Last Modified:

Use label click to open form, but need to have lable change somehow

I have several lables that when the user clicks , various forms appear.  However, there is a few second's delay and whie I know that the form will come up, an end-user won't.  Is there anyway to change teh appearance of a label when it is click so the user knows?  This is Access 2003 form.
0
ssmith94015
Asked:
ssmith94015
  • 3
1 Solution
 
Rey Obrero (Capricorn1)Commented:
you can use the click event of the label, and combination of property setting ,border width etc

an example is

private sub label0_click()

me.label0.specialeffect=2

end sub
0
 
Rey Obrero (Capricorn1)Commented:
better to use the mouse down and mouse up event to toggle the appearance of the label

Private Sub Label0_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label0.SpecialEffect = 2
End Sub

Private Sub Label0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label0.SpecialEffect = 0

End Sub
0
 
Rey Obrero (Capricorn1)Commented:
here are the values of the special effect property

The SpecialEffect property uses the following settings.

Setting Visual Basic Description
Flat 0 The object appears flat and has the system's default colors or custom colors that were set in Design view.
Raised 1 The object has a highlight on the top and left and a shadow on the bottom and right.
Sunken 2 The object has a shadow on the top and left and a highlight on the bottom and right.
Etched 3 The object has a sunken line surrounding the control.
Shadowed 4 The object has a shadow below and to the right of the control.
Chiseled 5 The object has a sunken line below the control.
0
 
ssmith94015Author Commented:
Cap, mouse down worked perfectly.  Thank you

Sandra
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now