现在的电子词典类软件非常多。在使用这些软件的同时，你是否想到要编写能满足个人特殊要求的电子词典呢？下面是用ＶＢ编写的电子词典。
新建一工程，新建表（数据库和表的名称假设均为ｄｉｃ），添加４个字段ｗｏｒｄ、ｐｒｏ、ｐａｒａ、ｅｘａ，分别用来存储单词、音标、释义、例句，点击“生成表”，数据库就搞定了。
在窗体（ｆｒｍｍａｉｎ）上添加数据控件（ｄａｔｄｉｃ），设置ｄａｔａｂａｓｅｎａｍｅ 和ｒｅｃｏｒｄｓｏｕｒｃｅ
，添加５个文本框（ｔｘｔｗｏｒｄ、ｔｘｔｐａｒａ、ｔｘｔｅｘａ、ｔｘｔｐｒｏ、ｔｘｔｓｅｅｋ）。
音标的处理是本程序的核心内容。由于很多音标“模样”奇特，不好用字符代替，因此必须以图片的方式来输入和显示。
这样，每个音标（包括重音符号）对应惟一的索引值。通过程序，把音标上的一系列的点击转换为一系列的索引值存储在数据库的ｐｒｏ
字段中，检索、浏览单词时，再通过程序把一系列的索引值转换为一系列的音标图形显示出来就实现了音标的输入和输出功能。
在ｐｐ 的ｃｌｉｃｋ 事件中，编写实现音标输入的程序。
在窗体上添加如图所示的４个按钮（ｃｍｄａｄｄ ，ｃｍｄ—ｃｌｅａｒ ，ｃｍｄｄｅｌ ，ｃｍｄｅｎｄ），以完善词典的功能。剩下的事件
过程很简单，列表如下：
对象Ｃａｐｔｉｏｎ 事件事件过程
ｃｍｄａｄｄ 添加新词ｃｌｉｃｋ ｉ ｍａｇｅｃ ＝０
Ｄａｔｄｉｃ ．Ｒｅｃｏｒｄｓｅｔ ．ＡｄｄＮｅｗ
Ｃｍｄｃｌｅａｒ 清除音标ｃｌｉｃｋ Ｄｉ ｍｉ Ａｓ Ｉｎｔｅｇｅｒ
ｉ ｍａｇｅｃ ＝０
ｔｘｔｐｒｏ ．Ｔｅｘｔ ＝″″
Ｆｏｒ ｉ ＝０Ｔｏ １４
Ｐｓ（ｉ）．Ｖｉｓｉｂｌｅ ＝Ｆａｌｓｅ
Ｎｅｘｔ
Ｃｍｄｄｅｌ 删除该词ｃｌｉｃｋ Ｄａｔｄｉｃ ．Ｒｅｃｏｒｄｓｅｔ ．Ｄｅｌｅｔｅ
Ｉｆ Ｎｏｔ Ｄａｔｄｉｃ ．Ｒｅｃｏｒｄｓｅｔ ．ＥＯＦ
Ｔｈｅｎ
Ｄａｔｄｉｃ ．Ｒｅｃｏｒｄｓｅｔ ．ＭｏｖｅＮｅｘｔ
Ｅｌｓｅ
Ｄａｔｄｉｃ ．Ｒｅｃｏｒｄｓｅｔ ．ＭｏｖｅＬａｓｔ
Ｅｎｄ Ｉｆ
Ｆｏｒｍｌｏａｄ ｉ ｍａｇｅｃ ＝０
Ｔｘｔｓｅｅｋ ｃｈａｎｇｅ Ｄａｔｄｉｃ ．Ｒｅｃｏｒｄｓｅｔ ．ＦｉｎｄＦｉｒｓｔ″ｗｏｒｄ ＝″＆Ｔｒｉ ｍ（ｔｘｔｓｅｅｋ．Ｔｅｘｔ）＆″″
ｃｍｄｅｎｄ 退出ｃｌｉｃｋ ｅｎｄ
这样一个令人羡慕的“五脏俱全”的小词典就诞生了。
（浙江海盐县核电秦山联营有限责任公司董治国３１４３００）