48.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 25 行

取得控件绝对Top值 
Public Function AbsoluteTop(ctlContl As Control) As Single
Dim wrkContl As Control 
Dim wrkTopPos As Single 

On Error GoTo AbsoluteTopError
'初始
Set wrkContl = ctlContl
wrkTopPos = 0
'循环
Do
If (wrkContl.Container.Name = ctlContl.Parent.Name) Then Exit Do
wrkTopPos = wrkTopPos + wrkContl.Top ' 计算位置
Set wrkContl = wrkContl.Container ' 下个控件
Loop

AbsoluteTop = wrkTopPos + ctlContl.Parent.Top
Exit Function

AbsoluteTopError:
AbsoluteTop = ctlContl.Top + ctlContl.Parent.Top
Exit Function
End Function