欢迎来到天天文库
浏览记录
ID:50289901
大小:37.02 KB
页数:3页
时间:2020-03-07
《vb课程设计-电子书代码.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、OptionExplicitPublicfilenameAsStringDimstrContentAsStringDimlngPosition()AsLongPrivateSubcmdClose_Click()Me.Caption="电子书"cmdClose.Enabled=FalsecmdPrevious.Enabled=FalsecmdNext.Enabled=FalselstContent.CleartxtDetail.Text=""txtScript.Text=""EndSubPrivateSubcmdNext_Cli
2、ck()IflstContent.ListIndex3、imiAsIntegercd1.DialogTitle="选择电子书目录文件"'打开目录文件,读入并显示在列表框中cd1.ShowOpenIfcd1.filename=""ThenExitSub'如果用户选择“取消”,则什么也不做filename=cd1.filenameOpenfilenameForInputAs1lstContent.ClearEraselngPositionstrContent=""DoWhileNotEOF(1)LineInput#1,str1lstContent.AddItemstr1LoopReDi4、mlngPosition(0TolstContent.ListCount*2)Close1str1=Left(filename,InStr(filename,".")-1)&".txt"IfDir(str1)=""ThenMsgBox("找不到电子书文件:"&str1):lstContent.Clear:ExitSubOpenstr1ForInputAs1DoWhileNotEOF(1)LineInput#1,str1strContent=strContent&Chr(13)&Chr(10)&str1'读入电子书内容LoopC5、lose1lng1=InStr(strContent,"*")i=0DoWhilelng1<>0i=i+1lngPosition(i-1)=lng1lng1=InStr(lng1+1,strContent,"*")LoopfrmMain.Caption=Left(filename,InStr(filename,".")-1)lstContent.ListIndex=0cmdClose.Enabled=TruecmdPrevious.Enabled=FalsecmdNext.Enabled=TrueEndSubPrivateSu6、bcmdPrevious_Click()IflstContent.ListIndex>=1ThenlstContent.ListIndex=lstContent.ListIndex-1EndIfcmdNext.Enabled=TrueIflstContent.ListIndex=0ThencmdPrevious.Enabled=FalseEndSubPrivateSublstContent_Click()DimiAsIntegerDimlng1AsLong,lng2AsLongtxtDetail.Text=Mid(strCon7、tent,lngPosition(2*lstContent.ListIndex)+1,lngPosition(2*lstContent.ListIndex+1)-lngPosition(2*lstContent.ListIndex)-1)txtScript.Text=Mid(strContent,lngPosition(2*lstContent.ListIndex+1)+1,lngPosition(2*lstContent.ListIndex+2)-lngPosition(2*lstContent.ListIndex+1)-18、)IflstContent.ListIndex=lstContent.ListCount-1ThencmdNext.Enabled=FalseElsecmdNext.Enabled=TrueIflstContent.ListIndex=0ThencmdPrevious.Ena
3、imiAsIntegercd1.DialogTitle="选择电子书目录文件"'打开目录文件,读入并显示在列表框中cd1.ShowOpenIfcd1.filename=""ThenExitSub'如果用户选择“取消”,则什么也不做filename=cd1.filenameOpenfilenameForInputAs1lstContent.ClearEraselngPositionstrContent=""DoWhileNotEOF(1)LineInput#1,str1lstContent.AddItemstr1LoopReDi
4、mlngPosition(0TolstContent.ListCount*2)Close1str1=Left(filename,InStr(filename,".")-1)&".txt"IfDir(str1)=""ThenMsgBox("找不到电子书文件:"&str1):lstContent.Clear:ExitSubOpenstr1ForInputAs1DoWhileNotEOF(1)LineInput#1,str1strContent=strContent&Chr(13)&Chr(10)&str1'读入电子书内容LoopC
5、lose1lng1=InStr(strContent,"*")i=0DoWhilelng1<>0i=i+1lngPosition(i-1)=lng1lng1=InStr(lng1+1,strContent,"*")LoopfrmMain.Caption=Left(filename,InStr(filename,".")-1)lstContent.ListIndex=0cmdClose.Enabled=TruecmdPrevious.Enabled=FalsecmdNext.Enabled=TrueEndSubPrivateSu
6、bcmdPrevious_Click()IflstContent.ListIndex>=1ThenlstContent.ListIndex=lstContent.ListIndex-1EndIfcmdNext.Enabled=TrueIflstContent.ListIndex=0ThencmdPrevious.Enabled=FalseEndSubPrivateSublstContent_Click()DimiAsIntegerDimlng1AsLong,lng2AsLongtxtDetail.Text=Mid(strCon
7、tent,lngPosition(2*lstContent.ListIndex)+1,lngPosition(2*lstContent.ListIndex+1)-lngPosition(2*lstContent.ListIndex)-1)txtScript.Text=Mid(strContent,lngPosition(2*lstContent.ListIndex+1)+1,lngPosition(2*lstContent.ListIndex+2)-lngPosition(2*lstContent.ListIndex+1)-1
8、)IflstContent.ListIndex=lstContent.ListCount-1ThencmdNext.Enabled=FalseElsecmdNext.Enabled=TrueIflstContent.ListIndex=0ThencmdPrevious.Ena
此文档下载收益归作者所有