具体解释一下这段程序的作用
If Label1.Top < -Label1.Height ThenLabel1.Top = Form1.Height
Else
Label1.Top = Label1.Top - 100
End If --------------------编程问答-------------------- If Label1.Top < -Label1.Height Then ?
你确定没笔误么?如果正数小于负数??? --------------------编程问答-------------------- up --------------------编程问答--------------------
Label1.Top又不一定是负数它可以溜到它的父容器外...比如窗体标题栏以上 --------------------编程问答-------------------- 晕innnnng
引用 1 楼 slowgrace 的回复:
If Label1.Top < -Label1.Height Then ?
你确定没笔误么?如果正数小于负数???
Label1.Top又不一定是正数,它可以溜到它的父容器外...比如跑到窗体标题栏以上的某个位置 --------------------编程问答-------------------- 你移动Label1的位置干嘛?如是字幕飞屏,这个方法不好。 --------------------编程问答-------------------- 如是字幕飞屏,Label控件多了你会看见每行消息不整齐的移动,用内存DC来实现吧
补充:VB , 基础类