软件开发环境与工具实验报告.docx

《软件开发环境与工具实验报告.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、软件开发环境与工具实验报告实验一托盘程序设计实验题目：托盘程序设计实验类型：验证性专业班级：计算机科学与技术系网络工程方向1003姓名：学号：2012年10月17日实验地点：软件实验室二一．实验目的：通过本次实验，使学生了解托盘程序的应用及设计思想，利用Timer控件和NotifyIcon控件实现一个动态托盘程序。二．实验要求：1、实现动态托盘。2、关闭窗体时进行隐藏操作。3、窗体和托盘的转换通过双击实现。4、托盘所对应主程序的应用自定。三．源代码：PublicClass随机数DimiscloseAsBoolean=Fals

2、eDimFistIcoAsBoolean=FalseDimico1AsSystem.Drawing.IconDimico2AsSystem.Drawing.IconPrivateSub开始_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles开始ClickDima(9),i,j,n,pAsIntegerDimmAsStringRandomize()a(0)=Int(100*Rnd())+1Fori=1To9p=1WhilepRandomize()a

3、(i)=Int(100*Rnd())+1Forj=0Toi-1Ifa(j)=a(i)ThenExitForEndIfIfj=i-1Anda(i)<>a(i-1)Thenp=0EndIfNextjEndWhileNextim="您抽取的10个整数为："&Chr(13)&Chr(10)Fori=1To10Ifa(i-1)<10Thenm=m&a(i-1)&""&""Else:m=m&a(i-1)&""EndIfIfiMod5=0Thenm=m&Chr(13)&Chr(10)EndIfNextiLabel2.Text=mEndSu

4、bPrivateSub退出_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles退出.ClickEndEndSub’程序主界面的开始与退出PrivateSub图标_MouseDoubleClick(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.MouseEventArgs)Handles图标.MouseDoubleClickIfMe.WindowState=FormWindowSta

5、te.NormalThenMe.WindowState=FormWindowState.MinimizedElseMe.WindowState=FormWindowState.NormalEndIfEndSub’双击图标隐藏或显示窗口PrivateSub随机数FormClosing(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.FormClosingEventArgs)HandlesMe.FormClosingIfe.CloseReason=CloseReason.Form

6、OwnerClosingThenisclose=FalseEndIfIfisclose=FalseThene.Cancel=TrueMe.WindowState=FormWindowState.MinimizedMe.Hide()EndIfEndSub’主窗体的关闭PrivateSub随机数_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Loadico1=NewSystem.Drawing.Icon(Application.Sta

7、rtupPath&"image1.ico")ico2=NewSystem.Drawing.Icon(Application.StartupPath&"image2.ico")EndSub’给托盘附加图片PrivateSub时间块Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles时间块TickIfFistIcoThenMe.图标Icon=ico1FistIco=FalseElseMe.图标Icon=ico2FistIco=TrueEndIfE

8、ndSub’控制图标闪烁PrivateSub退出ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles退出ToolStripMenuItem.ClickEndEndSubPriv