正文
vb.net到期提醒 vbnet format 日期
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
想在vb.net的程序中有一个语音提示，该怎么写
首先添加一个系统的语音COM组件的引用microsoft speech object library然后在程序中声明一个语音类dim RC As SpeechLib.SpSharedRecoContext这个类有一些事件,如果你要处理它的一些事件,可以用withevent来声明然后在窗体LOAD事件或你需要的地方先创建一个实例RC = New SpeechLib.SpSharedRecoContext当一个RC被实例化后,系统就会运行语音识别程序.前提是你的系统已经正确安装这个功能.一般默认就已经安装好的.其次提醒一下,WIN7的语音识别比XP的好N倍.从阅读到侦听都好很多.然后就可以在你需要阅读的地方使用RC.Voice.Speak("hello 我", 11)11那里是一些枚举,用来标识系统用前台还是后台或其他方式来阅读文字,简单的来说就是阅读的时候不会卡住你的程序.你可以选其他的枚举来试试作用.以上为阅读部分.如果需要程序听你说话,则需要声明一个侦听类dim RG As SpeechLib.ISpeechRecoGrammar在初始化时将之与上面的RC建立关系,此时则必须要用withevent来声明上面的RC,因为涉及电脑听到你的语音后,会触发一个事件,并将听到的内容传递到该事件.其次,要让系统听到的解析为命令,就必须准备一个XML结构的文件来保存那些固定的命令.如果电脑在XML文件中找不到那些固定命令或同时不属于系统命令,电脑将会将其解释为听写.RG = RC.CreateGrammar '(0)
RG.CmdLoadFromFile("听到.xml", SpeechLib.SpeechLoadOption.SLODynamic)
RG.CmdSetRuleIdState(0, SpeechLib.SpeechRuleState.SGDSActive)然后写一个过程来处理听到的事件Private Sub 听到命令(ByVal StreamNumber As Integer, ByVal StreamPosition As Object, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal 话语 As SpeechLib.ISpeechRecoResult) Handles RC.Recognition RC.Voice.Speak("我听到了" 话语.PhraseInfo.GetText, 11)End Sub以上为侦听部分.下面列一个XML的例文?xml version="1.0" encoding="gb2312"?
GRAMMAR LANGID="804"
RULE NAME="命令" TOPLEVEL="ACTIVE"
L
P打开播放器
P上我的QQ
P关闭你自己 /L
/RULE
/GRAMMAR要让系统正确地侦听到你说的话,前提你必须运行语音识别程序并让其激活到"正在聆听"状态.并且你必须有一个能正常使用的话筒而且保证话筒已经打开.(废话-_-|||)以上就是用VB.NET语音识别的最基本的一些操作.希望对你有帮助.更深入的内容有兴趣的话可以和我一起研究.
相关问答
Q1: 用VB.NET弹出一个确认框，带倒计时？！？
在30秒的时候弹出个messagebox选择的事件
确定就把timer的enabled属性设置成false 执行关机
取消把timer的enabled属性设置成false 计时器清零就行了
Q2: 用vb.net实现闹钟提醒程序
一个提醒程序 最典型的就是闹钟程序 网上有不少个性化的提醒程序下载 但是大部分都是以时间为主的闹钟提醒 vb.net到期提醒我们也可以用来打造一个适合自己的提醒程序 比如监控一个某个应用程序的变化然后发出声音提醒自己等等
一个提醒程序 最重要能在符合提醒条件的时候发出声音来提醒使用者 在这里 vb.net到期提醒我们就对具体的提醒条件啰嗦vb.net到期提醒了 只针对如何实现提醒声音的播放进行说明
在的 net组件中 并没有提供播放声音文件的组件 但是vb.net到期提醒我们可以通过使用Com组件来播放声音文件 但是 要注意的事 我们只需要发出提示的声音而已 并不需要像播放器那样播放不同格式的声音文件和繁多的列表 所以我们可以通过API函数来循环播放单个的声音文件
在WindowsAPI函数的有一个PlaySound函数 它用于播放WAV格式的声音文件 我们可以用它来反复播放一个指定的WAV文件来实现提醒功能
首先在中引入API声明
Public Declare Function PlaySound Lib winmm dll （ByVal lpszSoundName As String ByVal hModule As Integer ByVal dwFlags As Integer） As Integer
然后定义几个我们程序中必须用到的dwFlags参数常量
同步调用PlaySound中指定的文件 播放完WAV文件后才返回结果
Const SND_SYNC As Integer = H
异步调用PlaySound中指定的文件 不必等到播放完WAV文件后就直接返回结果 在这里我们可以调用异步方法来播放文件
Const SND_ASYNC As Integer = H
反复播放指定的WAV文件
Const SND_LOOP As Integer = H
在调用的时候hModule参数必须为
需要停止的时候通过调用PlaySound（vbNullString ）来实现现在我们在窗体上放置两个按钮 一个用于开始播放 一个用于停止播放 然后再放置一个TextBox控件 用于指定WAV文件的路径 界面如下图所示
图一 示例界面
完整代码如下
Public Declare Function PlaySound Lib winmm dll （ByVal lpszSoundName As String ByVal hModule As Integer ByVal dwFlags As Integer） As Integer
Const SND_FILENAME As Integer = H
Const SND_ALIAS As Integer = H
Const SND_SYNC As Integer = H
Const SND_ASYNC As Integer = H
Const SND_LOOP As Integer = H
Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click
PlaySound（TextBox Text SND_LOOP Or SND_ASYNC）
End Sub
Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click
PlaySound（vbNullString ）
End Sub
运行 在TextBox 中输入有效的WAV文件的路径 然后单击开始 就可以循环播放声音了 单击停止按钮就可以停止播放
lishixinzhi/Article/program/net/201311/12453
Q3: vb.net中怎么实现到期自动提醒。
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim 还款时间 As Date = "2012-10-30"
Dim n As Integer = DateAndTime.DateDiff(DateInterval.Day, DateAndTime.Now, 还款时间)
If n = 7 And n = 0 Then
TextBox1.Text = "距离还款时间还有" n "天"
End If
End Sub
Q4: vb.net 怎么让 win10 弹出系统通知
自己创建个无边框窗体 控制下显示位置 不就好了
样式图标随你设计
Q5: VB.NET 实现气泡提示效果
Dim toolTip1 As New ToolTip()
toolTip1.AutoPopDelay = 5000 '显示停留5秒
toolTip1.InitialDelay = 1000 '1秒后显示
toolTip1.ReshowDelay = 500 '从一个控件移到另一个控件0.5秒后显示
toolTip1.ShowAlways = True '在窗口不活动时也显示
ToolTip1.SetToolTip(TextBox1, "提示内容")
详见：
vb.net到期提醒的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet format 日期、vb.net到期提醒的信息别忘了在本站进行查找喔。
