如何在VB.NET中将标签从1重命名为50？

本文介绍了如何在VB.NET中将标签从1重命名为50？的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

公开 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