重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net多媒体 vba在多媒体课件中的应用

用VB.NET编多媒体播放器

我这里有一段前段时间写的测试代码,使用WMPLib类,中间有你需要的功能,你可以参考下:

成都创新互联公司成立于2013年,是专业互联网技术服务公司,拥有项目成都做网站、成都网站建设网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元广河做网站,已为上家服务,为广河各地企业和个人服务,联系电话:18980820575

使用wmp.currentMedia.duration和wmp.currentMedia.durationString分别以double和string获得当前媒体的播放时间,使用wmp.settings.volume设置音量大小,使用wmp.controls.currentPosition设置当前播放时间点

Imports WMPLib

Public Class FrmMain

Dim WithEvents wmp As WMPLib.WindowsMediaPlayer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

wmp = New WMPLib.WindowsMediaPlayer()

TextBox1.Text = TextBox1.Text vbCrLf "当前播放状态:" wmp.status

wmp.uiMode = "Mini"

wmp.settings.balance = 1

wmp.enableContextMenu = True

wmp.fullScreen = False

wmp.windowlessVideo = True

wmp.enabled = True

Dim wmpMediaList As IWMPPlaylist = wmp.newPlaylist("默认播放列表", "")

Dim wmpMedia As IWMPMedia = wmp.newMedia(My.Computer.FileSystem.CurrentDirectory "\Human.mp3")

With wmpMediaList

.appendItem(wmpMedia)

End With

'wmp.URL = "\\192.168.1.247\sharoncn\music\Human.mp3"

wmp.currentMedia = wmpMedia

wmp.settings.autoStart = True

tBarPlay.Value = 0

ListBox1.Items.Add(wmpMediaList.name)

ListBox1.SelectedIndex = 0

ListBox2.Items.Add(wmpMediaList.Item(0).name)

ListBox2.SelectedIndex = 0

tbar.Maximum = 100

tbar.Value = 50

Timer1.Enabled = True

Timer1.Interval = 100

End Sub

Private Sub wmp_PlayStateChange(ByVal NewState As Integer) Handles wmp.PlayStateChange

tBarPlay.Maximum = wmp.currentMedia.duration * 10

Label1.Text = "总时间:" wmp.currentMedia.durationString

TextBox1.Text = TextBox1.Text vbCrLf "当前播放状态:" NewState

If NewState = 1 Then

wmp.controls.play()

End If

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

TextBox1.SelectionStart = Len(TextBox1.Text)

TextBox1.ScrollToCaret()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label2.Text = "当前播放进度:" wmp.controls.currentPositionString

tBarPlay.Value = CInt(wmp.controls.currentPosition * 10)

End Sub

Private Sub tbar_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbar.Scroll

wmp.settings.volume = tbar.Value

End Sub

Private Sub tBarPlay_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tBarPlay.Scroll

wmp.controls.currentPosition = tBarPlay.Value / 10

End Sub

End Class

关于多媒体播放器的播放菜单(vb.net 2005)

1.你使用的媒体控制是什么?

2.要加入ListBox的双击事件

3. 你这里只是用浏览对话框找到了mp3文件,并显示在列表框里。没有播放的代码。

张志晨

add

...............................................

添加WMplayer控件

Public Class Form1

Private Sub 打开目录ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开目录ToolStripMenuItem.Click

If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

Dim f As IO.FileInfo

Dim d As IO.DirectoryInfo = New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)

Dim file As String

For Each f In d.GetFiles("*.mp3")

file = (f.FullName)

ListBox1.Items.Add(file)

Next

End If

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged‘双击就播放

AxWindowsMediaPlayer1.URL = ListBox1.Items(ListBox1.SelectedIndex)

End Sub

End Class

多媒体 音频 声音 音量 大小 如何得到系统实时音量大小,用VB.net易的win7声音控制软件,

驱动程序,设置,文件,注册表四个方面,震动,如看它是否可以恢复全面检查,案件的接口是坏的,这是为配件

首先,请检查声音卡驱动程序,右键单击“我的电脑” - 属性 - 硬件 - 设备管理器 - 声音,视频和游戏控制器 - 右击 - ReaItek - 更新或扫描,卸载并重新安装。 (如果你下载的驱动程序生命没有驱动程序包 - 驱动更新 - 声音,视频 - 开始更新 - 自动找到的官方驱动程序 - 重新启动计算机。)

调试麦克风:控制面板 - 高清晰音频配置 - 混频器 - 重放 - 小扳手 - 选择 - OK - - 后粉红色 - X'静音,推高了麦克风插孔前面板 - 选择 - OK,然后打X麦克风静音,然后在右边拉点音频I/O--小扳手 - 选择“禁用前面板插孔检测 - OK - 返回混频器 - 录制 - 小扳手 - 点击麦克风的音量(版本不一致需打X-静音立体声混音)

加强麦克风:右键单击右下角的小喇叭(小喇叭的音量上) - 调整音频属性 - 音量 - 设备音量 - 高级 - (主音??量全推到上) - 选项 - 属性 - 麦克风音量打勾 - 确定返回选项 - 高级控制 - 高级 - 麦克风加强了钩。

右下角的小喇叭显示:开始---设置---控制面板 - 声音和音频设备 - 音量 - (勾选)将音量图标放入任务栏上。

5。在网页中,网页声音的操作方法:打开网页 - 工具 - 选项 - 高级 - (勾选)播放的声音。

6。游戏耳机出声来:控制面板---高清晰音频配置 - 音频I/O--耳机 - 选举8CH喇叭。

7。前部和后部面板插孔调试:控制面板 - 高清晰音频配置 - 音频I/O--模拟 - 后面板插孔图标 - 单击 - 你插入的设备吗? (需插入的设备,如插耳机) - 当选耳机 - OK,所以

8。使用QQ聊天的语言时,MIC音量无法调整,请下载补丁。

9,如声卡驱动安装不上的解决方法:控制面板 - 管理工具 - 服务 - Windows音频 - 启动类型设置为“自动”重新启动它。

10。注册表的方法:

开始 - 运行 - 输入regedit打开注册表,然后单击“打开HKEY_LOCAL_MACHINE \ SOFTWARE \微软\的Windows \ CurrentVersion \ Run在右侧窗口中新建字符串”系统托盘“点右键(在运行于新的)键(在系统托盘中双击编辑)“C:\ WINDOWS \ SYSTEM32 \ Systray.exe”win2000系统,或“C:\ WINNT \ SYSTEM32 \ Systray.exe”

开始 - 运行 - 输入regedit打开注册表,然后单击“打开HKEY_LOCAL_MACHINE \ SOFTWARE \微软\ WINDOWSNT \ CURRENTVERSION \ Drivers32创建一个新的字符串值,命名为”wavemapper“值”msacm32。DRV“。重新启动计算机。


分享题目:vb.net多媒体 vba在多媒体课件中的应用
网页链接:http://cqcxhl.cn/article/dojpchg.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP