【linux read源码】【rtspserver源码】【metro源码】状态栏美化工具源码在哪_状态栏美化软件下载

1.720浏览器的状态更新日志
2.如何用记事本编程

状态栏美化工具源码在哪_状态栏美化软件下载

720浏览器的更新日志

       V1.0.1(--):

       - 浏览器首个版本发布。

       - 主要功能:

        1. 广告拦截功能(主要针对视频、栏美页面、化工弹窗广告)。具源

        2. 可选择性广告拦截功能。码状美化

        3. 游戏辅助功能。态栏linux read源码

        4. 游戏加速功能。软件

        5. 游戏自动喊话功能。下载

        6. 老板键功能。状态

        7. 页面静音功能。栏美

       V1.0.3(--):

       - 新增功能:

        1. 增加历史记录、化工源码查看的具源快捷键。

        2. 修复了一些浏览器的码状美化bug。

        3. 更新了浏览器上部分的态栏。

        4. 修改了不能上传脚本的软件bug。

       V1.0.5(--):

       - 新增功能:

        1. 更新拦截广告数据。

        2. 更新URL历史窗口中的关闭按钮素材。

        3. 修改停止加载按钮出现时机。

        4. 完善移动标签的功能。

        5. 完善创建标签和删除标签时的平滑特效。

        6. 修复开启浏览器URL框光标跳离的BUG。

       V1.0.6(--):

       - 新增功能:

        1. 新增浏览器截图功能。

        2. 增加游戏医生清除缓存功能。

        3. 修复了一些浏览器的rtspserver源码bug。

        4. 优化历史搜索功能。

        5. 修复签到错误的问题。

        6. 修复收藏夹和历史记录选中项无变色的问题。

       V1.0.7(--):

       - 新增功能:

        1. 更新广告拦截规则。

        2. 修复崩溃问题。

        3. 修复不稳定问题。

        4. 提升性能。

        5. 优化新增标签页。

        6. 美化桌面快捷方式的图标。

       V1.0.8(--):

       - 新增功能:

        1. 增加换肤相关功能。

        2. 更换历史记录图标。

        3. 下载管理更新,从下载操作后关闭下载弹出页面。

        4. 添加标签右键菜单的几个功能项的快捷键说明。

        5. 添加收藏重复URL过滤。

        6. 修复优酷每点一次验证码都会出一条历史记录的问题。

        7. 修改普通账号登录问题。

        8. 修复游戏医生各窗口第一次显示时闪烁的问题。

       V1.0.9(--):

       - 新增功能:

        1. 增加智能填表功能。

        2. 增加页面上打开游戏辅助功能。

        3. 增加分享功能。

        4. 增加无痕浏览。

        5. 增加标签栏加载过程动画。metro源码

        6. 主菜单增加Internet选项设置。

        7. 增加桌面快捷方式提示窗口。

        8. 解决浏览器关闭慢的问题。

        9. 修改自动刷新设置时间太短出现的问题。

        . 修改有些机器不能打开浏览器的问题。

        . 优化地址栏响应速度。

       V1.0.(--):

       - 新增功能:

        1. 标签栏右键菜单增加状态栏显示隐藏功能,避免游戏画面被挡住。

        2. 游戏助手点击在标签栏打开,进入辅助的详细介绍页面。

        3. 修复游戏辅助不存在时可能崩溃的BUG。

        4. 优化浏览器稳定性。

        5. 修复进入神曲等游戏显示没有安装FLASH的问题。

       V2.0.0(--):

       - 新增功能:

        1. 更新升级内核。

        2. 修复以前可能会出现的崩溃现象。

        3. 大幅度优化浏览器的稳定性。

        4. 优化加载速度和响应速度。

        5. 支持“说吧”免费网络电话使用。

       V.1.0.0(--):

       - 新增功能:

        1. 添加应用商城。

        2. 解决快捷方式、注册表、图标等问题。

        3. 完善QQ登录和注册。NBASE源码

        4. 游戏辅助增加界面支持。

        5. 最小化启动支持。

       V.2.0.0(--):

       - 新增功能:

        1. 增加账号盒子、游戏加速、截图功能。

        2. 增加自动喊话功能。

        3. 增加鼠键录播功能。

        4. 账号盒子增加登录功能。

        5. 主页、游戏大厅、帮助等连接内容修改。

        6. 新建标签页导航修改。

       V.3.0.0(--):

       - 新增功能:

        1. 增加状态栏(合并原来的状态条)。

        2. 增加状态栏工具(系统信息查看、下载管理、IE打开、游戏医生、页面缩放)。

        3. 增加收藏夹导入功能。

        4. 修改地址栏默认搜索为百度。

        5. 修改游戏辅助插件。

        6. 修复一些导致崩溃的bug。

       V.4.0.0(--):

       - 新增功能:

        1. 增加追剧功能。pudnide源码

        2. 增加闹铃功能。

        3. 增加换肤功能。

        4. 增加竞猜功能。

        5. 增加状态栏隐藏、显示的功能。

        6. 去掉消息提示的托盘。

        7. 优化启动速度。

        8. 优化游戏辅助功能。

        9. 修复网页缩放选择时异常的问题。

        . 修复加速崩溃的问题。

        . 修复外网IP显示异常的问题。

        . 修复书签导入失败的问题。

        . 升级截图功能(清除页面元素、截取屏幕)。

如何用记事本编程

       跟我学做记事本-编程实例

       用VB做一个记事本实在不很复杂,我们完全可以通过向导来很方便地做出来。但本文只打算讨论用手动方法制作记事本,旨在向VB初学者展示:学VB原来是如此容易!

       通过阅读、研究本文并按本文所述进行尝试,初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件,怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。

       第一章 让我们的记事本马上运行

       急于求成是初学者共有的心愿。那好,请按如下三个步骤做,我们的愿望立即就可以实现!

       步骤一:绘制界面。

       新建一个标准EXE工程,将其Caption属性改为“超级记事本”,点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”,在弹出的“部件”对话框里找到Microsoft

       RichText Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们,单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichText

       Box和Commn Dialog,其中RichText Box的大小和位置可不用理睬,我们将在代码中处理它,当然,有必要把它的ScrollBar属性设为2-rtfVertical,这样在打开和编辑文件时垂直滚动条才可用。

       步骤二:编辑菜单。

       按Ctrl+E调出菜单编辑器,我们来做如下几个菜单:

       一.文件菜单:

       文件(第一层) mnuFile

       新建(第二层) mnuNew

       打开(第二层) mnuOpen

       保存(第二层) mnuSave

       - (第二层) mnuFileSep (分隔线)

       退出(第二层) mnuExit

       二.编辑菜单:

       编辑(第一层) mnuEdit

       复制(第二层) mnuCopy

       剪切(第二层) mnuCut

       粘贴(第二层) mnuPaste

       - (第二层) mnuEditSep (分隔线)

       全选(第二层) mnuSelecAll

       三.搜索菜单:

       搜索(第一层) mnuSearch

       查找(第二层) mnuFind

       查找下一个(第二层) mnuFindOn

       四.帮助菜单:

       帮助(第一层) mnuHelp

       使用说明(第二层) mnuUsage

       关于(第二层) mnuAbout

       (注:各菜单项的快捷键请自行设置)

       好了,其它的菜单项以后再根据需要添加。现在进入:

       步骤三:编写代码。

       '声明查找变量

       Dim sFind As String

       '声明文件类型

       Dim FileType, FiType As String

       '初始化程序

       Private Sub Form_Load()

       '设置程序启动时的大小

       Me.Height =

       Me.Width =

       End Sub

       '设置编辑框的位置和大小

       Private Sub Form_Resize()

       On Error Resume Next '出错处理

       RichTextBox1.Top=

       RichTextBox1.Left=

       RichTextBox1.Height = ScaleHeight-

       RichTextBox1.Width = ScaleWidth-

       End Sub

       '新建文件

       Private Sub mnuNew_Click()

       RichTextBox1.Text = "" '清空文本框

       FileName = "未命名"

       Me.Caption = FileName

       End Sub

       '打开文件

       Private Sub mnuOpen_Click()

       CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"

       CommonDialog1.ShowOpen

       RichTextBox1.Text = "" '清空文本框

       FileName = CommonDialog1.FileName

       RichTextBox1.LoadFile FileName

       Me.Caption = "超级记事本:" & FileName

       End Sub

       '保存文件

       Private Sub mnuSave_Click()

       CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"

       CommonDialog1.ShowSave

       FileType = CommonDialog1.FileTitle

       FiType = LCase(Right(FileType, 3))

       FileName = CommonDialog1.FileName

       Select Case FiType

       Case "txt"

       RichTextBox1.SaveFile FileName, rtfText

       Case "rtf"

       RichTextBox1.SaveFile FileName, rtfRTF

       Case "*.*"

       RichTextBox1.SaveFile FileName

       End Select

       Me.Caption = "超级记事本:" & FileName

       End Sub

       '退出

       Private Sub mnuExit_Click()

       End

       End Sub

       '复制

       Private Sub mnuCopy_Click()

       Clipboard.Clear

       Clipboard.SetText RichTextBox1.SelText

       End Sub

       '剪切

       Private Sub mnuCut_Click()

       Clipboard.Clear

       Clipboard.SetText RichTextBox1.SelText

       RichTextBox1.SelText = ""

       End Sub

       '全选

       Private Sub mnuSelectAll_Click()

       RichTextBox1.SelStart = 0

       RichTextBox1.SelLength = Len(RichTextBox1.Text)

       End Sub

       '粘贴

       Private Sub mnuPaste_Click()

       RichTextBox1.SelText = Clipboard.GetText

       End Sub

       '查找

       Private Sub mnuFind_Click()

       sFind = InputBox("请输入要查找的字、词:", "查找内容",

       sFind)

       RichTextBox1.Find sFind

       End Sub

       '继续查找

       Private Sub mnuFindOn_Click()

       RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1

       RichTextBox1.Find sFind, , Len(RichTextBox1)

       End Sub

       '使用说明

       Private Sub mnuReadme_Click()

       On Error GoTo handler

       RichTextBox1.LoadFile "Readme.txt", rtfText '请写好Readme.txt文件并存入程序所在文件夹中

       Me.Caption = "超级记事本:" & "使用说明"

       Exit Sub

       handler:

       MsgBox "使用说明文档可能已经被移除,请与作者联系。",

       vbOKOnly, " 错误信息"

       End Sub

       '关于

       Private Sub mnuAbout_Click()

       MsgBox "超级记事本 Ver1.0 版权所有(C) 土人",vbOKOnly,"关于"

       End Sub

       '设置弹出式菜单(即在编辑框中单击鼠标右键时弹出的动态菜单)

       Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As

       Single, Y As Single)

       If Button = 2 Then

       PopupMenu mnuEdit, vbPopupMenuLeftAlign

       Else

       Exit Sub

       End If

       End Sub

       '防止在切换输入法时字体自变(感谢王必成先生提供此方案)

       Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)

       If KeyCode = vbKeySpace Then

       RichTextBox1.SelFontName = CommonDialog1.FontName

       End If

       End Sub

       至此,我们的记事本可以编译使用了。点击菜单“文件”-“生成XXX.EXE”,回到桌面运行我们的记事本看看,是不是颇有成就感?

       当然,这样的记事本还比较粗糙,我们还需要做些工作,请看下一章。

       第二章 美化程序界面

       多数字处理软件都有工具栏和状态栏。工具栏和状态栏除了能美化我们的程序使其更具有专业性质外,还给用户带来操作上的便利。现在我们就来做一做这两样东西。

       一.工具栏

       (一)制作工具栏

       单击“工程”-“部件”,选中Microsoft Windows Common Control 6.0并确定。这时,我们要用到的控件就出现在左边的工具栏上了。

       要做工具栏,首先需要一个叫ImageList的控件来装载图像。在程序界面上添加它,然后右键单击此控件,左键单击“属性”,弹出“属性页”对话框的“图像”,再单击“插入”就可以一次性装载了(如不满意,以后还可以添加)。可在C:Microsoft

       Visual StudioCommonGraphicsBitmapsTlBr_W下选择(这里假设你的VB安装在C盘下)。注意了:在插入时给每一张注明关键字,以便在引用时不至于混乱。如插入“新建”的,我们在“关键字”栏注明“New”。

       有了,接下来在程序界面添加工具栏(ToolBar)。添加后工具栏就出现在菜单下面,右键单击它,选择“属性”,在弹出的“属性页”对话框中的“通用”项作些设置,主要如下两项:

       1.“图像列表”:选择ImageList1

       2.“样式”:根据喜爱选择1-trbStandard或者2-trbFlat

       继续点击“属性页”的“按钮”选项,插入若干按钮。按钮有多种样式,请根据需要设置。这里请一定注意:每一个与用户操作有关的按钮都必须注明关键字、装载,如“新建”按钮,在“关键字”项注明“新建”,在“图像”项键入“New”(即ImageList1中的关键字),需要的话还可以在“工具提示文本”项填入适当的提示语。

       (二)编写工具栏的按钮代码

       工具栏按钮的代码编辑很简单,可以按照下面的格式去编写:

       Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)

       On Error Resume Next '出错处理

       Select Case Button.Key '按关键字选择

       Case "新建"

       mnuNew_Click '等于菜单项“新建”被单击

       Case "打开" '等于菜单项“打开”被单击

       mnuOpen_Click

       '......(继续编写其它按钮的代码)

       End Select

       End Sub

       完成后试运行一下我们的程序,我们发现,有了工具栏之后,程序变得漂亮多了,只是有一个问题:打开一个较长的文档后,编辑框的下拉滚动条向上的箭头不见了。原因是:工具条占用一定的空间。解决方法:将“设置编辑框的位置和大小”中的RichTextBox1.Top

       = 和 RichTextBox1.Height = Me.ScaleHeight - 分别改为RichTextBox1.Top =

       ,RichTextBox1.Height = Me.ScaleHeight - 即可。

       二.状态栏

       (一)制作状态栏

       状态栏的英文名字叫StatusBar,在窗体上添加它后会默认出现在窗体的最下方。用鼠标右键点击它,调出“属性页”对话框,单击“窗格”项,插入一些窗格,可以将各个窗格的“样式”设置为:

       0-sbrText 显示文本,需编写代码

       1-sbrCaps 显示大小写状态,无需编程

       2-sbrNum 显示NumLock键开关状态,无需编程

       3-sbrIns 显示Insert键状态,无需编程

       4-sbrScr1

       5-sbrTime 显示时间,不编程时时间不会随系统时钟变化

       6-sbrDate 显示日期,无需编程

       注意:加进状态栏后需将Form_Resze中的RichTextBox1.Height =

       Me.ScaleHeight - 改为RichTextBox1.Height = Me.ScaleHeight - 。

       (二)状态栏根据其“样式”属性决定用不用编写代码(如上文所述)。下面举些例子,读者可以认真揣摩,从而达到举一反三的效果。

       例一:用户选取了“新建”后,让第一个窗格显示:“目前状态:正在打开文件《……》”。请将下面代码写进“打开”菜单里面:

       StatusBar1.Panels(1).Text = "目前状态:正在打开文件"

       & "《" &CommonDialog1.FileTitle & "》"

       例二:让第三个窗格显示时间并让时间跟随系统时钟变化。

       首先,给程序加一个Timer控件,将其Interval属性设为。然后:

       在Form_Load过程加入:StatusBar1.Panels(1).Text = Time;然后给Timer控件编写代码:

       Private Sub Timer1_Timer()

       If StatusBar1.Panels(3).Text <> CStr(Time) Then

       StatusBar1.Panels(3).Text = Time

       End If

       End Sub

       例三:当编辑框的文本发生变化时让第一个窗格显示:“正在编辑文档:文件名”。

       Private Sub RichTextBox1_Chang()

       StatusBar1.Panels(1).Text = "正在编辑文档:" &

       CommonDialog1.FileName

       End Sub

       辛苦了那么久,我们现在已经拥有一个象模象样的记事本了。这个记事本由于用了RichText控件,理论上它能打开和编辑任意大的文档,使用起来的确比Windows自带的记事本方便得多。当然,还有一些其它的功能需要添加和完善,这就靠你慢慢去完成了。

更多内容请点击【热点】专栏

精彩资讯