Problems Dynamically creating a LinkLabel

[Joshua Ellul]

Hi There,

I'm trying to create a link label dynmically. The problems I'm having is
the following:
1. The LinkLabel is created without the underline
2. The click event is not being raised...

Here's my code:

Dim newLink As New LinkLabel()
With newLink
pnlTitle.Contro ls.AddRange(New System.Windows. Forms.Control() {newLink})
..Left = 100
..Top = 100
..AutoSize = True
..LinkBehavior = LinkBehavior.Al waysUnderline
..ActiveLinkCol or = System.Drawing. Color.Red
..Font = FontConv.Conver tFromString("Ve rdana, 14.25pt")
..Text = Desc
AddHandler .Click, AddressOf Me.Links_LinkCl icked
AddHandler .MouseMove, AddressOf Me.Links_MM
End With

and the subs:
Private Sub Links_LinkClick ed(ByVal sender As Object, ByVal e As
System.EventArg s)
MessageBox.Show ("Link Clicked")
End Sub

Any Ideas?

Josh

[Herfried K. Wagner [MVP]]

* "Joshua Ellul" <je****@onvol.n et> scripsit:

I'm trying to create a link label dynmically. The problems I'm having is
the following:
1. The LinkLabel is created without the underline
2. The click event is not being raised...

Here's my code:

Dim newLink As New LinkLabel()
With newLink
pnlTitle.Contro ls.AddRange(New System.Windows. Forms.Control() {newLink})
.Left = 100
.Top = 100
.AutoSize = True
.LinkBehavior = LinkBehavior.Al waysUnderline
.ActiveLinkColo r = System.Drawing. Color.Red
.Font = FontConv.Conver tFromString("Ve rdana, 14.25pt")
.Text = Desc
AddHandler .Click, AddressOf Me.Links_LinkCl icked
AddHandler .MouseMove, AddressOf Me.Links_MM
End With

and the subs:
Private Sub Links_LinkClick ed(ByVal sender As Object, ByVal e As
System.EventArg s)
MessageBox.Show ("Link Clicked")
End Sub

Any Ideas?

I am not able to repro problem 2 with the code listed above. I use .NET 1.0,
Windows XP Professional.

For your 1st gestion:

\\\
..Font = New Font(Me.Font, FontStyle.Under line)
///

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>