VB不见窗体

更新时间2018-10-06 07:12:32

试运行时没看见窗体，只看见代码窗口，附代码:

Dim No1 As String, No2 As String, No3 As String, No4 As String, No5 As String, No6 As String, No7 As String

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

 

Private Sub Form_Load()

 

No1 = "你好,杨玉兴。"

No2 = "这是我们认识的第八年。"

No3 = "很庆幸,你我没有被时间冲散。"

No4 = "在你面前,可以做真实的自我。"

No5 = "丝毫不用担心,暴露你所有的不足。"

No6 = "因为我知道,就算你看到了全部的我,还会留下来。"

No7 = "生日快乐呀,笨笨熊!"

Label3.Caption = No1

Sleep 2000

Label6.Caption = No2

Sleep 4000

Label5.Caption = No3

Sleep 6000

Label4.Caption = No4

Sleep 6500

Label10.Caption = No5

Sleep 7000

Label9.Caption = No6

Sleep 9000

Label8.Caption = No7

 

End Sub

这是我帮同学做的，求改进，急!!!!!!!!!!!!

不出现窗口是你程序的问题

你在Form_Load()中执行了N多个SLEEP且是时间较长的

sleep是阻塞运行的,也就程序必须等待它完成才能执行下面的.

你要有足够的耐心,你的程序会有结果的

两种方法：

一、在第一个sleep前增加Me.Show:Doevents

二、删除你的Form_Load事件中的全部代码，并在窗体增加一个Timer控件，然后为Timer控件的Timer事件增加如下代码：