vb代码——电子书.doc

第四题 Option Explicit Public filename As String Dim strContent As String Dim lngPosition() As Long Private Sub cmdClose_Click() Me.Caption = 电子书 cmdClose.Enabled = False cmdPrevious.Enabled = False cmdNext.Enabled = False lstContent.Clear txtDetail.Text = txtScript.Text = End Sub Private Sub cmdNext_Click() If lstContent.ListIndex lstContent.ListCount - 1 Then lstContent.ListIndex = lstContent.ListIndex + 1 End If cmdPrevious.Enabled = True If lstContent.ListIndex = lstContent.ListCount - 1 Then cmdNext.Enabled = False End Sub Private Sub cmdOpen_Click() Dim str1 As String Dim lng1 As Long, lng2 As Long Dim i As Integer cd1.DialogTitle = 选择电子书目录文件 打开目录文件，读入并显示在列表框中 cd1.ShowOpen If cd1.filename = Then Exit Sub 如果用户选择“取消”，则什么也不做 filename = cd1.filename Open filename For Input As 1 lstContent.Clear Erase lngPosition strContent = Do While Not EOF(1) Line Input #1, str1 lstContent.AddItem str1 Loop ReDim lngPosition(0 To lstContent.ListCount * 2) Close 1 str1 = Left(filename, InStr(filename, .) - 1) .txt If Dir(str1) = Then MsgBox (找不到电子书文件： str1): lstContent.Clear: Exit Sub Open str1 For Input As 1 Do While Not EOF(1) Line Input #1, str1 strContent = strContent Chr(13) Chr(10) str1 读入电子书内容 Loop Close 1 lng1 = InStr(strContent, *) i = 0 Do While lng1 0 i = i + 1 lngPosition(i - 1) = lng1 lng1 = InStr(lng1 + 1, strContent, *) Loop frmMain.Caption = Left(filename, InStr(filename, .) - 1) lstContent.ListIndex = 0 cmdClose.Enabled = True cmdPrevious.Enabled = False cmdNext.Enabled = True End Sub Private Sub cmdPrevious_Click() If lstContent.ListIndex = 1 Then lstContent.ListIndex = lstContent.ListIndex - 1 End If cmdNext.Enabled = True If lstContent.ListIndex = 0 Then cmdPrevious.Enabled = F