作品展前奏

最新推荐文章于 2024-07-11 16:40:40 发布

Coder_JJ

最新推荐文章于 2024-07-11 16:40:40 发布

阅读量260

点赞数

分类专栏： VB

本文链接：https://blog.csdn.net/Ellen5203/article/details/79763275

版权

这篇博客介绍了如何使用VB进行多媒体播放，包括全屏播放视频和隐藏WindowsMediaPlayer的进度条，以及在VB中播放Flash动画的详细步骤，涉及设置Movie、Menu和Playing属性。

摘要由CSDN通过智能技术生成

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

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