简易小说阅读器的实现
㈠ 谁能帮我写个Java小项目,是简单的,就写小说TXT阅读器的好了,最少要用到流和集合。麻烦注释下可以吗
你这个需求,还叫小项目啊
用户登录
用户注册
要连接数据库,要画界面,哪有这么容易
不给钱估计没人会帮你搞的
㈡ vb编写简单的小说阅读器
简述:1、Textbox容纳量为65535bytes,不能作为载体;
2、调用 通用对话框 读取文件地址。
这里用SPL解释一下核心部分代码:
建立 私有的 程序: 单击 "打开文件" 时执行下列程序 ()
调用 通用对话框 的"打开"
如果 通用对话框 的 文件地址 的长度 !=0 , 那么
'注:“!=”是“不等于”的意思,相当于VB中的“<>”
让 富文本框 载入文件: 通用对话框 的 文件地址
完毕
完毕
备注:SPL是一种解释和编程通用的语言。
㈢ web版简易版小说阅读器制作
这里有一个现成的例子你可以参考:http://www.cnblogs.com/bluebirid/p/5812032.html
然后就是WebApp不安全,你写了半年的代码,别人几分钟就难破解盗用了!
㈣ 自己编写一个电子书阅读器这样的软件需要掌握哪些知识
鉴于你的要求一般不是专业的软件公司靠个人是很难达到那个效果和要求的
㈤ 求一个简单的电脑本地小说阅读器
精品TXT电子书阅读器V7.0.exe
你去找一下这个东西,我最近也都是用这个来看小说的,没有插件,也不大,简单明了,可存书签不是自动的,这个肯定是要我们自己保存的。但是也并不会麻烦。
㈥ 我想用java 编写一个简易的txt阅读器
你这是要需要嵌入到HTML里,还是纯java,使用applet来做。如果嵌入的话就需要使用ajax比较合算。两个都能做,不过耗时间,你要哪个
㈦ 怎么用JavaScript写一个简单的小说阅读器
<html>
<meta http-equiv="content-type" content="text/html; charset=UTF-8" />
<head>
<title></title>
<script type="text/javascript">
function Reader(content, cID, stopID, continueID) {
this.conLoad = document.getElementById(cID);
this.stopBtn = document.getElementById(stopID);
this.continueBtn = document.getElementById(continueID);
this.content = content;
this.index = 0;
var t = this;
this.stopBtn.onclick = (
function () {
return function () {
t.stopReader(t);
};
})(t);
this.continueBtn.onclick = (
function () {
return function () {
t.continueReader(t);
};
})(t);
}
Reader.prototype = {
startReader : function () {
var t = this;
t.toId = setInterval(function () {
if (t.content[t.index]) {
t.conLoad.innerHTML += t.content[t.index];
}
t.index++;
if (t.content.length == t.index) {
clearInterval(t.toId);
t.conLoad.innerHTML += "【未完待续】";
}
}, 200);
},
stopReader : function (t) {
t.flag = true;
clearInterval(t.toId);
},
continueReader : function (t) {
if (t.flag)
t.startReader();
t.flag = false;
}
};
var content = "蒙古亲王僧格林沁慓悍勇猛,他率领的军队向来号称能征惯战,八旗兵、绿营他都看不上眼,更何况那些临时招募的练勇。可偏偏就是这些他眼中的乌合之众,这些年来在江南战果累累,最终攻下了江宁,夺得了对太平军作战的全胜。" +
"相反地,他的蒙古铁骑在与捻军的角逐中常常打败仗,相形之下,昔日的声威锐减。这个一代天骄的后裔,对曾氏兄弟和湘军窝着一肚皮无名怒火。" +
"湘军进江宁后,打劫财富,屠城纵火,又放走幼天王,朝野谤讟四起,物议沸腾,僧格林沁听了十分得意,赶紧打发富明阿以视察满城为由,去江宁实地了解。谁料曾国荃一吓一贿征服了富明阿,江宁将军回去后向僧格林沁作了假汇报。";
//页面加载完成之后执行。
window.onload = function () {
new Reader(content, "content", "btnStop", "btnContinue").startReader();
};
</script>
<body>
<div id='content'></div>
<div id='operate'><input type='button' id='btnStop' value='stop'/><input type='button' id='btnContinue' value='continue'/></div>
</body>
</html>
㈧ 使用Java制作一个简易小说阅读器
你好,关于使用Java制作一个简易小说的阅读器,如果是第一次做这种小系统的话上网搜一些步骤,一步一步跟着。
㈨ 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
㈩ 求大神帮忙写一个小说阅读器的源代码
《小说快捕》,自己上网络去下载一个就好了