Label_Paint event causing a continuous loop. Help needed.

[jcrouse]

I am having problems with a Label_Paint event causing a continuous loop.
Here is an explanation of the code.

I right click on a label and a context menu pops up.

I then select a menu item named "cmLSolidColor" . Here is its code:

Private Sub cmLSolidColor_C lick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmLSolidColor.C lick

LabelBackColorS olid()

End Sub

It calls a sub named "LabelBackColor Solid". Here is its code:

Private Sub LabelBackColorS olid()

If ColorDialog1.Sh owDialog() = DialogResult.OK Then

If bCMTrigger = True Then

If strCMTrigger = "lblP1JoyUp " Then

lblP1JoyUp.Back Color = (ColorDialog1.C olor)

ElseIf strCMTrigger = "lblP1JoyRi ght" Then

lblP1JoyRight.B ackColor = (ColorDialog1.C olor)

End if

End if

End if

End Sub

The problem is that the label I'm right clicking on has a Label_Paint event.
Execution goes to the line "LabelBackColor Solid" in the cmlSolidColor_C lick
event properly. Then It enters the Private Sub, "LabelBackColor Solid". When
it attempts to read the first line, "If ColorDialog1... " and launch the
dialog box, It immediately triggers the Label_Paint event and enter a
continuous loop. If I pause it in the debugger and then continue the loop
ends, the dialog box pops up, I pick my color, it applies it and all is
well. What can I do to stop this behavior. Is there a way to force it now to
do the Label_Paint event at this point, say, until the end of the
"LabelBackColor Solid" sub is complete?

Thank you,

John

[jcrouse]

No ideas here?

John

"jcrouse" <me> wrote in message
news:uO******** ******@TK2MSFTN GP11.phx.gbl...

I am having problems with a Label_Paint event causing a continuous loop.
Here is an explanation of the code.

I right click on a label and a context menu pops up.

I then select a menu item named "cmLSolidColor" . Here is its code:

Private Sub cmLSolidColor_C lick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmLSolidColor.C lick

LabelBackColorS olid()

End Sub

It calls a sub named "LabelBackColor Solid". Here is its code:

Private Sub LabelBackColorS olid()

If ColorDialog1.Sh owDialog() = DialogResult.OK Then

If bCMTrigger = True Then

If strCMTrigger = "lblP1JoyUp " Then

lblP1JoyUp.Back Color = (ColorDialog1.C olor)

ElseIf strCMTrigger = "lblP1JoyRi ght" Then

lblP1JoyRight.B ackColor = (ColorDialog1.C olor)

End if

End if

End if

End Sub

The problem is that the label I'm right clicking on has a Label_Paint event. Execution goes to the line "LabelBackColor Solid" in the cmlSolidColor_C lick event properly. Then It enters the Private Sub, "LabelBackColor Solid". When it attempts to read the first line, "If ColorDialog1... " and launch the
dialog box, It immediately triggers the Label_Paint event and enter a
continuous loop. If I pause it in the debugger and then continue the loop
ends, the dialog box pops up, I pick my color, it applies it and all is
well. What can I do to stop this behavior. Is there a way to force it now to do the Label_Paint event at this point, say, until the end of the
"LabelBackColor Solid" sub is complete?

Thank you,

John

[Greg Burns]

John,

What is the code in your label paint event? I cannot see how the continuous
loop is happening from what you posted.

do the Label_Paint event at this point, say, until the end of the
"LabelBackColor Solid" sub is complete?

This will temporarily turn off the paint event, but something seems amiss to
have to do this...

Private Sub LabelBackColorS olid()
RemoveHandler Label1.Paint, AddressOf Label1_Paint ' Stop handling
events.

If ColorDialog1.Sh owDialog() = DialogResult.OK Then
' do stuff
End If

AddHandler Label1.Paint, AddressOf Label1_Paint
End Sub

HTH,
Greg

"jcrouse" <me> wrote in message
news:e1******** ******@TK2MSFTN GP09.phx.gbl... No ideas here?

John

"jcrouse" <me> wrote in message
news:uO******** ******@TK2MSFTN GP11.phx.gbl...

[David Williams , VB.NET MVP]

Add a module level Boolean to state that you are in the
LabelBackColorS olid function. Check this variable in the Label_Paint
event. If set exit sub.

HTH

David

"jcrouse" <me> wrote in message
news:e1******** ******@TK2MSFTN GP09.phx.gbl:

No ideas here?

John

"jcrouse" <me> wrote in message
news:uO******** ******@TK2MSFTN GP11.phx.gbl...

I am having problems with a Label_Paint event causing a continuous
loop.
Here is an explanation of the code.

I right click on a label and a context menu pops up.

I then select a menu item named "cmLSolidColor" . Here is its code:

Private Sub cmLSolidColor_C lick(ByVal sender As System.Object, ByVal e
As
System.EventArg s) Handles cmLSolidColor.C lick

LabelBackColorS olid()

End Sub

It calls a sub named "LabelBackColor Solid". Here is its code:

Private Sub LabelBackColorS olid()

If ColorDialog1.Sh owDialog() = DialogResult.OK Then

If bCMTrigger = True Then

If strCMTrigger = "lblP1JoyUp " Then

lblP1JoyUp.Back Color = (ColorDialog1.C olor)

ElseIf strCMTrigger = "lblP1JoyRi ght" Then

lblP1JoyRight.B ackColor = (ColorDialog1.C olor)

End if

End if

End if

End Sub

The problem is that the label I'm right clicking on has a Label_Paint

event.

Execution goes to the line "LabelBackColor Solid" in the

cmlSolidColor_C lick

event properly. Then It enters the Private Sub, "LabelBackColor Solid".

When

it attempts to read the first line, "If ColorDialog1... " and launch
the
dialog box, It immediately triggers the Label_Paint event and enter a
continuous loop. If I pause it in the debugger and then continue the
loop
ends, the dialog box pops up, I pick my color, it applies it and all
is
well. What can I do to stop this behavior. Is there a way to force it
now

to

do the Label_Paint event at this point, say, until the end of the
"LabelBackColor Solid" sub is complete?

Thank you,

John

[jcrouse]

Here is the OnPaint code:

Private Sub lblP1JoyUp_Pain t(ByVal sender As Object, ByVal e As
System.Windows. Forms.PaintEven tArgs) Handles lblP1JoyUp.Pain t

If lblP1JoyUp.Visi ble = True Then

Dim myFontBrush As New SolidBrush(lblP 1JoyUp.ForeColo r)

If mnuHLabel.Check ed = True Then

If bFlipText = False Then

lblP1JoyUp.Text = ""

ElseIf bFlipText = True Then

Dim sf As New StringFormat

sf.Alignment = StringAlignment .Center

sf.LineAlignmen t = StringAlignment .Center

lblP1JoyUp.Text = ""
e.Graphics.Tran slateTransform( lblP1JoyUp.Clie ntSize.Width,
lblP1JoyUp.Clie ntSize.Height)

e.Graphics.Rota teTransform(180 )

e.Graphics.Draw String("P1JoyUp ", lblP1JoyUp.Font ,
myFontBrush, RectangleF.op_I mplicit(lblP1Jo yUp.ClientRecta ngle), sf)

End If

ElseIf mnuVLabel.Check ed = True Then

If bFlipText = False Then

Dim y As Integer =
CInt(e.Graphics .MeasureString( "lblP1JoyUp ", lblP1JoyUp.Font ).Width)

Dim x As Integer =
CInt(e.Graphics .MeasureString( "lblP1JoyUp ", lblP1JoyUp.Font ).Height)

lblP1JoyUp.Text = ""
e.Graphics.Tran slateTransform( (lblP1JoyUp.Cli entSize.Width - x) \ 2,
(lblP1JoyUp.Cli entSize.Height - y) \ 2)

e.Graphics.Rota teTransform(270 )

e.Graphics.Draw String("P1JoyUp ", lblP1JoyUp.Font ,
myFontBrush, -y, 0)

ElseIf bFlipText = True Then

Dim y As Integer =
CInt(e.Graphics .MeasureString( "lblP1JoyUp ", lblP1JoyUp.Font ).Width)

Dim x As Integer =
CInt(e.Graphics .MeasureString( "lblP1JoyUp ", lblP1JoyUp.Font ).Height)

lblP1JoyUp.Text = ""
e.Graphics.Tran slateTransform( (lblP1JoyUp.Cli entSize.Width + x) \ 2,
(lblP1JoyUp.Cli entSize.Height + y) \ 2)

e.Graphics.Rota teTransform(90)

e.Graphics.Draw String("P1JoyUp ", lblP1JoyUp.Font ,
myFontBrush, -y, 0)

End If

End If

myFontBrush.Dis pose()

End If

End Sub


"Greg Burns" <greg_burns@DON T_SPAM_ME_hotma il.com> wrote in message
news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

John,

What is the code in your label paint event? I cannot see how the continuous loop is happening from what you posted.

do the Label_Paint event at this point, say, until the end of the
"LabelBackColor Solid" sub is complete?

This will temporarily turn off the paint event, but something seems amiss

to have to do this...

Private Sub LabelBackColorS olid()
RemoveHandler Label1.Paint, AddressOf Label1_Paint ' Stop handling
events.

If ColorDialog1.Sh owDialog() = DialogResult.OK Then
' do stuff
End If

AddHandler Label1.Paint, AddressOf Label1_Paint
End Sub

HTH,
Greg

"jcrouse" <me> wrote in message
news:e1******** ******@TK2MSFTN GP09.phx.gbl...

No ideas here?

John

"jcrouse" <me> wrote in message
news:uO******** ******@TK2MSFTN GP11.phx.gbl...

[jcrouse]

But, it will keep looping back into the OnPaint sub and then out again.

John

"David Williams , VB.NET MVP" <da************ ********@earthl ink.net> wrote
in message news:e8******** ******@TK2MSFTN GP11.phx.gbl...

Add a module level Boolean to state that you are in the
LabelBackColorS olid function. Check this variable in the Label_Paint
event. If set exit sub.

HTH

David

"jcrouse" <me> wrote in message
news:e1******** ******@TK2MSFTN GP09.phx.gbl:

No ideas here?

John

"jcrouse" <me> wrote in message
news:uO******** ******@TK2MSFTN GP11.phx.gbl...

I am having problems with a Label_Paint event causing a continuous
loop.
Here is an explanation of the code.

I right click on a label and a context menu pops up.

I then select a menu item named "cmLSolidColor" . Here is its code:

Private Sub cmLSolidColor_C lick(ByVal sender As System.Object, ByVal e
As
System.EventArg s) Handles cmLSolidColor.C lick

LabelBackColorS olid()

End Sub

It calls a sub named "LabelBackColor Solid". Here is its code:

Private Sub LabelBackColorS olid()

If ColorDialog1.Sh owDialog() = DialogResult.OK Then

If bCMTrigger = True Then

If strCMTrigger = "lblP1JoyUp " Then

lblP1JoyUp.Back Color = (ColorDialog1.C olor)

ElseIf strCMTrigger = "lblP1JoyRi ght" Then

lblP1JoyRight.B ackColor = (ColorDialog1.C olor)

End if

End if

End if

End Sub

The problem is that the label I'm right clicking on has a Label_Paint

event.

Execution goes to the line "LabelBackColor Solid" in the

cmlSolidColor_C lick

event properly. Then It enters the Private Sub, "LabelBackColor Solid".

When

it attempts to read the first line, "If ColorDialog1... " and launch
the
dialog box, It immediately triggers the Label_Paint event and enter a
continuous loop. If I pause it in the debugger and then continue the
loop
ends, the dialog box pops up, I pick my color, it applies it and all
is
well. What can I do to stop this behavior. Is there a way to force it
now

to

do the Label_Paint event at this point, say, until the end of the
"LabelBackColor Solid" sub is complete?

Thank you,

John

[jcrouse]

Resolved!

"jcrouse" <me> wrote in message
news:uO******** ******@TK2MSFTN GP11.phx.gbl...

I am having problems with a Label_Paint event causing a continuous loop.
Here is an explanation of the code.

I right click on a label and a context menu pops up.

I then select a menu item named "cmLSolidColor" . Here is its code:

Private Sub cmLSolidColor_C lick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmLSolidColor.C lick

LabelBackColorS olid()

End Sub

It calls a sub named "LabelBackColor Solid". Here is its code:

Private Sub LabelBackColorS olid()

If ColorDialog1.Sh owDialog() = DialogResult.OK Then

If bCMTrigger = True Then

If strCMTrigger = "lblP1JoyUp " Then

lblP1JoyUp.Back Color = (ColorDialog1.C olor)

ElseIf strCMTrigger = "lblP1JoyRi ght" Then

lblP1JoyRight.B ackColor = (ColorDialog1.C olor)

End if

End if

End if

End Sub

The problem is that the label I'm right clicking on has a Label_Paint event. Execution goes to the line "LabelBackColor Solid" in the cmlSolidColor_C lick event properly. Then It enters the Private Sub, "LabelBackColor Solid". When it attempts to read the first line, "If ColorDialog1... " and launch the
dialog box, It immediately triggers the Label_Paint event and enter a
continuous loop. If I pause it in the debugger and then continue the loop
ends, the dialog box pops up, I pick my color, it applies it and all is
well. What can I do to stop this behavior. Is there a way to force it now to do the Label_Paint event at this point, say, until the end of the
"LabelBackColor Solid" sub is complete?

Thank you,

John