编辑: 梦里红妆 | 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........