以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  动态赋值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=178046)

--  作者:rongping
--  发布时间:2022/6/15 21:28:00
--  动态赋值
您好!版主,假如我在窗口中有5个Label控件,分别命名为L1,L2,L3,L4,L5,这5个Label分别又在5个panel中,我想点击一下按钮,用一个集合通过循环赋值,下面的代码报错什么原因?
Dim L As WinForm.Label
Dim strs2() As String = {"博士", "力士", "青龙", "小耗", "将军"}
For i As Integer = 0 To strs2.Count - 1
    L= e.Form.Controls("L" & (i + 1))
    L.Text = strs2(i)
    L.ForeColor = Clr
Next

--  作者:昱飞哥
--  发布时间:2022/6/15 22:47:00
--  
 L= e.Form.Controls("L" & i + 1)
--  作者:有点蓝
--  发布时间:2022/6/16 8:55:00
--  
报什么错?
--  作者:rongping
--  发布时间:2022/6/16 15:57:00
--  
不存在该控件


--  作者:rongping
--  发布时间:2022/6/16 15:58:00
--  
以下是引用有点蓝在2022/6/16 8:55:00的发言:
报什么错?是不是放在panel中的原因?


--  作者:有点蓝
--  发布时间:2022/6/16 16:06:00
--  
和放在哪里没有关系。截图看看窗口设计器控件的名称
--  作者:rongping
--  发布时间:2022/6/16 17:10:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:5.jpg
图片点击可在新窗口打开查看

以下是引用有点蓝在2022/6/16 16:06:00的发言:
和放在哪里没有关系。截图看看窗口设计器控件的名称


图片点击可在新窗口打开查看此主题相关图片如下:屏幕截图 2022-06-16 162145.jpg
图片点击可在新窗口打开查看

代码:


Dim strs() As String = {"太岁", "晦气", "丧门", "贯索", "官符", "小耗", "大耗", "龙德", "白虎", "天德", "弔客", "病符"}


Dim t As WinForm.Label
For i As Integer = 0 To strs.Length - 1
    t = e.Form.Controls("t" & i + 1)
    t.Text = strs(i)
    t.ForeColor = Clr
Next

--  作者:有点蓝
--  发布时间:2022/6/16 17:14:00
--  
代码放在哪里哪个事件的?
--  作者:rongping
--  发布时间:2022/6/16 19:26:00
--  
以下是引用有点蓝在2022/6/16 17:14:00的发言:
代码放在哪里哪个事件的?
记录按钮里面的


--  作者:有点蓝
--  发布时间:2022/6/16 20:39:00
--  
请上传实例说明