（狂急)闪现窗体的做法？

Question

请问高手，闪现窗体怎么做啊，写详细一点好啊，我基础差，谢谢！

Answer 1

设置form1.left=8000
    form1.top=-3000
加入timer控件
Private Sub Timer1_Timer()
   Dim x As Integer, y As Integer
   x = 500: y = 600
   If Form1.Left > 3000 Then
      Form1.Left = Form1.Left - x
   End If
    If Form1.Top < 2000 Then
       Form1.Top = Form1.Top + y
    End If
End Sub

Answer 2

如果你的程序很大的话，在主窗体的Form_Load过程(或模块的Main过程)的开始将闪现窗体显示出来，载入过程结束后将此窗体关掉就可以了。如果程序比较小的话，就需要用Timer控件控制闪现窗体的出现时间。

Answer 3

Option ExplicitPrivate Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End SubPrivate Sub Form_Load()
  frmSplash.Picture = LoadResPicture(116, vbResBitmap)
  Load Form1
  Form1.Show
End SubPrivate Sub Form_Click()
    Unload Me
End SubPrivate Sub Form_Paint()
 With frmSplash
  .ForeColor = vbRed
  .CurrentX = 2000
  .CurrentY = 200
 End With
 Print "Media Player"
 With frmSplash
  .ForeColor = vbBlue
  .FontName = "system"
  .FontSize = 10
  .CurrentX = 2700
  .CurrentY = 840
 End With
 Print "Version " & App.Major & "."; App.Minor & App.Revision
 With frmSplash
  .ForeColor = vbBlack
  .FontName = "MS Serif"
  .FontSize = 8
  .CurrentX = 1680
  .CurrentY = 1700
 End With
 Print "Distributed by:"
 frmSplash.CurrentX = 1680
 Print "Seven Wolf Studio HeBei China"
End SubPrivate Sub Timer1_Timer()
 DoEvents
 Unload Me
End Sub
---------------------------------
timer1设置为5秒

Answer 4

看我的吧！窗体上放一个Check，名叫“开始闪”，呵呵，再放一个Timer，值为250，代码如下：Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As LongPrivate Sub Check1_Click()
    Dim i
    If Check1.Value = 0 Then
        Timer1.Enabled = False
        i = FlashWindow(Form1.hwnd, 0)
    Else
        Timer1.Enabled = True
    End If
End SubPrivate Sub Timer1_Timer()
    Dim i
    i = FlashWindow(Form1.hwnd, 1)
End Sub这下你们满意了吧！