能在窗口内执行的代码确不能写成函数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 能在窗口内执行的代码确不能写成函数

共有2148人关注过本帖树形打印复制链接主题：能在窗口内执行的代码确不能写成函数

凡夫俗子

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00

能在窗口内执行的代码确不能写成函数 发帖心情

Post By：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

SelectCtlNames.Clear

以上代码主体在窗口的按钮事件中可以正常执行

但如果写到函数中去，则不行提示

---------------------------

错误

---------------------------

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

错误代码：ctl = e.Form.Controls(SelectCtlNames(i))

---------------------------

确定

---------------------------

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

下一主题 >> << 上一主题

主题：能在窗口内执行的代码确不能写成函数