设计小说阅读器

⑴ 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设计大奖呢，而且质量也有保证，你也可以考虑看看哦。