锐客网

  1. 首页 > 睿知 > it技术 > >

endifvb.net的简单介绍( 四 )

IT技术text


VB.NET中怎么实现当时间达到设定时间时响铃？？急急急 。。在线等！谢谢了，大神帮忙啊首先在form1上建立三个命令按钮,分别为command1(打开预启动的文件);command2(设定时间的按钮);第三个command3(即可启动)按钮可有可无;一个label1用来显示你预打开的文件名的路径；一个lbltime用来显示现在的时间；还有一个commondialog,它在工程菜单的部件中，你可把它加到工具箱中再开始使用;关于对话框你不必自己建，只要从应用程序向导中添加即可;一个timer,它的interval=500 。其次在form1的属性中设置为:startupposition=2－centerscreen和maxbutton=false;label1的属性中设置为：alignment=2－center 。外观大致是如图所示： 下面我们开始编程： 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 '判断如果现在的时间超过了设定的时间,则调用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程序的编写 ， 希望你能设计出更好的闹钟程序来！
VB.net实例1 生成txt文件 。
DimSaveFileDialog1AsNewSaveFileDialog() '创建一个保存对话框
SaveFileDialog1.Filter ="txt files (*.txt)|*.txt" '设置扩展名
IfSaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OKThen '如果确定保存
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False) '保存文本,False表示不追加文本，直接覆盖其内容
EndIf
原文链接：
vb.net 有两个相同结构的表,如何将第一个表中指定的行,移动到第二个表中DataTable ?
【endifvb.net的简单介绍】假设dt1和dt2结构相同
Dim dtNewRow as DataRow
for each dtRow as DataRow in dt1.Rows
if(dtRow("A") == "a") then

推荐阅读


上一篇：如何做好新媒体工作心得，如何做好新媒体运营?看这一篇就够了

下一篇：大学java注册登录代码，javaweb注册登录代码