㈠ vb編寫簡單的小說閱讀器
簡述：1、Textbox容納抄量為65535bytes，不能作為載體；
2、調用 通用對話框 讀取文件地址。
這里用SPL解釋一下核心部分代碼：
建立 私有的 程序： 單擊 "打開文件" 時執行下列程序 （）
調用 通用對話框 的"打開"
如果 通用對話框 的 文件地址 的長度 ！=0 ， 那麼
'註：「！=」是「不等於」的意思，相當於VB中的「<>」
讓 富文本框 載入文件： 通用對話框 的 文件地址
完畢
完畢
備註：SPL是一種解釋和編程通用的語言。
㈡ VB寫一看小說的軟體
用RichTextBox控制項，功能十分強大！用法和Text差不多，自己看看就基本會了。
㈢ VB語言編寫網路小說，誰有軟體
我怎麼都不知道VB語言還能編寫成小說的,難道是下面類型的?
if 主角 is 被雷劈 then return 穿越=true
㈣ 用VB語言寫小說的原理
'vb建立隨機短語組合
'示例代碼，事先需要建立配置短語.txt輸入短語「大地星星愛我們喜歡...」等等
'將代碼保存為.vbs文件運行
Dimfso
Setfso=CreateObject("Scripting.FileSystemObject")
setfrn=fso.opentextfile("配置短語.txt",1)
Randomize
strTemArray=frn.readline
strArray=Split(strTemArray)
''確定數組大小
foreachkeyinstrArray
intCount=intCount+1
next
''隨機輸出數組
RedimboolStr(intCount-1)
Whilecount<=(intCount-1)
num=int(rnd*intCount)
ifboolStr(num)=Falsethen
juzi=juzi&strArray(num)
boolStr(num)=True
count=count+1
endif
Wend
Setie=CreateObject("InternetExplorer.Application")
ie.Navigate"about:blank"
ie.Document.ParentWindow.ClipboardData.SetData"text",juzi
SetWshShell=CreateObject("Wscript.Shell")
WshShell.Run"Notepad.exe"
WSH.Sleep100
WshShell.SendKeys"^(v)"
簡單來說就是三個階段的工作：
1、首先是要建立詞彙字典
比如說人名，形容詞，動詞等等的詞彙集合，
就像有人便翻新華字典，邊給小孩取名字一樣，字典就是他的詞庫。
這個可以利用詞彙詞典，或者從網上現成的作品中提取來實現，是一個相對容易的階段。
2、利用 vb（其實任何支持文本操作的 編程語言都可以）建立隨機組合文本的程序。當然還是要有一個規則，比如：
名詞+動詞+形容詞+動詞+形容詞
或者
人名+動詞+形容詞
（這個階段是個廢腦筋，建立規則的階段，資料庫和代碼的技術相對來說是比較成熟的。）
3、程序生成的文本很多都是詞不達意的，所以要進行後期的校對修繕（這是最關鍵，也是最耗時的階段），你提到的那個小說其實現在都還在修改中吧。
㈤ vb語言入門用什麼書籍好
vb6的話可以看看美國人寫的《visual basic傻瓜書》
vb.net的話可以看看美國人寫的《Visual Basic 2010入門經典》
㈥ 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語言編寫這個程序
dim n as integer
dim s as intger
Private Sub Command1_Click()
Do
n = n + 1
s = s + n
Loop untill s>=30000
Print n - 1
End Sub
㈧ vb能編寫大型網路游戲嗎
大型網路游戲肯定是運用多種編程語言而產生的，vb對於編寫游戲並無優勢，，，你說的應該不行
㈨ vb語言小說生成
VB要是能生成小說，那還要那些個作家作甚？
弄個小說採集的話還是可以的。需要的話,回復我，我有現成的
㈩ vb大神，怎樣用vb編寫簡單的小說閱讀器
RichTextBox1=「我是小說。」
用這個控制項！！