for each new link label prosses to do

Question

i have this code

        For Each r As DataGridViewRow In DataGridView1.Rows
            If r.IsNewRow = True Then
                Return
            End If
            Dim new_label2 As New LinkLabel
            With r
                new_label2.Text = .Cells("Link").Value.ToString
                new_label2.Location = New Point(a, b)
                new_label2.BringToFront()
                Me.Controls.Add(new_label2)
                'a += 10
                b += new_label2.Height + 10
            End With
        Next

I have viable of DataGridView is false , I want this .

The all of new_label2 is links to open powerpoint show.

-------------------------------

How i can click on the first new_label2 and show me the powerpoint where the source of file is in link ???

and when click on the second new_label2 show me the powerpoint where the source of file is in link ???

Thaks ..

Shady,

Answer 1

Hi Shady,

You need to handle LinkLabel.LinkClicked Event, see 

http://msdn.microsoft.com/en-us/library/system.windows.forms.linklabel.linkclicked.aspx

http://msdn.microsoft.com/en-us/library/f6hya464.aspx

Best Regards,

---

Bob Wu
MSDN Community Support | Feedback to us
Develop and promote your apps in Windows Store
Please remember to mark the replies as answers if they help and unmark them if they provide no help.

Answer 2

Sorry , But i can't apply this because when i write ( new_label2 ) in code out the sub where code is

        For Each r As DataGridViewRow In DataGridView1.Rows
            If r.IsNewRow = True Then
                Return
            End If
            Dim new_label2 As New LinkLabel
            With r
                new_label2.Text = .Cells("Link").Value.ToString
                new_label2.Location = New Point(a, b)
                new_label2.BringToFront()
                Me.Controls.Add(new_label2)
                'a += 10
                b += new_label2.Height + 10
            End With
        Next

Show me is not right and don't work the application 

Thanks.

Shady,

Answer 3

Who can heeeeeeeeeeeelp me ??

Answer 4

Hi Shady,

Did you add LinkLabel.LinkClicked Event handler for each LinkLabel？

http://msdn.microsoft.com/en-us/library/6yyk8z93(v=vs.90).aspx

Does the event raised when you click the link？

Could you please show us your current code and current result?

Best Regards,

---

Bob Wu
MSDN Community Support | Feedback to us
Develop and promote your apps in Windows Store
Please remember to mark the replies as answers if they help and unmark them if they provide no help.

Answer 5

Thanks a lot , I did put the Event handler to my code .. but i have two problems for now
My first problem : my form when show me the new_label2 as label link .. i see 5 label links ..  but name of all label links is new_label2
and when i put in add handler you talk about this code

Process.Start("")

I don't know what are i will put between ""

My second problem : If i put in ""

dim o as string
o = new_label2.text

show me wrong with new_label2

and anther problem is new_label2 mean alllll of label links .. and when i click on the one of them open all of process is open power point files 

What's can i do now ??

Thanks ..
Shady ,

Answer 6

 Where's the answers ?!

Answer 7

No one can help me please ???

Answer 8

Hi Shady,

When you make a label, please add the event handler at the same time:

For Each r As DataGridViewRow In DataGridView1.Rows
            If r.IsNewRow = True Then
                Return
            End If
            Dim new_label2 As New LinkLabel
            With r
                new_label2.Text = .Cells("Link").Value.ToString
                new_label2.Location = New Point(a, b)
                new_label2.Links.add(0,.Cells("Link").Value.ToString.length,.Cells("Link").Value.ToString)
                new_label2.BringToFront()
                Addhandler new_label2.LinkClicked, AddressOf LableLinkClicked
                
                Me.Controls.Add(new_label2)
                'a += 10
                b += new_label2.Height + 10
            End With
        Next

In the handler, you can put the link in the process.start(""): http://msdn.microsoft.com/en-us/library/system.windows.forms.linklabellinkclickedeventargs.link.aspx  

And you need to set the links property in above code: http://msdn.microsoft.com/en-us/library/system.windows.forms.linklabel.links.aspx 

Best regards,

---

Mike Feng
MSDN Community Support | Feedback to us
Develop and promote your apps in Windows Store
Please remember to mark the replies as answers if they help and unmark them if they provide no help.

Answer 9

Thanks for your wonderfully answer .. but i have 2 problem 

First : I have a Error in

new_label2.Links.add(.Cells("Link").Value.ToString)

The error is " Value of type 'string' cannot be converted to ' System .Windows.Forms.LinkLabel.Link "
---------------------------

Second : I don't understand what i must do by this " And you need to set the links property in above code: http://msdn.microsoft.com/en-us/library/system.windows.forms.linklabel.links.aspx  "
I don't know where i must put it !!

And thanks again

Shady,,

Answer 10

Hi Shady,

My bad, please try this code:

new_label2.Links.add(0,.Cells("Link").Value.ToString.length,.Cells("Link").Value.ToString)

Best regards,

---

Mike Feng
MSDN Community Support | Feedback to us
Develop and promote your apps in Windows Store
Please remember to mark the replies as answers if they help and unmark them if they provide no help.

Answer 11

Thanks for your answer ,

But when i put this code

Public Sub EventHandler (ByVal Sender As Sstem.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

Process.Start(new_label2.text)

End Sub

It's say Error : " Name 'new_label2' is not declared "

Thanks Again

Shady,,

Answer 12

Hi Shady,

You cannot directly use the local variable in another function.

Please try this: 

Public Sub EventHandler (ByVal Sender As Sstem.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Dim ll As LinkLabel = DirectCast(sender, LinkLabel)
        Process.Start(ll.text)

End Sub

Actually, you need to use the link data like this:

Public Sub EventHandler (ByVal Sender As Sstem.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        ' Displays the appropriate link based on the value of the LinkData property of the Link object. 
        Dim target As String = CType(e.Link.LinkData, String)

        ' If the value looks like a URL, navigate to it. 
        ' Otherwise, display it in a message box. 
        If (target IsNot Nothing) AndAlso (target.StartsWith("www")) Then
            System.Diagnostics.Process.Start(target)
        Else
            MessageBox.Show(("Item clicked: " + target))
        End If 

End Sub

I hope this is clear.

Best regards,

---

Mike Feng
MSDN Community Support | Feedback to us
Develop and promote your apps in Windows Store
Please remember to mark the replies as answers if they help and unmark them if they provide no help.

Answer 13

Oh my god .. It's Worked .. Thank you very much

Mark As Answer

Thanks again

Shady,,

Answer 14

So .. I want now to remove the new_label2 from form .. When form is running

Shady ,,

Answer 15

So .. I want now to remove the new_label2 from form .. When form is running

Shady ,,

Hi Shady,

So you encounter a new issue? If so, make a new thread for this question.

Thanks.

Best regards,

---

Mike Feng
MSDN Community Support | Feedback to us
Develop and promote your apps in Windows Store
Please remember to mark the replies as answers if they help and unmark them if they provide no help.