VB.NET开发技术实验指导书
End Property
Public ReadOnly Property SelectedCount() As Integer Get
Return LstTarget.Items.Count End Get End Property
Public ReadOnly Property AvailableCount() As Integer Get
Return LstSource.Items.Count End Get End Property
Public ReadOnly Property AvailableItem(ByVal iIndex As Integer) As Object Get
Return LstSource.Items(iIndex) End Get End Property
Public Sub Add(ByVal objItem As Object) LstSource.Items.Add(objItem) End Sub
上述代码中，SelectedItem属性用于在目标列表框中读取列表项的索引属性；SelectedCount属性表示呈现在目标列表框中可使用的列表项数量；AvailableCount属性表示呈现源列表框中的列表项数量；AvailableItem属性用于在源列表框中读取列表项的索引属性；Add方法表示为源列表框增加一个列表项。
最后生成项目，创建一个包含SelectCoboControl控件的DDL文件。在需要使用SelectCoboControl控件，将该控件添加到Windows窗体中即可。
练习3：创建一个显示当前时间的自定义控件
创建一个显示当前时间的控件非常有用，当需要显示当前时间时只需在窗体中添加该控件即可，而不必去重新编写代码去实现。首先该控件首先要创建一个Windows控件库项目，并将其命名为Time，在生成的类文件中，将类的名称该为Time。在控件的设计窗体中添加一个TextBox控件和一个Timer控件，并将TextBox的ReadOnly属性设置为True，将Time控件的Enable属性设置为True，Interval属性设置为1000（表示1秒）。
接下来为要实现的功能编写代码。首先为创建的该自定义控件定义一个属性，该属性用来表示时间的显示格式。
Enum Sel As Integer Select1 Select2 select3 select4 End Enum Private Mine As Sel
Public Property Style() As Sel Get
Return Mine
27
VB.NET开发技术实验指导书
End Get
Set(ByVal Value As Sel) Mine = Value End Set End Property
上述代码中定义了一个名为Style的属性，该属性为定义的枚举类型Sel。当需要以某一种格式来显示时间时，只需在该属性中选择一种类型。下面的语句表示如何显示时间：
Private GeShi As String
Private Function Inital() As String Select Case Mine Case Sel.Select1 GeShi = Now Case Sel.Select2
GeShi = \年MMMMd日 hh:mm:ss dddd\ Case Sel.select3
GeShi = \年M月dd日 hh:mm:ss\ Case Sel.select4
GeShi = \年MMMMd日 hh:mm:ss tt\ End Select Return GeShi End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Timer1.Tick Dim CurrentTime As DateTime = DateTime.Now TextBox1.Text = CurrentTime.ToString(Inital()) End Sub
上述语句首先在Timer1的Tick事件中声明一个具有当前时间的DateTime型数据，然后将当前时间以字符串的形式在文本框中输出，其中参数Inital()表示用户希望时间显示的格式，它为Initial函数的返回值。添加上述代码后，在解决方案中生成项目，便创建了一个名为Time控件的DDL文件。下面通过示例来测试所创建的Time控件。
创建一个名为Test的Windows应用程序，在其窗体下添加一个Label和一个Time控件。如图9-2所示为默认情况下显示当前时间，图9-3所示为将新添加属性Style的值设置为select2时显示当前时间。
图9-2 默认显示当前时间 图9-3 选择不同的显示格式
28
VB.NET开发技术实验指导书
实验十 综合性设计
一、实验目的与要求
实验目的： 1．培养学生综合利用Visual Basic.Net进行程序设计的能力，主要是培养学生利用系统提供的标准控件进行创新设计，能开发一般规模的数据库管理系统。
实验要求：
1． 认真分析题目，进行总体设计和详细设计。
2．达到基本要求后，进行创新设计，增加功能等。
3． 采取自愿组合的方式，每2人为一组，从下面所给出的设计题目中任选一个题做，
而且在设计最终要提交程序电子档、实验报告电子文档及打印文档。
4．对实现的软件的要求实现的功能完整、实用性强、容易扩充，设计的界面美观、操作方便，编码规范，并且提交的软件是可安装软件。
二、实验内容
题目1：工资管理系统
1．功能需求：工资管理程序的主要任务是根据本单位当月的在册职工，按各有关工资项目的数据分别求出每个人的实发工资。为了财会管理的需要，每月还要打印各种必要的工资报表。
（1）能够存储每个职工当月的工资信息，包括部门/编号/姓名/基本工资/岗位津贴/职务补助/奖金等数据。
（2）应当具备增加人员，删除人员，修改人员，报表打印及登录、退出系统等功能。 2．设计步骤:
（1）主控模块的设计
1) 建立界面，主窗体参考界面，见图10-1所示 2) 设置界面属性 3) 设计代码
10-1 工资管理主窗体界面 图10-2 职工工资修改界面 （2）登录对话框的设计
1) 建立界面，见图10-1所示
29
VB.NET开发技术实验指导书
2) 修改代码 （3）建立数据库文件
（4）在工程中添加”数据环境” （5）“增加”模块的设计 （6）“修改”模块的设计 （7）“删除”模块的设计 （8）“浏览”模块的设计 （9）“批处理”模块的设计 （10）“打印”模块的设计 （11）工程的编译
（12）创建数据库应用程序的安装包
主要界面设计可参考图示10-2、10-3、10-4
图10-3 工资表界面
图10-4 打印工资报表及工资条控件布局
题目2：学校机房自费管理系统
1．功能需求：
基本需求功能如下：
? 基本信息管理：对学生、教师信息的添加、修改、删除、浏览和打印等。 ? 上机卡管理：上机卡的办理和删除等。
? 上机登记管理：对上机者进行登记按时间扣除相应的费用以及查看使用时间等功能。
30
VB.NET开发技术实验指导书
? 系统维护管理：对系统进行初始化操作以及用户管理等功能。 ? 帮助管理：用于显示版本、关于、开发人员信息和帮助。 2．设计步骤（部分窗体）： （1） 用户登录窗体设计
10-5 用户登陆界面
操作思路: 在用户名框中输入用户名在密码框中输入密码,单击进入系统确定用户是否正确,如果正确则进入系统(仅有三次进入机会,如果超过三次则不允许进入). （2） 主窗体设计（参考界面），见图10-6所示。
10-6 主窗体界面设计
（3）教师信息编辑窗体设计及代码设计
教师信息编辑界面设界如图10-7所示。
图10-7 教师信息编辑界面设计
31