vb.net声音警告 vbs怎么弹出警告框

VB.NET中出现如图所示的警告如何更正，帮忙解决下 谢谢

Private Function getAccessConnection() As OleDbConnection

'整体思路应该是：连接数据库－运用适配器运行查询词句-将查询结果填充到数据集－以数据集为数据源，在DataGrid中显示。

Dim dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;

Data Source=|DataDirectory|\Resources\mag.mdb;Persist Security Info=true"

'连接字符串，Provider,连接引擎，可以死记，OLEDB就用这处，Data Source,设置数据库的位置。

Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)

Try

dbConnection.Open()

Catch Ex As Exception

’MsgBox(Err.Description)

End Try

Return dbConnection

End Function

private Sub fillDataGridView()

Dim sqlStr As String = "select * from Table"

Dim DataAdapter As New OleDbDataAdapter

Dim dataSet As New DataSet

Dim DataGridView As New DataGridView

Dim dbConnection As OleDbConnection = getAccessConnection()

If dbConnection.State.ToString = "Closed" Then

MsgBox(Chr(13) " access 数据库连接失败 " Chr(13), , "警告")

Exit Sub

End If

DataAdapter.SelectCommand = New OleDbCommand(sqlStr,dbConnection)

'用数据适配器进行查询

Try

DataAdapter.Fill(dataSet,"Table") '将查询结果填充到数据集Dataset,有点像VB中的记录集recordset

DataGridView.DataSource = dataSet.Tables("Table").DefaultView '将数据集的内容在表格中显示出来

Catch Ex As Exception

MsgBox(Err.Description)

Finally

dataSet.Dispose

DataAdapter.Dispose

dbConnection.Close

dbConnection.Dispose

End Try

End Sub

相关问答

Q1: vb.net messagebox

可以在客户端注入脚本，如：

ClientScript.RegisterStartupScript(typeof(Page), "ScriptKey", "script type=\"text/javascript\" language=\"javascript\"window.alert("+你的异常信息+");/script");

还有就是捕获异常可以用

try

{

}

catch(Exception e)

{

throw new Exception(e.Message);

}

Q2: 想在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语音识别的最基本的一些操作.希望对你有帮助.更深入的内容有兴趣的话可以和我一起研究.

Q3: VB.NET中怎么实现当时间达到设定时间时响铃？？急急急。。在线等！谢谢了，大神帮忙啊

首先在form1上建立三个命令按钮,分别为command1(打开预启动vb.net声音警告的文件);command2(设定时间的按钮);第三个command3(即可启动)按钮可有可无;一个label1用来显示vb.net声音警告你预打开的文件名的路径；一个lbltime用来显示现在的时间；还有一个commondialog,它在工程菜单的部件中，你可把它加到工具箱中再开始使用;关于对话框你不必自己建，只要从应用程序向导中添加即可;一个timer,它的interval=500。 其次在form1的属性中设置为:startupposition=2－centerscreen和maxbutton=false;label1的属性中设置为：alignment=2－center。 外观大致是如图所示： 下面vb.net声音警告我们开始编程： OptionExplicit DimAlarmTime '申明变量 －－－－－－－－－ PrivateSubCommand1_Click() Calldialog '调用dialog子程序 EndSub －－－－－－－－ PrivateSubCommand2_Click() AlarmTime=InputBox(“请输入你想设定的时间,例如(19:12:00)",“小闹钟") IfAlarmTime=“"ThenExitSub IfNotIsDate(AlarmTime)Then MsgBox“你所输入的不是时间格式,请重试!",,“Wrong" Else AlarmTime=CDate(AlarmTime) EndIf '判断输入的是否可转换成time格式 'isdate函数是判断输入的是否可转换成date格式 EndSub －－－－－－－－－－－－－－ PrivateSubCommand3_Click() Calldeng '调用deng子程序 EndSub －－－－－－－－－－－－－－－ PrivateSubForm_Click() frmAbout.Show '显示关于对话框 EndSub －－－－－－－－－－－－－ PrivateSubForm_Load() Command3.Enabled=0 AlarmTime=“" '初始化时command3为不可用的 EndSub －－－－－－－－－－－－－－－ PrivateSubForm_Resize() IfWindowState=1Then mintime else caption=“小闹钟" EndIf '如果窗口被最小化,则调用mintime程序 EndSub －－－－－－－－－－－－－－－ PrivateSubmintime() Caption=Format(Time,“longTime") '使用长时间格式来显示时间 EndSub －－－－－－－－－－－－－－－ PrivateSubTimer1_Timer() IflblTime.CaptionCStr(Time)Then lblTime.Caption=Time EndIf '显示时间每秒钟的变化 IfTime=AlarmTimeThen Calldeng EndIf '判断如果现在的时间超过vb.net声音警告了设定的时间,则调用deng子程序 IfWindowState=1Then IfMinute(CDate(Caption))Minute(Time)Then mintime EndIf EndIf '最小化时显示时间每分钟的变化 EndSub －－－－－－－－－－－－－ Subdialog() CommonDialog1.Flags=cdlCFBoth CommonDialog1.ShowOpen Label1.Caption=CommonDialog1.filename IfLabel1“"Then Command3.Enabled=－1 Else ExitSub EndIf '把打开的文件名给于label1 '如果label1不为空时,则command3即可用 EndSub －－－－－－－－－－－－－－ Subdeng() Dimss ss=Shell(Label1.Caption,1) End '启动指定的文件,并且结束小闹钟程序 EndSub 最后在about对话框中要提的是：在form_load中app.title表示你的应用程序的名字；app.major、minor、revision是关于应用程序的版本信息；lblDescription.Caption用于对本程序的一些说明描述之类的话；lblDisclaimer.Caption用于版权信息或警告等。 好了，至此vb.net声音警告我们已完成了一个简单的VB程序的编写，希望你能设计出更好的闹钟程序来！

Q4: VB.NET将.NET降到3.5后警告System.Threading.Tasks出问题了

我之前也遇到过类似的问题,我个人看下来,原因估计是因为低版本的.net framework没有这个东西,所以高版本导入没有问题但是低版本导入有问题,目前为止至少我是没有办法解决,3.5版本里面没有这个命名空间我也没办法...

Q5: VB.net中如何添加声音？

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

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

Call mciExecute("play F:\MUSIC\WMA\guitar\强调乐队-无声的叹息.mp3 ")

End Sub

复制可不怎么好吧,那些dll你都要有才行,vb.net做安装程序也不麻烦,只要添加一个新项目--安装向导,根据提示按下去就是了

哎~~~都说得很清楚了,你还......再给个提示吧,用timeofday来提取当前时间,和自定义时间对比

vb.net声音警告的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs怎么弹出警告框、vb.net声音警告的信息别忘了在本站进行查找喔。