vb定时打开视屏
发布网友
发布时间：2024-10-13 20:16
我来回答
共3个回答
热心网友
时间：2024-10-13 20:33
Shell "播放器的完整路径路径 C:\iJiashu电影盒0725\media\1.rmvb"
如：使用Windows Media Player 来播放。
Shell "C:\Program Files\Windows Media Player\wmplayer.exe C:\iJiashu电影盒0725\media\1.rmvb"
如果不知道有什么播放器，想让系统自动选择，可以用下面代码。
下面的代码，可以打开任何类型的文件，只要你的电脑有对应的软件，它会自动选择默认的软件去打开文件。
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
ShellExecute Me.hwnd, "open", "C:\iJiashu电影盒0725\media\1.rmvb", vbNullString, vbNullString, 1
End Sub
热心网友
时间：2024-10-13 20:30
Private Sub Form_Load()
Timer1.Interval = 2000
End Sub
Private Sub Timer1_Timer()
Shell "explorer.exe C:\iJiashu电影盒0725\media\1.rmvb"
End Sub
用explorer试试
热心网友
时间：2024-10-13 20:30
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim c As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
Command1.Caption = "开始定时"
End Sub
Private Sub Timer1_Timer()
c = c + 1
Me.Caption = c
If c = 300 Then
Timer1.Enabled = False
c = 0
ShellExecute Me.hwnd, vbNullString, "C:\iJiashu电影盒0725\media\1.rmvb", vbNullString, "", 1 '
End If
End Sub
我想在VB中插入一个视频,只要一运行到这个窗口时,就自动播放这个视频...
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private Sub Command1_Click()mciSendString "Close Myavi", vbNullString, ...
求教,用vb判断某个视频文件是否已关闭,若该文件关闭了,VB程序自动关闭...
如果用的是WindowsMediaPlayer控件,例子如下：Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)Select Case NewState '设定重新开始播放的环境 Case Is = wmppsMediaEnded '当播放结束时 End '退出程序 End Select End Sub ...
VB如何打开一个视频文件
Public Class 影音播放 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFileDialog1.InitialDirectory = "F:\Music"OpenFileDialog1.Filter = "mp3 文件(*.mp3)|*.mp3|CD音频文件(*.wav)|*.wav|" & "视频（*.asf)|*.asf...
哪位大哥能帮忙给一下用vb打开mpeg格式视频的代码。小弟在这里先谢谢了...
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click()OpenU...
vb制作视频播放器
有个属性，好像是full，在事件里面改变就可以了。就是满屏的意思。
...就是用VB调用第三放播放器打开视频文件并自动播放。。。 怎么实现呢...
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。说明 如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。注意 缺省情况下，Shell 函数是以...
如何在VB中插入音频、视频
接下来，制作文件打开工具 放置 drive1 dir1 file1 三个控件。把file1的pattern属性设为*.wma 然后写入如下代码 Private Sub Dir1_Change()File1.Path = Dir1.Path End Sub Private Sub Drive1_Change()Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click()WindowsMediaPlayer1.URL =...
vb如何播放视频文件
1、工具栏右键——部件——选中window media player.添加控件后其URL=路径 不是企业版？可以试试其他空间如TTplayer，quicktime等，在部件中都有
求VB不拖放控件播放视频的方法(wmv格式)
'36-1 打开网页地址 Sub Openwmv(formhwnd As Long, Url As String)ShellExecute formhwnd, vbNullString, Url, vbNullString, vbNullString, 1 End Sub 二、动态创建控件进行播放，比较简单 Private Sub Command1_Click()Dim AoshiMP, MP Set AoshiMP = Controls.Add("WMPlayer.OCX.7", "...
VB播放视频的问题
WMPI.URL = App.Path & "E\娱乐\中文电影\李米的猜想.rmvb"这句错了 改成：WMPI.URL ="E\娱乐\中文电影\李米的猜想.rmvb"就可以了 App.Path 表示当前程序所在路径！WMPI.enabled=True 如果用的是WMP.DLL 注意要装DVD播放器，例如暴风影音等。 不然解码器不能解码！！！
