我的封面如何一闪就没了?

Question

SetWindowPos frmcover.hwnd, HWND_TOPMOST, 0, 0, 0, 0, 1

Answer 1

为什么是1呢,请指点迷津?
另外,你的E_mail是多少,我发一个程序给你看一看.内容主要就是我想在Form_Load事件中实现图象分几块出现,但是不行.如果我先加载一个Form,再在上放一个按钮,把Form_Load事件的内容放在按钮事件中,则单击按钮则可.Help me?

Answer 2

Const SWP_NOMOVE = &H1Const SWP_NOSIZE = &H2

Answer 3

给我你的E_mail,我给你看一样东西!

Answer 4

还有另外一个问题,当我觉得时间太长,想人工干预.于是我在封面frmcover表单中写了如下一段代码
Sub form_load()
  unload me
  frmMain.show
  frmcover.timer1.enable=false
ENd sub
但结果是不起作用, Why?是否是用到这个SetWindowPos的原因?

Answer 5

可能是setwindowpos设置得不好，主窗体将splash窗体挡住了。

Answer 6

在画完一次Splash窗体时调用一次Doevents试试。

Answer 7

怎么那么麻烦，用以下方法
sub main()
    frmcover.show
    '做其他初始化工作
    frmcover.unload
    frmmain.show
end sub

Answer 8

用sub main启动的方式才叫真正显示loading 画面。想想你的那种方法是在主窗体建立初始化后才显示cover,这有什么意思..看看下面我写的代码，并且一定要加上DoEvents让 splash窗体完全显示Sub Main()
'启动画面
On Error Resume Next
If App.PrevInstance = False Then
Dim frm1 As New FlashShell  '启动画面
Dim frm2 As New DiskForm    '主窗体
frm1.Show
DoEvents                    '因为frm2的启动中有几个非常占时间和机器的过程
frm2.Show
Unload frm1
Else
MsgBox ("光盘管理之星已经运行:-)")
End If
End Sub