vb小说阅读器
⑴ vb编写简单的小说阅读器
简述：1、Textbox容纳量为65535bytes，不能作为载体；
2、调用 通用对话框 读取文件地址。
这里用SPL解释一下核心部分代码：
建立 私有的 程序： 单击 "打开文件" 时执行下列程序 （）
调用 通用对话框 的"打开"
如果 通用对话框 的 文件地址 的长度 ！=0 ， 那么
'注：“！=”是“不等于”的意思，相当于VB中的“<>”
让 富文本框 载入文件： 通用对话框 的 文件地址
完毕
完毕
备注：SPL是一种解释和编程通用的语言。
⑵ vb 写 txt阅读器
这个是个大工程，能做到前两步也就不在乎第三步了 你要的急不急？不急的话我可以给你做！有意向联系我！
⑶ vb 写 txt阅读器 (高分80）
无语了，Txt文件用文本框打开的话，要存储阅读进度难实现啊。
⑷ 如何用VB做自动文本阅读器
你这个不是都描述得这么清楚了么？有啥问题？
⑸ 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
⑹ vb怎样设计 小说阅读器
RichTextBox1 用这个控件
如果字数多不能用text，字数少的话就没问题。
⑺ VB小说阅读器
可以用到那个RSS的技术去做啊··更新之后自动提示。
你可以把常用的小说网站放在里面，至于程序就要看你自己弄了～～
⑻ 用vb做阅读器时，怎样写 “新建书签”和“打开书签”的代码
用的是ie7嘛，能说清楚不？
一般来说基本都可以在书签内的网址用鼠标右键有个“在新窗口中打开”这个选项的吧，我用的火狐浏览器里面有这个功能。
如果是ie7的话，可以这样做，具体如下：
打开“IE7”→“工具”→“Internet选项”→“常规”→“选项卡”→“设置”：在出现的“选项卡浏览设置”对话框中将：启用选项卡式浏览、启用快速导航选项卡、打开当前选项卡旁边的新选项卡、始终在新选项卡中打开弹出窗口、当前窗口中的新选项卡，将这五项前面的勾勾上，其它的勾全部去掉，再点“确定”退出“选项卡浏览设置”，最后点“确定”退出“Internet选项”。