成都创新互联网站制作重庆分公司

vb.net静音 vb如何调用声音

如何用命令行或批处理实现“静音”

没有这种命令的,不过有现成的API

十多年的昌宁网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。全网营销推广的优势是能够根据用户设备显示端的尺寸不同,自动调整昌宁建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。成都创新互联从事“昌宁网站设计”,“昌宁网站推广”以来,每个客户项目都认真落实执行。

有兴趣的话可以自己写一个,最好弄成Console Application,然后再给它新建一个快捷方式,最后给快捷方式加快捷键。

这个是VB的示例

这里也有些代码可以参考下

vb.net控制系统音量

Imports System.Runtime.InteropServices

Public Class Form1

Private mute As Integer = H80000

Private up As Integer = HA0000

Private down As Integer = H90000

Private WM_APPCOMMAND As Integer = H319

DllImport("user32.dll") _

Public Shared Function SendMessageW(hWnd As IntPtr, Msg As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr

End Function

'加大

Private Sub btnUp_Click(sender As System.Object, e As System.EventArgs) Handles btnUp.Click

SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(up))

End Sub

'减小

Private Sub btnZero_Click(sender As System.Object, e As System.EventArgs) Handles btnZero.Click

SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(mute))

End Sub

'静音

Private Sub btnDown_Click(sender As System.Object, e As System.EventArgs) Handles btnDown.Click

SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(down))

End Sub

End Class

关于VB .NET文件处理?

我来回答:

用我的记事本程序建立的文件(扩展名为abc)如何关联到我的记事本程序,双击之后能够直接打开?

修改注册表,添加一个文件类型,并指定该文件类型打开程序的路径,除此,还要在代码里编写一个参数,代表双击(*.abc)文件的路径,代码如下(c#):

Main(string

arg)

{

//arg就是打开文件名的路径

}

同时能够显示程序的图标,就是建立的扩展名为abc的文件显示的图标和记事本程序的图标一样?

还是要修改注册表,把上一步建立的注册表的文件类型添加一个icon键,然后指定图标,很简单的,网上搜索下就出来了,我不细说了

目前我更改打开方式直接打开.abc的文件内容为空,而用我那个记事本程序打开确有内容,这是为什么呢?

因为你更改“打开方式”,也就是说,双击*.abc文件类型的文件,会打开您编写的“记事本”程序,但只是打开了,具体显示文件内容您还没有编写,所以您只能看到打开了,而并没有内容,方法上面说过了,添加参数(c#):

Main(string

arg)

{

//arg就是打开文件名的路径

StreamReader

sr=new

StreamReader(arg);

string

s

=

sr.ReadToEnd;

sr.Close();

}

看到了吗?这样s变量显示的就是文件内容,把它赋值到您要显示的文本框里就ok了~

多媒体 音频 声音 音量 大小 如何得到系统实时音量大小,用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获取歌曲时间

四、 AxWindowsMediaPlayer

该控件不是系统标准控件,需安装Windows Media Player, 安装Windows Media Player时选择默认安装,在调出的“选择工具箱项”对话框的“COM组件”选项卡中有一个名为Windows Media Player的项目,将其添加到工具栏便可使用。

AxWindowsMediaPlayer1.URL = "c:\回家.mpg" '设置播放文件

AxWindowsMediaPlayer1.settings.volume =50 '设置音量为50

AxWindowsMediaPlayer1.Ctlcontrols.play() '播放

AxWindowsMediaPlayer1.Ctlcontrols. pause () '暂停

AxWindowsMediaPlayer1.fullScreen = True '全屏播放

AxWindowsMediaPlayer1.settings.balance = 100 '选择左声道

AxWindowsMediaPlayer1.settings.balance = 0 '选择立体道

AxWindowsMediaPlayer1.settings.balance = -100 '选择右声道

AxWindowsMediaPlayer1.fullScreen = True '全屏播放

Label1.Text = AxWindowsMediaPlayer1.currentMedia.durationString '媒体总长度,格式为05:56

Label1.Text = "文件总长度:" AxWindowsMediaPlayer1.currentMedia.duration() '单位为秒,格式为:241.1075663

Label1.Text = "当前播放时间:" AxWindowsMediaPlayer1.Ctlcontrols.currentPosition '单位为秒,格式为:10.3172578

AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition – 10'后退10秒

AxWindowsMediaPlayer1.settings.mute = True '设置为静音

AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value '设置音量

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

'该过程用于循环播放

Dim a As Int16 = AxWindowsMediaPlayer1.currentMedia.duration() '单位为秒,格式为:241.1075663

Dim b As Int16 = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition '单位为秒,格式为:10.3172578

If b = a Then

AxWindowsMediaPlayer1.Ctlcontrols.stop()

AxWindowsMediaPlayer1.Ctlcontrols.play()

End If

End Sub

以上代码在VB.NET,windows XP 中测试通过

vb.net设置音量

调用系统Api

[DllImport("winmm.dll")] //引用winmm.dll

public static extern long waveOutSetVolume(long deviceID, long Volume);

在winmm.dll中

第一个参数可以为0,表示首选设备

第二个参数为音量:0xFFFF为最大,0x0000为最小,其中高位(前两位)表示右声道音量,低位(后两位)表示左 声道音量 。

2、弹出系统音量调节框

ProcessStartInfo Info=new ProcessStartInfo();

Info.FileName = "Sndvol32";

Process.Start(Info);


当前名称:vb.net静音 vb如何调用声音
文章起源:http://cxhlcq.com/article/dossdgd.html

其他资讯

在线咨询

微信咨询

电话咨询

028-86922220(工作日)

18980820575(7×24)

提交需求

返回顶部