VB仿360安全卫士界面皮肤控件及一些研究
Author:Minghacker
From:www.4safer.com
归零jj传的360安全卫士界面皮肤控件,网上也有。随风工作室出的控件SFForm.dll SFProgressBar.dll SFTabControl.dll (作用不用解释鸟,名字那么清晰)当然我们无法获得这些控件的源码,只要作者不乐意开源。
他给了我们一个示例。
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???
填上一个picturebox,add progressbar ,ok- -13 分钟前 上传下载 (53.61 KB)
乱改改,改出乱样子
7 分钟前 上传下载 (45.76 KB)源码发给大家共享,研究。
大家若是发现这个控件源码可以来论坛共享。
vb 仿360安全卫士界面皮肤控件.rar 10 分钟前 上传下载 (287.77 KB)
附件下载地址:http://www.4safer.com/forum.php?mod=viewthread&tid=501&extra=page%3D1
/ 本文转自4safer安全社区
补充:软件开发 , Vb ,