标题:[求助]请问这段函数过程的红色字段是什么解释的意思?
只看楼主
寻找
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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-144920-1-1.html




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

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