当前位置:编程学习 > VB >>

VB仿360安全卫士界面皮肤控件及一些研究

Author:Minghacker
From:www.4safer.com


归零jj传的360安全卫士界面皮肤控件,网上也有。随风工作室出的控件SFForm.dll   SFProgressBar.dll  SFTabControl.dll (作用不用解释鸟,名字那么清晰)

当然我们无法获得这些控件的源码,只要作者不乐意开源。

他给了我们一个示例。

VB仿360安全卫士界面皮肤控件及一些研究 - Minghacker - MinghackerHomeland

 

 

Private Sub Form_Load()
        Form1.Show , Me
        从文件中加载图标
        Call SFTabControl1.AddTab(100, "电脑体检", LoadImage(0, App.Path & "Resource11.ico", IMAGE_ICON, _
        0, 0, LR_LOADFROMFILE))
        Call SFTabControl1.AddTab(100, "清理插件", LoadImage(0, App.Path & "Resource22.ico", IMAGE_ICON, 0, _
        0, LR_LOADFROMFILE))
        Call SFTabControl1.AddTab(100, "修复漏洞", LoadImage(0, App.Path & "Resource33.ico", IMAGE_ICON, _
        0, 0, LR_LOADFROMFILE))
        从资源中加载图标
        Call SFTabControl1.AddTab(100, "修复漏洞", LoadIcon(App.hInstance, 100))       100是资源中图标的ID
        Call SFTabControl1.AddTab(100, "清理垃圾", LoadIcon(0, IDI_APPLICATION))
        Call SFTabControl1.AddTab(100, "清理痕迹", LoadIcon(0, IDI_HAND))
        Call SFTabControl1.AddTab(100, "修复IE", LoadIcon(0, IDI_QUESTION))
        Call SFTabControl1.AddTab(100, "高级工具", LoadIcon(0, IDI_EXCLAMATION))
        SFTabControl1.DefaultTab = 2                                                    将索引为2的条目设置为选择状态
End Sub

自动add7个tab loadicon,没什么研究之处

Private Sub Timer1_Timer()
        Static dwCount As Long
        If SFProgressBar1(0).Value < SFProgressBar1(0).Max Then
           SFProgressBar1(0).Value = SFProgressBar1(0).Value + 1
        Else
           SFProgressBar1(0).Value = SFProgressBar1(0).Min
           dwCount = dwCount + 1                                                        累计次数
        End If
        If SFProgressBar1(1).Value > SFProgressBar1(1).Min Then
           SFProgressBar1(1).Value = SFProgressBar1(1).Value - 1
        Else
           SFProgressBar1(1).Value = SFProgressBar1(1).Max
        End If
        If dwCount < SFProgressBar1(2).Max Then
           SFProgressBar1(2).Value = dwCount
        Else
           dwCount = SFProgressBar1(2).Min                                              累计次数清0
           SFProgressBar1(2).Value = dwCount
        End If
End Sub


进度条的控制,也没什么- -

很简单,没什么讲

调试时候遇到2个小问题

1。控件无法拖到。主要我copy 一个progressbar时候无法拖动。

很久没碰vb,很多玩却鸟。百度得知是控件锁住鸟,哎,弱智- -

右键点form  锁定控件  切换 --


2。拖动鸟。拖动progressbar 出现幻影,F5一下,发现根本没拖动鸟,fuck。研究下mainform发现这个progressbar貌似只能在其他控件上,在form上拖动不鸟???bug???

 

 

VB仿360安全卫士界面皮肤控件及一些研究 - Minghacker - MinghackerHomeland

 

 

 


填上一个picturebox,add progressbar ,ok- -

  13 分钟前 上传下载 (53.61 KB)

VB仿360安全卫士界面皮肤控件及一些研究 - Minghacker - MinghackerHomeland

乱改改,改出乱样子
  7 分钟前 上传下载 (45.76 KB)

VB仿360安全卫士界面皮肤控件及一些研究 - Minghacker - MinghackerHomeland

源码发给大家共享,研究。

大家若是发现这个控件源码可以来论坛共享。

 vb 仿360安全卫士界面皮肤控件.rar 10 分钟前 上传下载 (287.77 KB)

附件下载地址:http://www.4safer.com/forum.php?mod=viewthread&tid=501&extra=page%3D1


/ 本文转自4safer安全社区

补充:软件开发 , Vb ,
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,