打手勿喷,不懂加我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