作品展前奏

    前期还是掌握了一丢丢的小知识,虽然自己的作品没有如约而至,但知足常乐

VB播放视频文件

CTRL+T 添加WindowsMediaPlayer控件
Dim X As Integer Private
Sub Form_Load() WindowsMediaPlayer1.URL = "D:\full.mp4"
Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub
Timer1_Timer() X = X + 1 If X > 28 Then Unload Form1 Form2.Show
End If End Sub

全屏播放

1、WindowsMediaPlayer属性值设为True;
2、在代码中写WindowsMediaPlayer1.fullscreen=true程序报错,why?

隐藏进度条

1.把有效属性和可见属性全设置为false
2.Private Sub Form_Load()
    me.left=0
    me.top=0
    me.borderstyle=1
    me.width=screen.width
    me.height=screen.height
    WindowsMediaPlayer1.left=0
    WindowsMediaPlayer1.top=0
    WindowsMediaPlayer1.width=me.width
    WindowsMediaPlayer1.height=me.height
End Sub

注:要隐藏进度条的话,可以把WindowsMediaPlayer1.height设更大一些,知道看不到进度条为止。(没试过这种方法)

在VB中播放flash动画

1、打开VB6.0,新建一个工程,Ctrl+T在部件窗口的控件列表中选择Shockwave
flash,然后确定,Flash控件就被加到工具箱上。
2、选择工具箱上的Flash控件,放到窗体上并调整好大小;
3、在Form_Load()过程中加入如下代码:
Private Sub Form_Load()
    ShockwaveFlash1.Movie = “路径”
    ShockwaveFlash1.Menu =
    False ShockwaveFlash1.Playing = True
End Sub

    其中,ShockwaveFlash1.Movie是用来指定你要播放的Flash动画的目录;ShockwaveFlash1.Menu是用来指定是否在Flash动画播放中封闭右键菜单,True为能够显示菜单,False为封闭右键菜单;ShockwaveFlash1.Playing = True是让动画播放。

你可能感兴趣的:(#,VB)