我想得到一个闪屏效果，怎么实现？

Question

这个比较简单，你可以用APP WIZARD来创建一个有SPLASH FORM的程序，然后你可以参考它。

Answer 1

vc的代码和vb有很大不同，有些事件或是消息，用vb根本不可能实现

Answer 2

呵呵
You can using API --> FlashWindow

Answer 3

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Const Invert = 1Private Sub Timer1_Timer()
    FlashWindow Me.hwnd, Invert
End Sub

Answer 4

上面好像不是想要的结果
其实可以这样
做一个窗口frmMsg,上面放一个标签Label1Load frmMsg
frmMsg.Label1.Caption="正在登录，请等待....."
frmMsg.Show
....你的初始化过程
UnLoad frmMsg

Answer 5

其实我觉得用一个进度条还好！？
FlashWindow 是标题栏的闪烁！
tms320dsp()的好方法你敢试吗？呵呵
也可以在timer控件里不断地改变窗体的背景颜色。