Question

vb学生管理系统

怎么做这个开头的那个
http://cachefile21.rayfile.com/zhcn/download/31ad93e8de98cc4312e895a8d5b00fdc/Smis.exe

Answer 1

【支持延时和设置动画速度】
请按照下面方法完成这个窗体：

1.建立一个空白窗体
2.设置窗体的BorderStyle=0 (无标题)
3.设置窗体的StartupPosition=2（屏幕中心）
4.建立一个图片框，名为PicSrc，图片内容为你要动画显示的那个图片（位置和大小任意）
6.复制以下代码

Dim StopAni As Boolean

Private Sub Form_Load()
On Error Resume Next

Const DelaySec As Integer = 2 '在这里设置动画完成后的延迟
Const Speed As Integer = 1 '在这里可以设置动画速度 (越大越快, 一般1~5, 整数)

Dim t As Long

Dim i As Long, j As Long
Dim fx As Long, fy As Long

'设置图片框
picSrc.ScaleMode = 3: picSrc.Visible = False: picSrc.AutoSize = True

'设置窗体
Me.ScaleMode = 3
Me.Width = picSrc.Width * Screen.TwipsPerPixelX: Me.Height = picSrc.Height * Screen.TwipsPerPixelY '设置窗体长宽

'设置终点（你可以自己修改位置）
fx = Me.ScaleWidth - Speed
fy = Me.ScaleHeight / 2

Me.Show '先显示窗体出来

For i = 1 To picSrc.Width + Speed Step Speed
If StopAni = True Then Exit For

Me.PaintPicture picSrc.Picture, 0, 0, i, picSrc.Height, 0, 0, i '绘制左面的图片
If i < picSrc.Width Then
For j = 1 To picSrc.Height
If StopAni = True Then Exit For

Me.Line (i + 1, j)-(fx, fy), Me.Point(i - 1, j - 1) '绘制右面的线条
Next
End If

DoEvents '给时间重画
Next

t = Timer
Do Until CLng(Timer) - t >= DelaySec Or StopAni = True: DoEvents: Loop '延迟

Unload Me
Load Form2 '这里为动画显示完成后显示的窗体
Form2.Show '这里为动画显示完成后显示的窗体
End Sub

Private Sub Form_Click()
StopAni = True
End Sub

Answer 2

你贴出来的这个是权限窗体的画面还是背景图片呀。
你的这个链接我也打不开的呀。
我想看看能不能帮你做一个。