【文章內(nèi)容簡(jiǎn)介】 s Dim StatusIcon Dim showbar Dim Path Dim strMailTip BottomHeight = 61 39。加載皮膚事件，包括 ：“ 好友面板”、離線狀態(tài)、 2020 皮膚、顯示側(cè)邊框， 號(hào)碼和郵件數(shù)目 sub Window_OnInit() 2020皮膚制作幫助手冊(cè) 共 44 頁(yè) —— 第 13頁(yè) = True = False = False = False = False StatusIcon = UseStatus = 離線 Path = skins\\2020\\ UseNum = 0 strMailTip = 0 封未收 showbar = true end sub 39。改變窗體大小事件， 當(dāng) 面板被上 下左右拉縮、長(zhǎng)短寬窄發(fā)生變化后，各部分的相對(duì)位置及皮膚制作過程中要改變的各部分和按鈕的位置，需在此進(jìn)行修改 sub Window_OnSize(cx,cy) 39。在此處必須調(diào)用，不可省略 () = cx 2 = cy = cx = cy 5 39。是否顯示側(cè)邊框 if showbar = True then = True = True = + 1 =44 else = False = False = 4 = 30 end if = = cx = cx = 2020皮膚制作幫助手冊(cè) 共 44 頁(yè) —— 第 14頁(yè) = cx = cy 5 = = cx 6 = cy 1 = cx 10 = 1 = cy 23 = +2 = cy 21 = cy 193 39。邊框 = + 3 = cx 3 = cy bottomheight 3 = 4 = 2 = 2 = = = 5 = = 7 = 7 39。 號(hào)碼 = UseNum 39。 郵件數(shù)目 = strMailTip 39。MaxWidth = 9 39。offset = MaxWidth 39。if offset0 then 39。 = offset 39。end if 2020皮膚制作幫助手冊(cè) 共 44 頁(yè) —— 第 15頁(yè) = 6 = 37 = = = = = = 39。第一排 按鈕 = + = = = 6 = + 3 = = cx 6 = +1 = = = + + 1 = = + + 1 = ( ) + 18 39。第二排 按鈕 = + 21 = = = = + 3 = = cx 6 = +1 = = = + + 1 = = + + 2 = ( ) + 2020皮膚制作幫助手冊(cè) 共 44 頁(yè) —— 第 16頁(yè) 18 39。第三排 按鈕 = + 20 = + + 1 = + 21 = = cx 6 = = + 3 = = + 1 = + 2 = +12 39。當(dāng) 面板寬度較小時(shí)，不 附加在線狀態(tài)的漢字顯示 If 60 Then = Else 39。當(dāng) 面板寬度較大時(shí)，附加在線狀態(tài)的漢字顯示 = UseStatus End If 39。在此處必須調(diào)用，不可省略 () end sub 39。最小化和關(guān)閉按鈕 對(duì)應(yīng)的事件 sub min1_onClick() 1,2 end sub sub close1_onClick() 1,3 end sub sub min2_onClick() 1,2 end sub 2020皮膚制作幫助手冊(cè) 共 44 頁(yè) —— 第 17頁(yè) sub close2_onClick() 1,3 end sub 39。側(cè)邊四個(gè)按鈕對(duì)應(yīng)的事件 39。 好友 板 sub FriendBar_onClick() 39。CornerHeight = 43 39。 = + CornerHeight = True = False = False = False 2,0 () end sub 39。騰訊 服務(wù) 面板 sub TencentServerBar_onClick() 39。CornerHeight = 43*2 39。 = + CornerHeight = False = True = False = False 2,1 () end sub 39。手機(jī)好友面板 sub MobileBar_onClick() 39。CornerHeight = 43*3 39。 = + CornerHeight = False = False = True = False 2,2 () 2020皮膚制作幫助手冊(cè) 共 44 頁(yè) —— 第 18頁(yè) end sub 39。企業(yè) 好友 面板 sub BBar_onClick() 39。CornerHeight = 43*4 39。 = + CornerHeight = False = False = False = True 2,3 () end sub sub Ball_onClick() 3,1 end sub 39。按鈕組 39。 和 sub ChatBtn_onClick() 4,1 end sub sub PhoneBtn_onClick() 4,2 end sub sub searchBtn_onClick() 4,3 end sub sub TeBtn_onClick() 4,4 end sub sub GameBtn_onClick() 4,5 end sub sub SysMsgBtn_onClick() 4,6 end sub 2020皮膚制作幫助手冊(cè) 共 44 頁(yè) —— 第 19頁(yè) 39。 系統(tǒng)菜單 的相應(yīng)事件 sub Main_onClick() 39。獲取“ 采單”按鈕左上角的坐標(biāo)，從而確定彈出系統(tǒng)菜單的具體位置 s = CStr()amp。.amp。CStr() 5,s end sub 39。選擇 狀態(tài) 的相應(yīng)事件 sub StatusBtn_onClick() 39。獲取“ 狀態(tài)”按鈕左上角的坐標(biāo)，從而確定彈出狀態(tài)菜單的具體位置 s = CStr()amp。.amp。CStr() 6,s end Sub 39。收發(fā) 郵件的相應(yīng)事件 2020皮膚制作幫助手冊(cè) 共 44 頁(yè) —— 第 20頁(yè) Sub MailTip_onClick() 7,1 End Sub 39。隱藏側(cè)邊框 sub DisableBarBtn1_onClick() () showbar = False = Pathamp。 = 45 = False = True = true = true = true = 104 = 10 () end sub 39。展開側(cè)邊 框 sub DisableBarBtn2_onClick() () showbar = True = Pathamp。 = 54 = Pathamp。 = 18 = True = False = True = True cx = = False = 114 = cx + 10 () end Sub 39。處理 程序發(fā)來(lái)的事件 2020皮膚制作幫助手冊(cè) 共 44 頁(yè) —— 第 21頁(yè) Sub Window_OnNotify(code ,var) if code = 1 then 39。獲取當(dāng)前用戶號(hào)碼 UseNum = var = UseNum 39。 = 9 elseif code = 2 then 39。閃系統(tǒng)消息按鈕 var 為 1 是開始閃，為 2 是停止 if(var = 1) then 30 else end if elseif code = 3 then 39。 當(dāng)前狀態(tài)， var 為 0,1,2,3 是對(duì)應(yīng)在線 、暫時(shí)離開、隱身和下線，為 4 表示停止 if var = 0 then = elseif var = 1 then = elseif var = 2 then = elseif var = 3 then = elseif var = 4 then = StatusIcon end if elseif code = 4 then 39。設(shè)置側(cè)邊框中 好友、手機(jī)、企業(yè) 等面板哪個(gè)在上面 if var = 0 then FriendBar_onClick() elseif var = 1 then TencentServerBar_onClick() elseif var = 2 then MobileBar_onClick() elseif var = 3 then BBar_onClick() end if elseif code = 5 then 39。設(shè)置當(dāng)前 的狀態(tài) if var = 10 Then UseStatus = 在線 StatusIcon = 2020皮膚