| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 538 人关注过本帖
标题:[求助]请问这段函数过程的红色字段是什么解释的意思?
只看楼主 加入收藏
寻找
Rank: 2
等 级:论坛游民
帖 子:132
专家分:19
注 册:2007-3-2
结帖率:100%
收藏
 问题点数:0 回复次数:1 
[求助]请问这段函数过程的红色字段是什么解释的意思?

Function GetLabelCount() As Integer
Dim i As Integer
Dim c As Integer
Dim L As Object

Set L = Me.Controls("Label1")
For i = 1 To 10
If L.Item(i).Caption <> vbNullString Then
c = c + 1
End If
Next
Set L = Nothing
GetLabelCount = c

End Function

请问这段函数过程的红色字段是什么解释的意思?请帮忙解答!谢谢!

搜索更多相关主题的帖子: 字段 函数 解释 
2007-06-04 21:24
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 

Function GetLabelCount() As Integer 'GetLabelCount是函数名字
Dim i As Integer
Dim c As Integer
Dim L As Object

Set L = Me.Controls("Label1")
For i = 1 To 10
If L.Item(i).Caption <> vbNullString Then
c = c + 1
End If
Next
Set L = Nothing '释放L对象……
GetLabelCount = c '将结果返回给GetLabelCount名字,调用时会得到它
End Function


快上课了……
2007-06-05 14:53
快速回复:[求助]请问这段函数过程的红色字段是什么解释的意思?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021732 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved