求助字典高手帮我做个英语单词查询

renahu

附件中有几百个单词作为单词库，希望实现：设计一个窗体通过字典方式在“单词库”中查到单词，并可点击播放按钮实现单词发音播放。单词的mp3发音文件在当前目录下的“单词发音”子目录中，确定好单词的地址然后赋值给 Mp3File 即可实现播放，因本人没用过窗体，就烦劳您一并简单设计一下，先谢谢啦！
英语单词查询.rar (65.03 KB, 下载次数: 53)

2014-8-31 13:08 上传

点击文件名下载附件

蓝桥玄霜

1. Private Sub CommandButton1_Click()
   
2. Dim dc$, r1
   
3. dc = TextBox1.Text
   
4. If dc = "" Then Exit Sub
   
5. Set r1 = Sheet1.[a:a].Find(dc, , , 1)
   
6. If Not r1 Is Nothing Then
   
7.     Me.Label2.Caption = Sheet1.Cells(r1.Row, 2).Value
   
8.     Mp3File = ThisWorkbook.Path & "\单词发音" & dc & ".mp3"
   
9.     MMPlay (Mp3File)
   
10. End If
    
11. End Sub
    

复制代码

renahu

蓝桥玄霜 发表于 2014-8-31 14:08

这里不需要用到字典吗？

蓝桥玄霜

请见附件。

renahu

蓝桥玄霜 发表于 2014-8-31 14:16
请见附件。

有趣，谢谢老师，这里为什么不用到excel的字典功能？要把我的所有单词都导进去大概七八千，用字典是不是更快

山菊花

我也觉得无须用字典。

renahu

山菊花 发表于 2014-8-31 17:20
我也觉得无须用字典。

真是受宠若惊，把总版主请来了，果然与众不同，这窗体看着够专业的，就是不知道为什么无须用字典，如果所有单词加进去可是8千左右啊，以后再加肯定是要过万的

renahu

希望有个字典版的，因为excel的字典给人感觉很神奇，现在正在学蓝桥玄霜 老师的字典教学，可是一到用起来还是摸不着门，哪位老师给做个字典版的，期待。。。

renahu

今晚高手怎么都不在线啊

山菊花

用上字典，供参考。