以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  能在窗口内执行的代码确不能写成函数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84586)
--  作者：凡夫俗子
--  发布时间：2016/5/5 12:47:00
--  能在窗口内执行的代码确不能写成函数

dim e as object = args(0)
dim ctl as object

For i As Integer = 0 To SelectCtlNames.count - 1
    ctl = e.Form.Controls(SelectCtlNames(i))
    ctl.BackColor = Color.Transparent
Next
SelectCtlNames.Clear

以上代码主体 在窗口的 按钮事件中可以正常执行
但如果写到 函数中去，则不行提示

---------------------------
错误
---------------------------
编译错误:类型“T”的值无法转换为“String”。



错误代码：ctl = e.Form.Controls(SelectCtlNames(i))
---------------------------
确定   
---------------------------
--  作者：大红袍
--  发布时间：2016/5/5 13:08:00
--  

Dim e As object = args(0)
Dim ctl As object
\'Dim selectCtlNames As new List(Of String)

For i As Integer = 0 To SelectCtlNames.count - 1
    ctl = e.Form.Controls(cstr(SelectCtlNames(i)))
    ctl.BackColor = Color.Transparent
Next
SelectCtlNames.Clear