vb课程设计-电子书代码.doc

《vb课程设计-电子书代码.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、OptionExplicitPublicfilenameAsStringDimstrContentAsStringDimlngPosition()AsLongPrivateSubcmdClose_Click()Me.Caption="电子书"cmdClose.Enabled=FalsecmdPrevious.Enabled=FalsecmdNext.Enabled=FalselstContent.CleartxtDetail.Text=""txtScript.Text=""EndSubPrivateSubcmdNext_Cli

2、ck()IflstContent.ListIndex

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