Tài liệu tham khảo viết code lập trình cho internet về Thay skin; Music | Bài 7 Thay skin Tác giả Phan Hồng Phúc phucorcl@ 1. Hình vẽ 2. Copy images đè lên các file trong thư mục forum_images 3. Copy default style vào thư mục css_styles Bài 8 Music Tác giả Phan Hồng Phúc phucorcl@ 1. Mở file . Tìm dòng code Return the function searchHighlighter strTempMessage End Function . Thêm xuống dưới Function formatWMAPL ByVal strMessage Declare variables Dim lngStartPos Holds search start postions Dim lngEndPos Holds end start postions Dim saryWMAAttributes Holds the features of the input WMA file Dim intAttrbuteLoop Holds the attribute loop counter Dim strWMAWidth Holds the string value of the width of the WMA file Dim intWMAWidth Holds the interger value of the width of the WMA file Dim strWMAHeight Holds the string value of the height of the WMA file Dim intWMAHeight Holds the interger value of the height of the WMA file Dim strBuildWMALink Holds the converted BBcode for the WMA file Dim strTempWMAMsg Tempoary store for the BBcode Dim strWMALink Holds the link to the WMA file Loop through all the codes in the message and convert them to formated WMA links Do While InStr 1 strMessage MUSIC 1 0 AND InStr 1 strMessage MUSIC 1 0 Initiliase variables intWMAWidth 300 intWMAHeight 300 strWMALink strBuildWMALink strTempWMAMsg Get the WMA BBcode from the message IngStartPos InStr 1 strMessage MUSIC 1 IngEndPos InStr lngStartPos strMessage MUSIC 1 8 Make sure the end position is not in error If IngEndPos IngStartPos Then IngEndPos IngStartPos 6 Get the original WMA BBcode from the message strTempWMAMsg Trim Mid strMessage IngStartPos IngEndPos- IngStartPos Get the start and end in the message of the attributes of the WMA file IngStartPos InStr 1 strTempWMAMsg MUSIC 1 6 IngEndPos InStr lngStartPos strTempWMAMsg 1 Make sure the end position is not in error If IngEndPos IngStartPos Then IngEndPos IngStartPos If there is something returned get the details eg. dimensions of the WMA file If strTempWMAMsg Then .
