软件开发环境与工具实验报告
———————————————————————————————— 作者:
———————————————————————————————— 日期：
软件开发环境与工具实验报告
实验一
托盘程序设计
实验题目：托盘程序设计
实验类型:验证性
专业班级：计算机科学与技术系网络工程方向1００3
姓
名:
学
号:２01010０３３1
2012年 10
实验地点：软件实验室二
一．实验目的:
通过本次实验,使学生了解托盘程序的应用及设计思想,利用Timer控件和ＮotｉfyＩcｏｎ控件实现一个动态托盘程序。
二.实验要求:
1、实现动态托盘。
2、关闭窗体时进行隐藏操作。
3、窗体和托盘的转换通过双击实现。
4、托盘所对应主程序的应用自定。
三.源代码：
Publｉc Class 随机数
Dim isclose As Booｌean ＝ False
Ｄiｍ FisｔIｃo As Boolean = Falｓｅ
Dim ico1 Ａs Syｓｔｅm．Drawing.Icｏn
Diｍ icｏ2 Ａs System.Drａwing.Icｏｎ
Privaｔe Sub 开始_Cｌicｋ(BｙVal seｎｄer As Systｅm．Ｏbjeｃｔ, ByVaｌ e Ａｓ Sｙstem．EventAｒgs) Handｌes 开始Click
Diｍ a(９), i， j， ｎ, p As Ｉntｅger
Dim m As Ｓｔrｉng
Ｒandomiｚｅ（)
a（0） = Int（１0０ * Rnd（)) ＋ 1
Ｆｏｒ i = 1 Ｔｏ ９
p = 1
Ｗhilｅ ｐ
Ｒandｏmize()
a(i) = Int(1０0 * Rnｄ()) + 1
Foｒ j = ０ Tｏ i - １
If a(j) = a(ｉ) Theｎ
Eｘit For
Enｄ Iｆ
Iｆ ｊ = i - 1 And ａ（i) <＞ a(i - 1) Thｅn
p = 0
End Ｉf
Next j
Eｎd Ｗhｉlｅ
Next i
m = "您抽取的１0个整数为： " & Chr（13) ＆ Chr(１0）
Foｒ ｉ ＝ 1 To 10
If a(i - 1) ＜ 10 Thｅｎ
m = m ＆ a（ｉ - 1) & " " & ＂ ＂
Else ： m = m & ａ(i － 1) ＆ " ＂
End Ｉf
If i Ｍoｄ ５ = ０ Theｎ
ｍ = m & Cｈr(13) ＆ Ｃhr(10)
Enｄ Ｉf
Next i
Lａｂel2.Tｅｘt ＝ ｍ
End Ｓｕb
Prｉvaｔe Suｂ 退出_Click(ＢyVal ｓender Aｓ Sysｔeｍ.Oｂject, BｙＶａl ｅ As Systeｍ．ＥventAｒgｓ) Ｈanｄleｓ 退出.Cｌick
End
Ｅnd Sub ’程序主界面的开始与退出
Private Sub 图标_MouseＤoublｅClick(ＢyVaｌ senｄｅr As Sysｔeｍ.Obｊｅct, ＢyVal e Ａｓ System.Winｄows.Foｒｍs.MｏuseＥventＡｒgs） Handleｓ 图标.MｏuseDｏubleClicｋ
Ｉf Me.ＷｉndｏwSｔate = ＦormWindowState.Normal Then
Me.WiｎdowState ＝ FｏｒmWindowSｔate.Ｍinｉｍizｅｄ
Ｅlse
Ｍe．ＷindowStａte = FormWｉndowState.Noｒｍal
End Ｉf
Ｅnd Sｕb ’双击图标隐藏或显示窗口
Privatｅ Suｂ 随机数 ＦorｍCｌoｓing(ＢｙVａｌ sender As Obｊecｔ， ByVal e As Syｓｔeｍ.Ｗiｎdowｓ.Ｆｏrｍs.FormＣlｏsinｇEｖeｎtArｇs) Ｈaｎｄlｅs Ｍｅ．FormClｏsｉng
Iｆ e.CloseＲeason = CｌｏsｅReaｓon.ForｍＯwnerClosｉng Ｔhｅｎ
ｉsclｏsｅ = Fａlse
End If
If iｓcｌoｓe = False Tｈen
e.Ｃａncｅl = Ｔｒue
Me.ＷinｄowSｔate = FormWiｎdｏwStａtｅ.Mｉnｉmｉzed
Me.Hidｅ(）
End If
Ｅnd Sub ’主窗体的关闭
Privａｔe Sub 随机数_Ｌｏad（BｙVａl sｅnder As Systｅｍ.Ｏbjｅct, ByＶal e As Ｓystｅm.ＥvｅnｔArｇs） Ｈaｎｄlｅｓ MｙBasｅ.Load
ico1 = New Sｙsteｍ.Drawｉng．Iｃon(Ａpｐlｉcaｔion．StartupＰａth & ＂＼iｍagｅ\1.ｉco")
ico２ = Nｅｗ Systeｍ.Drａｗinｇ.Ｉcoｎ(Apｐlｉｃａtiｏn.SｔａｒtupPatｈ & "\ｉmagｅ\2.icｏ"）
End Sub ’给托盘附加图片
Privatｅ Sub 时间块Tick(ByVaｌ seｎｄer As Sysｔem.Objｅcｔ, BｙVａｌ e As Systeｍ.ＥvenｔＡrgs) Haｎdles 时间块Tiｃｋ
Ｉｆ FisｔIco Ｔhen
Mｅ.图标Icoｎ = icｏ１
FｉstＩcｏ = Falsｅ
Else
Me.图标Ｉcｏn = ｉｃo2
ＦiｓtIｃｏ = Tｒｕｅ
Eｎd Ｉf
End Sub ’控制图标闪烁
Prｉｖaｔe Suｂ 退出TooｌＳtrｉpMenｕItem_Clｉｃk(ByVａl sｅｎｄer Ａｓ Ｓｙsｔｅm.Objｅct, ByVal e As Ｓyｓtｅm.EvｅntArgs) Handles 退出ＴｏoｌStrｉｐＭenuItｅm.Cliｃｋ
Ｅnｄ
End Sｕｂ
Ｐrｉvａｔe Sub 隐藏ＴoolStｒiｐＭenｕIｔem_Cliｃk（ByVaｌ sｅnder Aｓ Sysｔｅm.Object, ＢｙVal e As System.ＥvenｔArｇs） Handlｅs 隐藏TｏoｌSｔripMenuIｔem．Cｌｉck
Me.Hide(）
End Sｕｂ
Ｐrｉvａte Ｓub 显示TｏｏlStripMｅnｕＩtｅm_Ｃlick(BｙＶaｌ sendeｒ Ａｓ Syｓteｍ.Ｏbｊect, ＢyVａl e As Systｅｍ.ＥventArgｓ) Ｈanｄｌes 显示TooｌＳtripＭenuIｔｅｍ.Click
Me．Show（)
Enｄ Sub
Prｉvaｔｅ Sub 托盘_Oｐｅnｉng(ＢyVal sｅnｄｅr As Syｓtem.Ｏbｊecｔ， BｙVal e As Sｙstem.ComｐonｅntModｅｌ.CancelEvｅntAｒgs) Ｈａｎdles 托盘Ｏpｅning
End Sub ’控制托盘完成隐藏、显示、退出命令
End Clasｓ
四．实验相关截图：
五．实验总结：
通过本次通过对NotifyIcon1、Timer、CoｎｔextMenuStrip1工具的应用，实现了求10个随机数的动态托盘程序。在设计过程中出现了闪烁图标不能出现的情况,这是设计中的难点。NoｔｉfｙＩcoｎ1、Timer两个工具的结合使用，实现了闪烁的托盘,CｏnｔextMｅnuStrip１工具则实现右击托盘时出现的“隐藏、显示、退出”命令。但是对界面的优化设计没有做出来还需通过学习掌握。
相关热词搜索： 实验 环境 工具 报告 开发