编辑: 梦里红妆 2014-12-31

6 BtnBG1_Middle.left = BtnBG1_Left.left +

3 BtnBG1_Right.top = BtnBG1_Left.top BtnBG1_Right.left = cx -

6 ChatBtn.top = BtnBG1_Middle.top +1 ChatBtn.Left = BtnBG1_Middle.Left PhoneBtn.top = ChatBtn.top PhoneBtn.Left = ChatBtn.Left + ChatBtn.width +

1 searchBtn.Top = ChatBtn.top searchBtn.Left = PhoneBtn.Left + PhoneBtn.width +

1 searchBtn.width = BtnBG1_Middle.width - (searchBtn.Left - BtnBG1_Middle.Left) +

18 '

第二排按钮 BtnBG2_Left.top = BtnBG1_Left.top +

21 BtnBG2_Left.left = BarFrame.left BtnBG2_Middle.top = BtnBG2_Left.top BtnBG2_Middle.width = BtnBG1_Middle.width BtnBG2_Middle.left = BtnBG2_Left.left +

3 BtnBG2_Right.top = BtnBG2_Left.top BtnBG2_Right.left = cx -

6 TeBtn.top = BtnBG2_Middle.top +1 TeBtn.Left = BtnBG2_Middle.Left GameBtn.top = TeBtn.top GameBtn.left = TeBtn.Left + TeBtn.width +

1 SysMsgBtn.top = TeBtn.top SysMsgBtn.Left = GameBtn.Left + GameBtn.width +

2 SysMsgBtn.width = BtnBG2_Middle.width - (SysMsgBtn.Left - BtnBG2_Middle.Left) +

18 '

第三排按钮 QQMain.top = BtnBG2_Left.top +

20 BtnBG3_Left.Left = QQMain.left + QQMain.Width +

1 BtnBG3_Left.top = BtnBG2_Left.top +

21 BtnBG3_Right.top = BtnBG3_Left.top BtnBG3_Right.left = cx -

6 BtnBG3_Middle.top = BtnBG3_Left.top BtnBG3_Middle.Left = BtnBG3_Left.Left +

3 BtnBG3_Middle.width = BtnBG3_Right.left - BtnBG3_Left.Left - BtnBG3_Left.width StatusBtn.top = BtnBG3_Right.top +

1 StatusBtn.left = BtnBG3_Left.Left +

2 StatusBtn.width = BtnBG3_Middle.width +12 '

当QQ面板宽度较小时,不附加在线状态的汉字显示 If

60 >

StatusBtn.width Then StatusBtn.Label = Else '

当QQ面板宽度较大时,附加在线状态的汉字显示 StatusBtn.Label = UseStatus End If '

在此处必须调用,不可省略 Window.UnLockPaint() end sub '

最小化和关闭按钮对应的事件 sub min1_onClick() Window.ExeCommand 1,2 end sub sub close1_onClick() Window.ExeCommand 1,3 end sub sub min2_onClick() Window.ExeCommand 1,2 end sub sub close2_onClick() Window.ExeCommand 1,3 end sub '

侧边四个按钮对应的事件 '

QQ好友板 sub FriendBar_onClick() Window.LockPaint '

CornerHeight =

43 '

corner.top = BarBtns.Top + CornerHeight Frie........

下载(注:源文件不在本站服务器,都将跳转到源网站下载)
备用下载
发帖评论
相关话题
发布一个新话题