首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-03-03 
Label 隐藏一部分(不能覆盖图片)有一个有背景图片的窗体上面放了Label1Label2Label1在窗体左边Label2在窗

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 

热点排行