Question

VB怎么让标签（label）离开窗体后就弹出msgbox？

补充：就是说我这个label是会走动的嘛，然后当它走到窗体外（就是说我们看不到label的时候）就弹出一个msgbox（信息框），谢谢！

Answer 1

load 里 获取窗体的长宽，然后在timer里判断 lable的top和left是不是大于窗体的长宽，如果大了说明不在窗体内了，就msgbox

追问

写下代码我看看可以吗？谢谢

追答

dim form_width as integer
dim form_height as integer
dim l_top as integer
dim l_left as integer

sub form_load()
form_width = me.width

form_height = me.height

end sub

sub timer1_time()
l_top = label1.top

l_left = label1.left

if l_top > form_height or l_left > form_width then

msgbox "OK"

end if

end sub

追问

非常感谢

Answer 2

加一个Timer，在Timer中，一直判断label的Top,Left两个值

追问

没用。label的宽度是会变大变小的

追答

窗体宽度-label宽度-label左边距