Quantcast
Channel: VBForums
Viewing all articles
Browse latest Browse all 15804

LinkLabel formatting

$
0
0
Trying to format a LinkLabel as shown in the attached image and code.

As you can see it does not display the 7,8 and 9. Any suggestions would be appreciated.Name:  Sud1.png
Views: 33
Size:  122.1 KB

VB Code:
Code:

Private Sub Set_num(k)
     
        Dim sel

        sel = Me.Controls("p" & k)
             
        Dim num_test As New LinkLabel

   
        num_test.Text = "1  2  3" & vbCrLf &
        num_test.Text + "4  5  6" & vbCrLf &
        num_test.Text + "7  8  9"
        num_test.Links.Add(0, 1, "1")
        num_test.Links.Add(3, 1, "2")
        num_test.Links.Add(6, 1, "3")
        num_test.Links.Add(9, 1, "4")
        num_test.Links.Add(12, 1, "5")
        num_test.Links.Add(15, 1, "6")
        num_test.Links.Add(18, 1, "7")
        num_test.Links.Add(21, 1, "8")
        num_test.Links.Add(24, 1, "9")
       
        sel.Controls.Add(num_test)
   
        num_test.AutoSize = False
        num_test.LinkBehavior = System.Windows.Forms.LinkBehavior.NeverUnderline
        AddHandler num_test.LinkClicked, AddressOf num_test_LinkClicked

End Sub

Attached Images
 

Viewing all articles
Browse latest Browse all 15804

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>