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選項」。