Private Sub Form_Load() '窗体的导入函数，显示基本功能和单词本的基本信息

’初始化单词本（WordsList）的内容

wordName = ""

With WordsList

.TextMatrix(0, 0) = "名称"

.TextMatrix(0, 1) = "词性"

        .TextMatrix(0, 2) = "意思"

         .ColWidth(0) = 2200

         .ColWidth(1) = 1000

         .ColWidth(2) = 4450

    End With

Call WordsList_update '显示单词本（WordsList）

End Sub

Private Sub WordsList_Click() '鼠标单击WordsList控件的响应函数

’选择单词表（WordsList）中的单词 

Dim i As Integer '标记选择WordsList的第几条记录

i = WordsList.Row '获得选定的行号

'把点击单词的名称赋值给wordName

wordName = WordsList.TextMatrix(i, 0)

End Sub

Private Sub AddButton_Click() '添加单词的响应函数

AddWordForm.Show vbModal

End Sub

Private Sub EditButton_Click() '修改单词的响应函数

 '判断用户是否选择了要修改的单词

If Trim(wordName) = "" Then

MsgBox "请在列表中选择一个单词：" & Err.Description

Else

EditWordForm.Show vbModal

End If

End Sub

单击生词本的“添加”按钮，将出现如图5所示的窗体。

图5 添加生词的窗体图示