---------------个人文本+浏览器+闪光文字---------------

社区服务
高级搜索
猴岛论坛电脑百科---------------个人文本+浏览器+闪光文字---------------
发帖 回复
正序阅读 最近浏览的帖子最近浏览的版块
0个回复

---------------个人文本+浏览器+闪光文字---------------

楼层直达
3爱吗?

ZxID:22701138

等级: 下士
举报 只看楼主 使用道具 楼主   发表于: 2013-02-22 0
打手勿喷,不懂加我QQ问    
.版本 2

窗口1的源码
.程序集 窗口程序集1

.子程序 _关闭_被选择

结束 ()

.子程序 _打开_被选择

通用对话框1.类型 = 0
通用对话框1.标题 = “请选择要打开的文本”
通用对话框1.过滤器 = “文本文档(*.txt)|*.txt|所用文件(*.*)|*.*”
.如果 (通用对话框1.打开 ())
    编辑框1.内容 = 读入文本 (打开文件 (通用对话框1.文件名, , ), )

.否则

.如果结束


.子程序 _保存_被选择

通用对话框1.类型 = 1
通用对话框1.标题 = “请选择要保存的路径”
通用对话框1.过滤器 = “文本文档(*.txt)|*.txt|所用文件(*.*)|*.*”
通用对话框1.默认文件后缀 = “txt”
.如果 (通用对话框1.打开 ())
    写到文件 (通用对话框1.文件名, 到字节集 (编辑框1.内容))
.否则

.如果结束


.子程序 _普通字体_被选择

通用对话框1.类型 = 2
.如果真 (通用对话框1.打开 ())

.如果真结束
编辑框1.文本颜色 = 通用对话框1.字体颜色
编辑框1.字体.加粗 = 通用对话框1.加粗
编辑框1.字体.倾斜 = 通用对话框1.倾斜
编辑框1.字体.删除线 = 通用对话框1.删除线
编辑框1.字体.下划线 = 通用对话框1.下划线
编辑框1.字体.字体大小 = 通用对话框1.字体大小
编辑框1.字体.字体名称 = 通用对话框1.字体名称

.子程序 _横向滚动条_被选择

编辑框1.滚动条 = 1


.子程序 _纵向滚动条_被选择

编辑框1.滚动条 = 2


.子程序 _横向及纵向滚动条_被选择

编辑框1.滚动条 = 3


.子程序 _无_被选择

编辑框1.滚动条 = 0


.子程序 _闪光字体_被选择

时钟1.时钟周期 = 300


.子程序 __启动窗口_创建完毕

置随机数种子 ()

.子程序 _时钟1_周期事件

编辑框1.文本颜色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))

.子程序 _停止闪字_被选择

时钟1.时钟周期 = 0
编辑框1.文本颜色 = #黑色


.子程序 _浏览器_被选择

载入 (窗口1, , 真)


.子程序 _作者信息_被选择

信息框 (“QQ:1330383039想学的可以加我QQ”, 0, )
窗口2的源码(也就是说还要一个浏览器的源码)
.版本 2
.支持库 HtmlView

.程序集 窗口程序集2

.子程序 _按钮4_被单击

超文本浏览框1.跳转 (编辑框1.内容, , )


.子程序 _按钮1_被单击

超文本浏览框1.执行命令 (#后退)


.子程序 _按钮2_被单击

超文本浏览框1.执行命令 (#前进)


.子程序 _按钮3_被单击

超文本浏览框1.执行命令 (#刷新)

模版上传不了,有想要的加我QQ
« 返回列表
发帖 回复