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
[解决办法]
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