VB不见窗体

时间：2018.10.03 发布人：乐鼠天
VB不见窗体

已解决问题

谷歌乐鼠天用户在2018.10.03提交了关于“古墓丽影VB不见窗体”的提问，欢迎大家涌跃发表自己的观点。目前共有3个回答，最后更新于2025-02-14T15:59:11。

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

DimNo1AsString,No2AsString,No3AsString,No4AsString,No5AsString,No6AsString,No7AsString

PrivateDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)

PrivateSubForm_Load()

No1="你好,杨玉兴。"

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

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

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

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

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

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

Label3.Caption=No1

Sleep2000

Label6.Caption=No2

Sleep4000

Label5.Caption=No3

Sleep6000

Label4.Caption=No4

Sleep6500

Label10.Caption=No5

Sleep7000

Label9.Caption=No6

Sleep9000

Label8.Caption=No7

EndSub

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

希望大家能够帮助她。

详细问题描述及疑问：

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

DimNo1AsString,No2AsString,No3AsString,No4AsString,No5AsString,No6AsString,No7AsString

PrivateDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)

PrivateSubForm_Load()

No1="你好,杨玉兴。"

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

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

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

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

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

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

Label3.Caption=No1

Sleep2000

Label6.Caption=No2

Sleep4000

Label5.Caption=No3

Sleep6000

Label4.Caption=No4

Sleep6500

Label10.Caption=No5

Sleep7000

Label9.Caption=No6

Sleep9000

Label8.Caption=No7

EndSub

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

期待您的答案，感谢你,我会记得你对我的好的 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：专业大傻鱼  

两种方法：

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

二、删除你的Form_Load事件中的全部代码，并在窗体来自增加一个Timer控纸量对扩棉日氧这备件，然后为Timer问答控件的Timer事件增加如下代码：

第2个回答

用户名：whoami1978  

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

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

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

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

第3个回答

用户名：.旧巷.  

DimNo1AsString,No2AsString,No3AsString,No4AsString,No5AsString,No6AsString,No7AsString
PrivateDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)
PrivateSubForm_Resize()
No1="你好,杨玉兴。"
No2="这是我们认识的第八年。"
No3="很庆幸,你我没有被时间冲散。"
No4="在你面前,可以做真实的自我。"
No5="丝毫不用担心,暴露你所有的不足。"
No6="因为我知道,就算你看到了全部的我,还会留下来。"
No7="生日快乐呀,笨笨熊!"
'为了便于演示,将延时都改成2秒
Me.Refresh:Sleep2000
Label3.Caption=No1:Me.Refresh:Sleep2000'2000
Label6.Caption=No2:Me.Refresh:Sleep2000'4000
Label5.Caption=No3:Me.Refresh:Sleep2000'6000
Label4.Caption=No4:Me.Refresh:Sleep2000'6500
Label10.Caption=No5:Me.Refresh:Sleep2000'7000
Label9.Caption=No6:Me.Refresh:Sleep2000'9000
Label8.Caption=No7:Me.Refresh
EndSub