锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net百叶窗效果 js百叶窗效果

IT技术效果

关于用VB做文字动画效果的几个问题?。。。?/h2>用LABEL来做移动就是存在闪动的问题 ， 你可以试试加个Frame1试试看，或者用picturebox看看！
实现百叶窗等特效如果不会API可以参考遮盖层的概念！
HI发不上去，放这里了，一个百叶窗的效果，自己存为FRM文件就行
VERSION 5.00
Begin VB.Form Form1
Caption="Form1"
ClientHeight=2250
ClientLeft=60
ClientTop=450
ClientWidth=5295
LinkTopic="Form1"
ScaleHeight=2250
ScaleWidth=5295
StartUpPosition =3'窗口缺省
Begin VB.PictureBox Picture1
Appearance=0'Flat
BackColor=H8000000D
ForeColor=H80000008
Height=1095
Index=5
Left=3960
ScaleHeight=1065
ScaleWidth=705
TabIndex=7
Top=360
Width=735
End
Begin VB.PictureBox Picture1
Appearance=0'Flat
BackColor=H8000000D
ForeColor=H80000008
Height=1095
Index=4
Left=3240
ScaleHeight=1065
ScaleWidth=705
TabIndex=6
Top=360
Width=735
End
Begin VB.PictureBox Picture1
Appearance=0'Flat
BackColor=H8000000D
ForeColor=H80000008
Height=1095
Index=3
Left=2520
ScaleHeight=1065
ScaleWidth=705
TabIndex=5
【vb.net百叶窗效果 js百叶窗效果】Top=360
Width=735
End
Begin VB.PictureBox Picture1
Appearance=0'Flat
BackColor=H8000000D
ForeColor=H80000008
Height=1095
Index=2
Left=1800
ScaleHeight=1065
ScaleWidth=705
TabIndex=4
Top=360
Width=735
End
Begin VB.PictureBox Picture1
Appearance=0'Flat
BackColor=H8000000D
ForeColor=H80000008
Height=1095
Index=1
Left=1080
ScaleHeight=1065
ScaleWidth=705
TabIndex=3
Top=360
Width=735
End
Begin VB.PictureBox Picture1
Appearance=0'Flat
BackColor=H8000000D
ForeColor=H80000008
Height=1095
Index=0
Left=360
ScaleHeight=1065
ScaleWidth=705
TabIndex=2
Top=360
Width=735
End
Begin VB.CommandButton Command1
Caption="Command1"
Height=495
Left=1440
TabIndex=1
Top=1560
Width=1815
End
Begin VB.TextBox Text1
Height=1095
Left=360
TabIndex=0
Text="Text1"
Top=360
Width=4335
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
wid = Int(Picture1(0).Width / 50)
For i = 1 To 50
For n = 0 To Picture1.Count - 1
Picture1(n).Width = Picture1(n).Width - wid
Next n
Next i
For n = 0 To Picture1.Count - 1
Picture1(n).Visible = False
Next n
End Sub
Private Sub form_load()
For i = 0 To Picture1.Count - 1
Picture1(i).Width = Text1.Width / (Picture1.Count)
Picture1(i).Height = Text1.Height
Picture1(i).Top = Text1.Top
Picture1(i).Left = Text1.Left + i * Text1.Width / 6
Picture1(i).BackColor = H8000000D
Next i
End Sub
百叶窗有哪些特点？隔音百叶窗有隔音效果吗？百叶窗隔断是很多家庭都会选择的隔断种类,既能够保证隔断的效果,而且能够保持光线的通透性 。越来越多的家庭想选择百叶窗,但又对百叶窗的了解很少,例如百叶窗有哪些特点呢?百叶窗有隔音效果吗?下面我就为大家来解答百叶窗有哪些特点及百叶窗有隔音效果吗 。
百叶窗隔断是很多家庭都会选择的隔断种类,既能够保证隔断的效果,而且能够保持光线的通透性 。越来越多的家庭想选择百叶窗,但又对百叶窗的了解很少,例如百叶窗有哪些特点呢?百叶窗有隔音效果吗?下面我就为大家来解答百叶窗有哪些特点及百叶窗有隔音效果吗 。

推荐阅读


上一篇：怎么自己配电脑硬盘启动，怎么自己组装硬盘

下一篇：gis软件一直显示平移图表怎么办，gis图形不显示