custom button caption issue

[Knoxster]

I have created a custom button control with a caption property. When I am using this in another project, I am able to set the caption to whatever I want, and it shows correctly in design mode, however when I am running the project the button caption still shows as the default I have set on the control, how do I fix this?

Here is my code on the control:

Public Event Click()
Private lblCaption As String
 
Private Sub imgUp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgUp.Visible = False
    imgDown.Visible = True
End Sub
 
Private Sub imgUp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgUp.Visible = True
    imgDown.Visible = False
    RaiseEvent Click
End Sub
 
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgUp.Visible = False
    imgDown.Visible = True
End Sub
 
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    imgUp.Visible = True
    imgDown.Visible = False
    RaiseEvent Click
End Sub
 
Property Get Caption() As String
    lblCaption = UserControl.Label1.Caption
End Property
 
Property Let Caption(capt As String)
   UserControl.Label1.Caption = capt
   PropertyChanged "Caption"
End Property

[Knoxster]

anything? I still can't figure it out.

[techgnome]

ummm.... maybe I'm a bit thick, and it's been a while since I've done a proj like this, but don't you need to save the PropertyBag when setting the property and read the PropertyBag when initializing the control?

I guess the question is, is that ALL of the code in the control?

TG

[Knoxster]

yes that is all the code I have in the control. This is the first custom control I have made... please help.

[longwolf]

Here are some ideas

You're probably using labels with the background set to transparent.
If so, you the label event will only fire if they happen to be right on top of the text.
If they slide off the text before they release you may not get the mouse up event.

On the image events, the image will stop getting events as soon as you turn it invisible.
The image that's made visible may not get the mouse up event because it never got the mouse down event.

I could be wrong, but i think that's what's happening.

[Knoxster]

the clicking event is working properly. The issue is that when I change the caption (label) on the button, it shows the changes in Design mode, however when the system is compiled and running it no longer shows what I have changed the caption to, however the default. The onclick events still process.

Thanks