<![CDATA[YuLv.Net - 雨律在线 -]]> http://Www.YuLv.Net/JiaJia/ zh-cn PBlog2 v2.4 YuLv.Net - 雨律在线 - http://Www.YuLv.Net/JiaJia/images/logos.gif http://Www.YuLv.Net/JiaJia/ YuLv.Net - 雨律在线 - http://Www.YuLv.Net/JiaJia/article/368.htm <![CDATA[全免费 谷歌奥运短信提醒]]> YuLv_Soft@126.com(JiaJia) Sat,16 Aug 2008 10:15:59 +0800 http://Www.YuLv.Net/JiaJia/default.asp?id=368 通过订阅随时了解赛况。单个手机号码最多可以预订包括奖牌榜、赛地天气、单项赛况简讯在内的五类新闻，而且是免费的哦～

访问:谷歌奥运短信提醒
]]> http://Www.YuLv.Net/JiaJia/article/366.htm <![CDATA[YuLv File Pack Beta]]> YuLv_Soft@126.com(Cool-Co) Thu,07 Aug 2008 13:39:12 +0800 http://Www.YuLv.Net/JiaJia/default.asp?id=366
软件下载地址:
下载文件 点击下载此文件
]]> http://Www.YuLv.Net/JiaJia/article/365.htm <![CDATA[[2008-07-20] WarHelper_Plug Ver:0.2(盗版地图删除,字体修改)]]> YuLv_Soft@126.com(JiaJia) Mon,14 Jul 2008 22:05:25 +0800 http://Www.YuLv.Net/JiaJia/default.asp?id=365 软件功能
1、魔兽界面字体修改
2、局域网主机名修改
3、盗版魔兽地图删除

软件界面


修改局域网名称(同时还修改相关的提示语句)


---------------------------
重要提示：
请确认魔兽争霸不在运行中，若运行请关闭魔兽再开软件。
实行修改前，建议您先备份相关的MPQ文件。
---------------------------

更新日志：
0.1 -> 0.2.080720
1、增加了正版地图验证库的信息
2、完善了提示信息和功能说明
3、修改了一些小控件

下载文件 点击下载 WarHelper_Plug Ver:0.2
]]> http://Www.YuLv.Net/JiaJia/article/364.htm <![CDATA[VB Filter 函数用法]]> YuLv_Soft@126.com(JiaJia) Mon,14 Jul 2008 21:39:20 +0800 http://Www.YuLv.Net/JiaJia/default.asp?id=364
例子1：
Dim aa(10) As String
Dim bb
Dim i As Integer
For i = 0 To 9
   aa(i) = "aa" + Str(i)
Next
bb = Filter(aa, "aa")
Label1.Caption = bb(0)
Label2.Caption = bb(1)
Label3.Caption = bb(2)
这时Label1显示aa 0,Label2显示aa 1,Label3显示aa 2。bb我也不知设为什么类型，所以就没设定。

例子2：
Dim b() As String
Dim a(10) As String
Dim i As Integer
For i = 0 To 10
a(i) = Trim(Str(i))
Next i
a(1) = "5"
b = Filter(a, "5")
MsgBox UBound(b, 1)
b = Filter(a, "5")'就是将A数组中所有="5"的项附给B数组

例子3：
'用Filter函数取出有可能与所选项重复的值  
'NewArray和MatchArray都是数组，一般用在数组的筛选上！  
MatchArray = Filter(NewArray, orgArray(i), True, vbTextCompare)]]> http://Www.YuLv.Net/JiaJia/article/363.htm <![CDATA[博客程序升级，全静态页面。]]> YuLv_Soft@126.com(JiaJia) Mon,14 Jul 2008 12:11:19 +0800 http://Www.YuLv.Net/JiaJia/default.asp?id=363 http://Www.YuLv.Net/JiaJia/article/362.htm <![CDATA[教你如何点亮QQ所有图标(全部QQ图标)]]> YuLv_Soft@126.com(JiaJia) Sun,29 Jun 2008 18:38:37 +0800 http://Www.YuLv.Net/JiaJia/default.asp?id=362 目前QQ的服务越来越多，客户端上的图标也越来越多，很多朋友想点亮一些图标，但却苦于不知如何操作，对此我们整理一份图标点亮攻略送给大家。

 [Q吧]：当前Q吧积分≥0，在Q吧的社区档案登录并点击[点亮图标]按钮。（点此进入Q吧页面）

注：1、Q吧积分被扣至负分。2、连续14日未登录并未阅读Q吧帖子。两个条件满足其中之一，就会熄灭。

 [QQ堂]：QQ堂积分达到500分以上即可（点此进入QQ堂客户端下载页面）

 [财付通]：成功注册财付通并进行充值后或注册后产生相关财付通交易均可点亮。（点此进入财付通注册页面）

 [QQlive]：使用后达到三颗星星级别以上即可。（点此进入QQlive客户端下载页面）

 [QQ会员]：开通会员服务即可（点此进入开通页面，10元/月）

 [QQ空间]：开通QQ空间即可（点此进入开通页面，免费注册）

 [QQ红钻]：开通红钻服务即可（点此进入开通页面，10元/月）

 [QQ黄钻]：开通黄钻服务即可（点此进入开通页面，10元/月）

 [QQ蓝钻]：开通蓝钻服务即可（点此进入开通页面，10元/月）

 [Q堂紫钻]：开通紫钻服务即可（点此进入开通页面，10元/月）

 [音速紫钻]：开通紫钻服务即可（点此进入开通页面，10元/月）

 [QQ粉钻]：开通粉钻服务即可（点此进入开通页面，10元/月）

 [QQ绿钻]：开通绿钻服务即可（点此进入开通页面，10元/月）

[QQ黑钻]：开通黑钻服务即可（点此进入开通页面，20元/月）

注：需要使用QQ2008正式版（耐心等待）才可以在QQ上看到黑钻图标。

 [QQ宠物]：拥有QQ宠物即可（点此进入领养页面）

 [QQ音速]：该大区游戏人物等级达到6级并且点亮图标时需要扣除5颗种子。（点此进入点亮操作页面）

注：一个月内未活跃的用户将会自动熄灭QQ音速图标

 [QQ幻想]：QQ幻想角色达到10级以上即可（点此进入幻想客户端下载页面）

 [QQ三国]：游戏中，当师傅中至少有一个徒弟在线，并且徒弟等级达到20级后，方可点亮图标。（点此进入QQ三国客户端下载页面）

 [QQ华夏]：QQ华夏游戏角色达到25级即可（点此进入QQ华夏客户端下载页面）

 [QQ交友]：注册QQ交友服务即可（点此进入QQ交友注册页面）

 [QQ家园]：使用QQ空间迷你屋即可（点此进入QQ家园页面）

 [QQ相册]：注册并上传照片即可（点此进入QQ相册页面）

 [QQ播客]：登录Video页面设置即可（点此进入设置页面，免费开通）

 [QQ邮箱]：使用QQ邮箱即可（默认为不点亮，在“邮箱设置”—“点亮邮箱图标”中操作，点此进入到QQ邮箱）

 [QQ书签]： 1、必须将QQ更新2007Beta3以上版本； 2、新的QQ书签用户，书签公开收藏数达到或者超过10条即可； 3、如果你在更新QQ2007Beta3之前已经是QQ书签的用户并且公开收藏已经超过了10条，只要再收藏1条公开收藏就可以点亮了（点此进入QQ书签页面）

 [移动QQ]：开通超级QQ服务即可（点此进入开通页面，10元/月）

 [手机QQ]：使用手机QQ软件登录即可（点此进入手机QQ下载页面，免费下载）

 [Q歌Q魅]：注册服务即可（点此进入Q哥Q妹页面，目前暂时停止内测注册）

 [会员炫铃]：开通会员服务后免费设置炫铃即可（点此进入设置页面，会员功能）

 [手机绑定]：使用手机与QQ绑定后即可（点此进入绑定页面，使用Q号登录后即可操作，免费注册）

 [3DQQ秀]：注册3D秀后，在3D秀商城购买物品，保存形象即可（点此进入3D秀商城，免费注册）

 [视频标志]：电脑已安装视频设备（免费开通）

 [短信超人]：开通短信超人服务即可（点此进入开通页面，12元/月）

 [超级旋风]：QQ旋风积分达到500分以上即可（点此进入QQ旋风客户端下载页面）

 [腾讯图书]：开通腾讯图书VIP服务即可（点此进入腾讯图书VIP开通页面，5元/月）

 [手机腾讯网]：使用手机登录手机腾讯网即可（点此进入手机腾讯网介绍页面，免费访问）

 [腾讯拍拍网卖家]：在拍拍网通过卖家认证后即可（黄色拍字图标）

 [腾讯拍拍网会员]：在拍拍网上购买了1件商品并成功进行财付通付款即可（蓝色拍字图标，点此请您购物前先注册财付通，安全购物）

（特别提醒：以上两个图标每个用户只能点亮其一，若先点亮蓝色拍字图标则黄色拍字图标不能被点亮；若同时符合两个点亮规则的情况下优先点亮黄色拍字图标。）

 [滔滔]：1、成功上传头像获得叨客身份证；2、成功邀请5名QQ好友加入滔滔且成为自己的叨友；3、在滔滔的活跃天数达到15天。（点此进入页面了解如何关联手机）

注：点亮图标之后，如果1周内不发表唠叨（通过任何渠道发布均可，不一定是手机短信），则自动熄灭图标，再次点亮图标，需要先取消手机关联后再重新关联一次。

 [问问]：使用过就有资格点亮，但测试阶段只有部分用户能点亮图标（点此进入问问页面）

 [自由幻想]：需要在QQ自由幻想中注册拥有角色，并且完成转职任务后就可以点亮图标了（点此进入自由幻想客户端下载页面）

 [QQ音信]：1、使用1次或多次QQ音信业务；2、找到1位已经点亮QQ音信图标的用户，让他赠送一颗音信图标；获得赠送图标后，即可自动点亮QQ音信图标了。（点此进入QQ音信页面）

 [QQ飞车]：所有游戏角色达到12级+1800酷币的玩家都将自动点亮QQ飞车那尊贵的图标（点此进入QQ飞车客户端下载页面）

[穿越火线(CF)]：图标可升级，按个人荣誉等级点亮对应图标。（图标次序等级由低至高）。

[QQ炫舞]：只要你有内测资格，并且在游戏内达到10等级即可。下载最新的QQ2008beta1版本后，次日即可点亮神秘的QQ炫舞图标。

[QQTALK]：业务已下线，图标点亮规则撤消。
注：QQtalk图标点亮的用户在之前的规则里是不支持取消的，则无法取消该图标。

 [QQ爱墙]：QQ爱墙图标可通过用户间的赠送获得，获赠图标后将自动点亮爱墙图标点亮爱墙图标后，还可获得系统赠送的5颗图标，用以赠送给其他爱墙用户，帮他人点亮图标QQ爱墙图标有效期为2个月。点此进入爱墙图标点亮业面。点亮图标后，每购买一张爱墙字条背景，即可将图标点亮时间延长2个月。
温馨提示：需安装QQ2008 Beta1或以上版本的QQ，才能显示QQ爱墙图标。

[WAPQQ]：只要登录一次WAPQQ业务，即成为WAPQQ的尊贵用户，小图标则会在接下来的三个月中点亮。
该图标点亮后不能取消。

 [DNF]：通过QQ登陆地下城与勇士，并且游戏角色等级达到18级，即可在官网点亮地下城与勇士图标。另：不同的级别会有不同的级别标识，相关细则请点此进入查看了解。

 [飞行岛]：不删档内测期间，QQ飞行岛图标将可以提前点亮，只要达到18级，就能点亮图标，而且QQ飞行岛还推出新玩法，图标能根据级别的差异还能够变色。相关细则请点此进入查看了解。

 [CFvip]：暂时无法点亮。

 [寻仙]：暂时无法点亮。

[QQ对战平台]：暂时无法点亮。

]]> http://Www.YuLv.Net/JiaJia/article/361.htm <![CDATA[没办法了，清理友情链接！]]> YuLv_Soft@126.com(JiaJia) Wed,25 Jun 2008 11:37:34 +0800 http://Www.YuLv.Net/JiaJia/default.asp?id=361 http://Www.YuLv.Net/JiaJia/article/360.htm <![CDATA[屏幕右下角浮出式消息窗口，透明淡出效果。]]> YuLv_Soft@126.com(JiaJia) Thu,12 Jun 2008 09:00:36 +0800 http://Www.YuLv.Net/JiaJia/default.asp?id=360
引用内容 引用内容

'任务栏高度[此部分相关代码转载自 枕善居]
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_GETWORKAREA = 48

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

'透明
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2
Const LWA_COLORKEY = &H1

'延迟
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'最前
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_BOTTOM = 1
Private Const HWND_BROADCAST = &HFFFF&
Private Const HWND_DESKTOP = 0
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOP = 0
Private Const HWND_TOPMOST = -1

'可见区域
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Dim MyRect As Long
Dim MyRgn As Long

Dim X1 As Integer, Y1 As Integer
Dim X2 As Integer, Y2 As Integer
Dim OpenSpeed As Integer
Dim CloseSpeed As Integer

Dim WiteLong As Integer


Private Sub Form_Load()
'------------------------------------------------------------------
OpenSpeed = 10         '出现时速度
CloseSpeed = 10        '关闭时淡出的速度
Timer1.Interval = 10   '出现时显示平滑度
WiteLong = 30          '关闭前等待时间(秒),为0则不会自动关闭
'------------------------------------------------------------------

'计算任务栏高
Dim lRes As Long
Dim rectVal As RECT
Dim TaskbarHeight As Integer

lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)
TaskbarHeight = Screen.Height - rectVal.Bottom * Screen.TwipsPerPixelY

'确定位置
Me.Move Screen.Width * 0.75, Screen.Height * 0.75 - TaskbarHeight, _
          Screen.Width \ 4, Screen.Height \ 4

'永在最前
SetWindowPos Me.hWnd, HWND_TOPMOST, Me.Left \ Screen.TwipsPerPixelX, Me.Top \ Screen.TwipsPerPixelY, Me.Width, Me.Height, 1

'为遮蔽窗体计算坐标
X1 = 0
Y1 = Me.Width \ Screen.TwipsPerPixelX

X2 = Me.Width \ Screen.TwipsPerPixelX
Y2 = Me.Height \ Screen.TwipsPerPixelY - 1

'遮蔽部分窗体为不可见
MyRect = CreateRectRgn(X1, Y1, X2, Y2)
MyRgn = SetWindowRgn(Me.hWnd, MyRect, True)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call CloseMe(1) '以什么样的方式关闭自己，有 1-淡出 和 2-收缩 可选
Call DeleteObject(MyRect)
End Sub


Private Sub Timer1_Timer()
Y2 = Y2 - OpenSpeed

If Y2 <= 0 Then
    MyRect = CreateRectRgn(0, 0, Me.Width \ Screen.TwipsPerPixelX, Y2)
    MyRgn = SetWindowRgn(Me.hWnd, MyRect, True)
    
    Timer1.Enabled = False
    
    '----------------------
    If WiteLong <> 0 Then
      Timer2.Interval = 1000
      Timer2.Enabled = True
    End If
End If

MyRect = CreateRectRgn(X1, Y1, X2, Y2)
MyRgn = SetWindowRgn(Me.hWnd, MyRect, True)
End Sub

Private Sub Timer2_Timer()
Static NL As Integer
NL = NL + 1

If NL >= WiteLong Then Unload Me

End Sub


'==============================================
'0 - 不使用卸载效果
'1 - 使用透明淡出效果
'2 - 使用收缩效果
'==============================================
Private Sub CloseMe(Optional N As Integer = 1)
Select Case N
Case 0
    Exit Sub
Case 1
    Dim rtn As Long
    
    rtn = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
    rtn = rtn Or WS_EX_LAYERED
    SetWindowLong Me.hWnd, GWL_EXSTYLE, rtn
    
    For I = 255 To 10 Step -10
      SetLayeredWindowAttributes Me.hWnd, 0, I, LWA_ALPHA
      DoEvents
      Sleep CloseSpeed
    Next I
Case 2
    While Y2 < (Me.Height / Screen.TwipsPerPixelY)
      Y2 = Y2 + OpenSpeed
      MyRect = CreateRectRgn(X1, Y1, X2, Y2)
      MyRgn = SetWindowRgn(Me.hWnd, MyRect, True)
      Sleep OpenSpeed
    Wend
Case Else

End Select
End Sub
]]> http://Www.YuLv.Net/JiaJia/article/359.htm <![CDATA[本博客所有原创软件作品今起全部出售源代码]]> YuLv_Soft@126.com(JiaJia) Mon,09 Jun 2008 11:49:26 +0800 http://Www.YuLv.Net/JiaJia/default.asp?id=359 JiaJia 制作的原创软件作品今起全部出售源代码，价格(低价)详细咨询QQ82713957。
WarHelper 源代码
SuperFilesKiller 源代码
加加随意贴 源代码
系统安全辅助工具 - SecuFront  源代码
流行病毒木马专杀工具 - AntiPopVirus  源代码
AntiARP-DNS 源代码
JiaJia_Box3  源代码
加加邮件群发(OutLook 插件模式不视为垃圾邮件)  源代码]]> http://Www.YuLv.Net/JiaJia/article/357.htm <![CDATA[窗口处理技巧大全]]> YuLv_Soft@126.com(JiaJia) Sun,08 Jun 2008 19:06:34 +0800 http://Www.YuLv.Net/JiaJia/default.asp?id=357
引用内容 引用内容

    Vb提供了API函数SetWindowLong和GetWindowLong，可以让我们很容易取得对窗口的操作；通过对窗口属性的操作，可以更改窗口的显示风格。有些看来是正常情况下无法实现的窗口，现在你可以很容易的实现。只要你想到，更多希奇古怪的你也能做到。快试试下面的例子吧。


    '一下例子中可能用到的API声明和常量、变量声明
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    Private Const SWP_NOSIZE = &H1
    Private Const SWP_NOZORDER = &H4
    Private Const SWP_NOMOVE = &H2
    Private Const SWP_DRAWFRAME = &H20
    Private Const GWL_STYLE = (-16)
    Private Const WS_THICKFRAME = &H40000
    Private Const WS_DLGFRAME = &H400000
    Private Const WS_POPUP = &H80000000
    Private Const WS_CAPTION = &HC00000
    Private Const WS_SYSMENU = &H80000
    Private Const WS_MINIMIZEBOX = &H20000
    Private Const WS_MAXIMIZEBOX = &H10000
    Private Const WS_MINIMIZE = &H20000000
    Private Const WS_MAXIMIZE = &H1000000


--------------------------------------------------------------------------------

    '例子一：任何一个控件（只要有窗口，这是我们的前提，下同），你可以在运行时随便更改它的大小。     Private Sub ControlSize(ControlName As Control, SetTrue As Boolean)
    Dim dwStyle As Long
    dwStyle = GetWindowLong(ControlName.hwnd, GWL_STYLE)
    If SetTrue Then
        dwStyle = dwStyle Or WS_THICKFRAME
    Else
        dwStyle = dwStyle - WS_THICKFRAME
    End If
    dwStyle = SetWindowLong(ControlName.hwnd, GWL_STYLE, dwStyle)
    SetWindowPos ControlName.hwnd, ControlName.Parent.hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME
    End Sub
    '用法：ControlSize picture1,true；设置第二个参数为False取消这种设置，下同


--------------------------------------------------------------------------------

    '例子二：任何一个控件，我们都可以控制其显示风格为对话框的风格。
    Private Sub ControlDialog(ControlName As Control, SetTrue As Boolean)
    Dim dwStyle As Long
    dwStyle = GetWindowLong(ControlName.hwnd, GWL_STYLE)
    If SetTrue Then
        dwStyle = dwStyle Or WS_DLGFRAME
    Else
        dwStyle = dwStyle - WS_DLGFRAME
    End If
    dwStyle = SetWindowLong(ControlName.hwnd, GWL_STYLE, dwStyle)
    SetWindowPos ControlName.hwnd, ControlName.Parent.hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME
    End Sub
    '用法：ControlSize picture1,true


--------------------------------------------------------------------------------

    '例子三：任何一个控件，我们都可以控制其显示风格为模式对话框的风格
    Private Sub ControlModal(ControlName As Control, SetTrue As Boolean)
    Dim dwStyle As Long
    dwStyle = GetWindowLong(ControlName.hwnd, GWL_STYLE)
    If SetTrue Then
        dwStyle = dwStyle Or WS_POPUP
    Else
        dwStyle = dwStyle - WS_POPUP
    End If
    dwStyle = SetWindowLong(ControlName.hwnd, GWL_STYLE, dwStyle)
    SetWindowPos ControlName.hwnd, ControlName.Parent.hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME
    End Sub
    '用法：ControlModal Picture1,true


--------------------------------------------------------------------------------

    '例子四：任何一个控件，我们都可以给它加上标题栏，通过拖动标题栏，可以实现控件的运行时移动。
    Private Sub ControlCaption(ControlName As Control, SetTrue As Boolean)         Dim dwStyle As Long
    dwStyle = GetWindowLong(ControlName.hwnd, GWL_STYLE)
    If SetTrue Then
        dwStyle = dwStyle Or WS_CAPTION
    Else
        dwStyle = dwStyle - WS_CAPTION
    End If
    dwStyle = SetWindowLong(ControlName.hwnd, GWL_STYLE, dwStyle)
    SetWindowPos ControlName.hwnd, ControlName.Parent.hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME
    End Sub
    '用法：ControlCaption picture1,true


--------------------------------------------------------------------------------

    '例子五：任何一个控件，我们都可以给它加上ControlBox（所谓ControlBox，就是窗体的图标＋最小化＋最大化＋关闭按钮）。
    Private Sub ControlSysMenu(ControlName As Control, SetTrue As Boolean)
    Dim dwStyle As Long
    dwStyle = GetWindowLong(ControlName.hwnd, GWL_STYLE)
    If SetTrue Then
        dwStyle = dwStyle Or WS_SYSMENU
    Else
        dwStyle = dwStyle - WS_SYSMENU
    End If
    dwStyle = SetWindowLong(ControlName.hwnd, GWL_STYLE, dwStyle)
    SetWindowPos ControlName.hwnd, ControlName.Parent.hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME
    End Sub
    '用法：ControlCaption picture1,true:ControlSysmenu picture1,true
]]>