設計小說閱讀器

⑴ vb怎樣簡單設計小說閱讀器

Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Const EM_LINESCROLL = &HB6
Private Sub Form_Load()
'以下幾個控制項屬性請在運行前設置好
'設置 Text1.ScrollBars = 2
'設置 Text1.MultiLine = True
'設置 Combo1.Style = 2
'設置 Combo2.Style = 2
With Combo1
.AddItem "宋體"
Combo1.AddItem "楷體"
Combo1.AddItem "黑體"
Combo1.AddItem "仿宋"
Combo1.AddItem "隸書"
Combo1.ListIndex = 0
End With
Dim i As Integer
For i = 8 To 72
Combo2.AddItem i
Next
Combo2.ListIndex = 0

File1.Pattern = "*.txt;*.htm;*.html;*.ini;*.bat;*.frm;*.vbp"

Timer1.Interval = 1000 '設置滾動速度1000等於一秒
Command1.Caption = "滾動"
End Sub
Private Sub Combo1_Click()
Text1.Font = Combo1.Text
End Sub

Private Sub Combo2_Click()
Text1.FontSize = Combo2.Text
End Sub

Private Sub Command1_Click()
Timer1.Enabled = IIf(Timer1.Enabled = False, True, False)
Command1.Caption = IIf(Command1.Caption = "滾動", "停止滾動", "滾動")
End Sub

Private Sub File1_Click()
Dim mpath As String
If Right(File1.Path, 1) <> "\" Then
mpath = File1.Path & "\"
Else
mpath = File1.Path
End If

Text1.Text = ReadFile(mpath & File1.List(File1.ListIndex))
End Sub

Private Function ReadFile(filePath As String) As String
Dim TempFile As Long
Dim LoadBytes() As Byte

On Error GoTo ErrCode
TempFile = FreeFile
Open filePath For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile

ReadFile = StrConv(LoadBytes, vbUnicode)
ErrCode:
MsgBox "該文件無效！"
ReadFile = ""
End Function
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Me.Drive1.Drive
End Sub

Private Sub Timer1_Timer()
SendMessage Text1.hwnd, EM_LINESCROLL, 0, ByVal 1 End Sub

⑵ 正在編寫一個軟體，小說閱讀器，急需資料庫詳細設計，求高人指點

book電子小說閱讀器 V2.3「海嘯電子小說閱讀器」又名「e-bok電子小說閱讀器」，模擬人回看書的方式，尤其適合於答閱讀各種文本格式的電子小說文件，操作簡便，界面新穎。內置有對各種段落進行智能處理的分段模塊，使用戶不用再修改原文本，方便閱讀。
請參考

⑶ vb編寫簡單的小說閱讀器

簡述：1、Textbox容納抄量為65535bytes，不能作為載體；
2、調用 通用對話框 讀取文件地址。

這里用SPL解釋一下核心部分代碼：
建立 私有的 程序： 單擊 "打開文件" 時執行下列程序 （）
調用 通用對話框 的"打開"
如果 通用對話框 的 文件地址 的長度 ！=0 ， 那麼
'註：「！=」是「不等於」的意思，相當於VB中的「<>」
讓 富文本框 載入文件： 通用對話框 的 文件地址
完畢
完畢

備註：SPL是一種解釋和編程通用的語言。

⑷ 電子書閱讀器的設計理念是什麼

理念：1、體驗屬於用戶：讓電子書閱讀成為一種生活樂趣。

2、簡潔是終極哲學：注重細節，讓電子書外觀賞心悅目。

3、存在源於認可：人們可以選擇一款與自己生活方式相符的產品進行閱讀。

在當今的時代，我覺得作為文化重要內容之一的電子書對我們來說越來越突出，社會對設計師的要求也是越來越嚴格。因此才能設計出符合國民使用的電子書閱讀器，促進電子閱讀器整個產業蓬勃發展。

⑸ 最好用的小說閱讀器是什麼自己感覺

小說閱讀器，一般的小說軟體都可以，像網路閱讀、掌閱這些都可以。在軟體回里掃描本地文本答，然後選擇你要閱讀的就可以了。
如果說的是電腦的話，WPS唄，裡面讀過後有上次閱讀記錄會自動到上次關閉的地方，也挺方便的。

⑹ 手機小說閱讀器哪個好用

1、閱讀星：

支持抄高性能滑動閱讀；支持一鍵換膚，精美皮膚隨意換；支持所見所得閱讀綜合設置；書架分類、精細管理；手機資源Wifi同步管理。採用標准zip格式製作，人人都可以參與美化，人人都是視覺專家，閱讀從此不再沉悶。

2、91熊貓看書：

使用熊貓看書，可以閱讀txt、epub、pptx、umd、ndb、ndz等多種格式的書籍。同時，設計了許多符合您個性閱讀習慣的功能，例如智能斷章、夜間模式、模擬3D翻頁特效、滾屏跳轉、閱讀配色方案等。

3、掌閱：

WiFi傳書很方便，本土化比較好，能支持多種主流格式。擁有一個超全的書庫，大概有五十餘萬本出版文學電子書，包括小說、文學、科技、少兒等原版類暢銷書，資源豐富。

4、藏書館：

這是一款免費的電子書軟體，一切你想要找的書、收費的書，這里都可以找到並免費借閱，不過開始用的時候每天只能借3本哦，所以借書需謹慎，想好了再借，不然看到想看的書就只能等到第二天再借了。

5、迅捷：

這是一個免費閱讀PDF格式電子書的閱讀器，和其他的電子書APP相比它就比較特殊啦，現在電子書的格式大多是pdf格式，這個PDF閱讀器剛好派上用場，在閱讀的過程中可以做批註，添加書簽。

⑺ 有誰畢業設計做的是小說閱讀器，給發一個看看

的是小說閱讀器，給發一個看看肯好大

⑻ vb怎樣設計 小說閱讀器

RichTextBox1 用這個控制項
如果字數多不能用text，字數少的話就沒問題。

⑼ 看小說方便的電子書閱讀器

最近發現一款
艾利和story
的電子書挺不錯的，外觀精美，還獲得了IF設計大獎呢，而且質量也有保證，你也可以考慮看看哦。