主题:[原创]世界上首款竖排版的记事本源代码
一江秋水
[专家分:9680] 发布于 2009-04-15 08:25:00
大家知道微软的WORD可以竖排版,但记事本似乎还没有竖排版的先例。这个程序是笔者根据自己原创的一个用户控件进行了大幅修改而成的(原贴见http://bbs.pfan.cn/post-283746.html),这也许是世界上第一个具有实用价值的竖排版记事本,多有不完善之处,盼望与 VB 爱好者们共同改进。
竖排版记事本还可以装入或粘贴图片,做到图文并茂,也可将内容保存为图片或文本文件。
竖排版记事本具有文本文件浏览器功能。
请注意两点:
1.竖排版记事本采用了图片框来显示字符。由于图片框的大小有限制,所以,当字体大小确定后,能显示的字符数量也随之确定,过长的文本将会被不可恢复地截断。
2.编辑时,被选中的字符以蓝色粗体字显示,因此文本字体不要设置成相同的。
初学者可在竖排版记事本的代码中,学习到对字符操作、算法、鼠标和键盘事件的处理、滚动条的处理等方面的知识,对老鸟们也具有借鉴作用。
声明:未经笔者允许,禁止将本代码转发到其它网站,否则将追究侵权责任。
一江秋水 2009.4.15
回复列表 (共17个回复)
沙发
一江秋水 [专家分:9680] 发布于 2009-04-15 08:36:00
抱歉,在 Private Sub 背景颜色_Click() 过程中有一句 Label1.BackColor = Pic.BackColor 忘记删除了
板凳
guoyong_cy [专家分:3050] 发布于 2009-04-16 22:45:00
用picturebox做textbox,简直是开玩笑
那是重量级控件呢
3 楼
一江秋水 [专家分:9680] 发布于 2009-04-17 09:38:00
看来兄弟的思想有点僵化,岂不闻“不管白猫黑猫,抓住老鼠就是好猫”?作为尝试,即使是“开玩笑”,又未尝不可?如果你是 VB 爱好者,请把你的竖排版记事本代码发上来,也可让我学习学习啊。
4 楼
bcahzvip [专家分:6040] 发布于 2009-04-17 10:28:00
总觉得LZ走了弯路.
5 楼
一江秋水 [专家分:9680] 发布于 2009-04-17 14:24:00
不明白4楼兄弟说“走了弯路”是何意?是指程序代码上的缺陷还是指根本就不该编写这个横排版的记事本?如果是前者,请不吝指出,我已说了“盼望与 VB 爱好者们共同改进”,如果是后者,则我不敢雷同,新事物的出现总是伴随着争议的。再说,我们这是个技术论坛,大家都以提高技术的目的来的。我的职称是经济师,并不是程序员,只不过是对编程有兴趣,业余爱好罢了。其实我的爱好很广泛,例如拉小提琴、无线电维修、写作、跳舞....等等,如果哪位兄弟有与我相同的爱好,哪怕只有一项相同,咱们不妨结为网上知已,俗话说“知已难求”啊
6 楼
guoyong_cy [专家分:3050] 发布于 2009-04-17 18:36:00
[quote]如果你是 VB 爱好者,请把你的竖排版记事本代码发上来,也可让我学习学习啊。[/quote]
第一、这样排版有什么用?
第二、我对这个根本没兴趣,也难得去写!
7 楼
guoyong_cy [专家分:3050] 发布于 2009-04-17 18:43:00
晕,下了个试试,运行情况简直是乱七八糟
8 楼
一江秋水 [专家分:9680] 发布于 2009-04-17 19:17:00
你发个图上来,看是怎么个“乱七八糟”法
9 楼
老大徒伤悲 [专家分:29120] 发布于 2009-04-17 19:41:00
大力支持创作!
10 楼
天天学习 [专家分:4570] 发布于 2009-04-18 08:35:00
好像不支持鼠标拖动选择一段文字?
我来回复