[ActiveX Control] Textbox Height

I'm making an ActiveX Control that can display messages in Balloons (like Windows XP-style), to act a an alert method better than a Tooltip but not as formal as a messagebox.

The balloon is automatically sized using the caption's AutoSize and WordWrap property. This works fine when you let the balloon pop up once. If you do it twice, however, the code doesn't work anymore. If you download the test program you'll see what I mean. Can anyone help me with this? Thanks. :)

Got example code to use with it??
I'm trying:

Balloon1.ShowMessage Text1.Text, Exclamation, "Text1"

Yes, sample code's attached. You should open Group1 instead of the control. Then run Project2. The problem is only encountered with text that needs at least two lines. :)

Quote:

---

Originally posted by TheVader
Yes, sample code's attached. You should open Group1 instead of the control. Then run Project2. The problem is only encountered with text that needs at least two lines. :)

---

Well D'oh!

Brb.

:afrog: Can you check it out again, please? ;)

Anyone else care to take a look? :(

Do you want to do this for fun or cause you can't find other code to show a balloon tooltip?

For fun and practicing. :) And I don't like to use controls I haven't written myself.

This can't bee too difficult... :S The tip is showing fine once, so mainly only the properties should have to be reset to the default values and it would work over and over... :confused:

Quote:

---

Originally posted by TheVader
For fun and practicing. :) And I don't like to use controls I haven't written myself.

This can't bee too difficult... :S The tip is showing fine once, so mainly only the properties should have to be reset to the default values and it would work over and over... :confused:

---

I didn't look at it too much, but I think there's a problem with the way you're setting the autosize/wordwrap properties at different points in your code.

Is it necessary to do it in the HideMessage method??

Also, I think this needs a look at:

VB Code:

Private Sub UserControl_Resize()
 
shpBalloon.Width = UserControl.Width
shpBalloon.Height = UserControl.Height
lblCaption.Width = UserControl.Width - 650
lblCaption.Height = UserControl.Height - 240
 
End Sub

Because if you play around with the autosize values, the 3rd line above causes it to shrink.

But as I said, I didn't take much of a look at it. SOz.

Thanks, it was indeed the resizing. In the HideMessage sub I added some code to reset the control to its original size. That did it. :)