读书人

Label 隐藏一部分(不能覆盖图片),该

发布时间: 2012-03-03 15:33:03 作者: rapoo

Label 隐藏一部分(不能覆盖图片)
有一个有背景图片的窗体 上面放了Label1 Label2
Label1在窗体左边 Label2在窗体右边
Label2 会慢慢滚动到 左边 ,Label1在左边不动
实现
Label2到左边的部分要覆盖掉(即不显示左边的部分)(且背景图片和Label1不能被覆盖要显示) (直接滚动 Label1,Label2 2个会重合)

[解决办法]
不太明白楼主的意思,你的意思是Label1和Label2的Top=0,Height=窗体的高,惟一的就是Width不是窗体的ScaleWidth?

如果是,那向左移动Label2(修改Left属性),当Label2.Left=Label1.Left+Label1.Width就修改Label2的Width,移动一点,减小一点,知道Width=0

[解决办法]

VB code
Private Sub Form_Load()    Picture1.AutoRedraw = True    Picture1.Appearance = 0    Picture1.BorderStyle = 0    Label1.BackStyle = 0    Label2.BackStyle = 0    Label2.Move Me.Width - Label2.Width, 1000    Picture1.Move 0, Label2.Top, Label1.Width, Label1.Height    Set Label1.Container = Picture1    Label1.Move 0, 0    Picture1.PaintPicture Me.Picture, 0, 0, Picture1.Width, Picture1.Height, 0, Picture1.Top, Picture1.Width, Picture1.Height    Picture1.ZOrder 0    Timer1.Interval = 50End SubPrivate Sub Timer1_Timer()   If Label2.Left > 0 Then Label2.Left = Label2.Left - 50End Sub 

读书人网 >VB

热点推荐