软件开发环境与工具实验报告
实验一
托盘程序设计
实验题目：托盘程序设计
实验类型：验证性
专业班级：计算机科学与技术系网络工程方向1003
姓 名：
学 号：***
20XX年 10月 17日
实验地点：软件实验室二
一．实验目的：
通过本次实验，使学生了解托盘程序的应用及设计思想，利用Timer控件和NotifyIcon控件实现一个动态托盘程序。
二．实验要求：
1、实现动态托盘。
2、关闭窗体时进行隐藏操作。
3、窗体和托盘的转换通过双击实现。
4、托盘所对应主程序的应用自定。
三．源代码：
Public Class 随机数
Dim isclose As Boolean = False
Dim FistIco As Boolean = False
Dim ico1 As System.Drawing.Icon
Dim ico2 As System.Drawing.Icon
Private Sub 开始_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 开始Click
Dim a(9), i, j, n, p As Integer
Dim m As String
Randomize()
a(0) = Int(100 * Rnd()) + 1
For i = 1 To 9
p = 1
While p
Randomize()
a(i) = Int(100 * Rnd()) + 1
For j = 0 To i - 1
If a(j) = a(i) Then
Exit For
…… …… 余下全文
