Question

vb做一个简单的小程序

这个程序没有任何框架，边缘
运行这个程序的时候，就显示放在一起的flash文件123.swf
通俗一点，运行的时候直接显示的是123.swf，
本机上安装过flash播放器。
----------------------------------------------------------------
这个VB的大小类似QQ那么大
运行10秒之后自动关闭
运行时考显示器左边一点（与QQ相反）
请大哥们做好之后直接将源码打包发到我邮箱（achao07@qq.com）
在此谢过

Answer 1

Option Explicit

Private Sub Form_Load()
ShockwaveFlash1.Movie = "D:\wwwroot\KuFang\images\1.swf"
ShockwaveFlash1.Menu = False
ShockwaveFlash1.Playing = True
End Sub

Private Sub Timer1_Timer()
End
End Sub

建一个无边框窗体,复制上面代码进去就OK了

工程文件给你发过去了 后发的是修改过的 免去了需要修改路径的麻烦

Answer 2

Option Explicit

Private Sub Form_Load()
ShockwaveFlash1.Movie = "D:\wwwroot\KuFang\images\1.swf"
ShockwaveFlash1.Menu = False
ShockwaveFlash1.Playing = True
End Sub

Private Sub Timer1_Timer()
End
End Sub

Answer 3

Private
Sub
Command1_Click()
Label1.Caption
=
"欢迎来到精彩的VB世界"
End
Sub
Private
Sub
Form_Load()
End
Sub
============
需要控件
Label
Label的名字是Label1

Answer 4

已经发到你的邮箱
时间我设定了100秒，你可以修改。

Answer 5

已发送！