的Components菜单项,选择Controls选项卡,选择MicrosoftRichTextbox6.0前的复选框,将RichTextBox控件添加到工具箱中来。在窗体Form1上添加1个Label,1个RichTextBox,1个Text和1个Data控件,将Form1,Label1的Caption属性分别设置为"即指即译的翻译器"和"单词意思",RicTextBox1的Multiline属性设置为True,清空Text1的Text属性并将其DataSource属性设置为Data1,界面如图:
2.4、程序源代码
OptionExplicit
PrivateConstEM_CHARFROMPOS=&HD7
PrivateTypePOINTAPI
XAsLong
YAsLong
EndType
PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhWndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong
PrivateSubForm_Load()
DimdbnameAsString
Data1.Visible=False
dbname=App.Path
IfRight$(dbname,1)<>"\"Thendbname=dbname&"\"
dbname=dbname&"词汇"
Data1.DatabaseName=dbname
RichTextBox1.Text="howareyou"
EndSub
PrivateSubRichtextbox1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
DimpostwipAsPOINTAPI
DimposAsInteger
Dimfirst_posAsInteger
Dimlast_posAsInteger
DimchAsString
Dimtxt1AsString
DimtextlengthAsInteger
Dimtxt2AsString
DimsqlAsString
'把位置坐标转换为像素.
postwip.X=X\Screen.TwipsPerPixelX
postwip.Y=Y\Screen.TwipsPerPixelY
'获得字符的值
pos=SendMessage(RichTextBox1.hWnd,EM_CHARFROMPOS,0&,postwip)
Ifpos>0Then
'查找单词的开始位置.
txt1=RichTextBox1.Text
Forfirst_pos=posTo1Step-1
ch=Mid$(RichTextBox1.Text,first_pos,1)
'非字母,退出循环
IfNot((ch>="a"Andch<="z")Or(ch>="A"Andch<="Z"))ThenExitFor
Nextfirst_pos
first_pos=first_pos+1
'查找单词的结尾位置
textlength=Len(txt1)
Forlast_pos=posTotextlength
ch=Mid$(txt1,last_pos,1)
'非字母,退出循环
IfNot((ch>="a"Andch<="z")Or(ch>="A"Andch<="Z"))
ThenExit
For
Nextlast_pos
last_pos=last_pos-1
'通过开始位置,结尾位置取单词
Iffirst_pos<=last_posThen
txt2=Mid$(txt1,first_pos,last_pos-first_pos+1)
EndIf
EndIf
sql="select*from词where英文='"&txt2&"'"
Data1.RecordSource=sql
Data1.Refresh
'若数据集中存在匹配单词,则显示该单词的中文意思,否则显示空串
IfData1.Recordset.BOFAndData1.Recordset.EOFThen
Text1.Text=""
Else
Text1.Text=Data1.Recordset("中文")
EndIf
EndSub
第三章毕业设计总结
历时一个多月的毕业设计终于快到了尾声,通过这次毕业设计,在老师的指导下,我初步掌握了用VB开发软件的方法,我在进行设计软件时遇到了一些困难,于是我在老师的提示和鼓励下,查资料,上网和网友进行探讨。我在程序员之家,网址为http://www.csdn.net上的论坛和高手进行交流,对我受益菲浅。此外我还登录到天极网站看了不少优秀的vb技术文章。这些对我搞好毕业设计起了至关重要的作用。在此再次感谢中央电大易瑞分校的指导老师对我的悉心指导与帮助。由于时间仓促,这个软件肯定还有不完善的地方,具体表现在以下几个方面:
1、单词库(词汇.mdb)录入的词汇太少,需要使用者自己录入。
2、用户在录入时需要启动MicrosoftAccess,非常不方便。本软件应该有一个英语单词及汉语意思录入模块。
3、运行时,本软件仅能即指即译软件文本框内的英文单词,对在其它地方出现的英文单词不能实现即指即译。
这有待我以后继续完善,继续丰富本软件的各项功能,肯请各位老师提出批评改进意见。
第四章程序运行软硬件环境
1、软件环境:操作系统是windowsxp专业版,在VisualBasic6.0编程环境下编译。
2、硬件环境:p4赛扬2.4G,DDR256M内存,60G硬盘空间。
第五章主要参考文献
1、Microsoft.MSDNLibraryVisualStudio6.0(CHS)
2、《VisualBasic开发人员指南》机械工业出版社1999年1月EricBrierley主编
3、《VisualBasic程序设计》中央电大出版2000年12月第1版陈明主编
4、《VisualBasic6.0实效编程百例》人民邮电出版社2002年7月刘韬、骆娟主编
5、《数据结构(c++描述)》中央电大出版2000年12月第1版徐孝凯主编
6、《VisualBasic程序设计》清华大学出版2002年7月第1版李大友主编
7、《VisualBasic6.0Win32API程序设计》清华大学出版社2001.9刘炳文等编
??
??
??
??
1
上一篇:
VB医院门诊管理系统(论文和程序)
下一篇:
为定制而来 欧马可快递物流一体化解决方案抢滩苏浙沪