如何在VB.NET中将标签从1重命名为50？ [英] How to rename labels from 1 to 50 in VB.NET ?

问题描述

 公开  Sub 重命名（ ByVal  k 作为 整数）
  Dim  lbl  As 标签
  Dim  j 作为 整数 
 对于 j = k 要  50  
 lbl =控件（ 标签 + j.ToString（））
 lbl.Text =（j  -   1  ）.ToString（）
 下一步 
 结束  Sub  

我想更改标签文字从标签k到标签50.将给出k作为输入。我尝试了上面的代码。它在其他项目中工作。但是在我目前的项目中，它是
无法正常工作。是什么其他方式重命名VB.NET中的标签？

解决方案

尝试使用 Page.FindControl [ ^ ]方法。

尝试使用 Page.FindControl（Label） + j.ToString（））



查看下面的代码....

受保护的子Page_Load（ByVal发送者为对象，ByVal e As System.EventArgs）处理Me.Load 
 
 Dim i As Integer =  1  
重命名（i）
 
结束次级
公共子重命名（ByVal k As整数）
 
 Dim lbl As Label 
 Dim j As Integer 
 for j = k To  11  
 lbl = Page.FindControl（  Label + j.ToString（））
 lbl.Text =（j  -   1 ）。ToString（） 
下一个
结束子
 

 System.Windows.Forms.Control.CheckForIllegalCrossThreadCalls = False 

Public Sub Rename(ByVal k As Integer)
        Dim lbl As Label
        Dim j As Integer
        For j = k To 50
            lbl = Controls("Label" + j.ToString())
            lbl.Text = (j - 1).ToString()
            Next
    End Sub

I want to change the label text from label k to label 50. k will be given as input. I tried the above code. it's working in other project. but in my current project it's
not working. is thr any other way to rename labels in VB.NET?

解决方案

Try using the Page.FindControl[^] method.

Try to use Page.FindControl("Label" + j.ToString())

look at the code below....

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

       Dim i As Integer = 1
       Rename(i)

   End Sub
   Public Sub Rename(ByVal k As Integer)

 Dim lbl As Label
       Dim j As Integer
       For j = k To 11
           lbl = Page.FindControl("Label" + j.ToString())
           lbl.Text = (j - 1).ToString()
       Next
   End Sub

System.Windows.Forms.Control.CheckForIllegalCrossThreadCalls = False

这篇关于如何在VB.NET中将标签从1重命名为50？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！