VB中用第三方控件打造QQ菜單

2019-11-18 17:42:02

字體：大中小

供稿：網(wǎng)友

控件和源碼下載

　　QQ的界面大家都不陌生吧？CtListBar就是一個(gè)十分優(yōu)秀的第三方控件，利用它我們可以很輕松的做出一個(gè)象QQ一樣的界面。這節(jié)中，我們將通過對CtListBar控件基本使用方法的學(xué)習(xí)，參照一個(gè)實(shí)例，打造出一個(gè)很酷的QQ菜單。

　　CtListBar控件包含了許多很有用的方法和屬性。開始實(shí)例學(xué)習(xí)前，我們有必要先對其主要的幾個(gè)方法和屬性了解一番。表一和表二分別列出了幾個(gè)主要的方法和屬性，以及它們的類型、說明。初步了解之后，現(xiàn)在我們就開始實(shí)例講解。

　　（表一）

->方法->->返回類型->->說明->->AddList->->integer->->添加一個(gè)新的分組->->DeleteList->->boolean->->從控件中刪除一個(gè)已有分組->->AddListItem->->integer->->在一個(gè)分組中新添加一個(gè)項(xiàng)目->->DeleteItem->->boolean->->在一個(gè)分組中刪除一個(gè)項(xiàng)目->->InsertListItem->->short->->在某一分組中的某一位置插入一個(gè)新的項(xiàng)目->->ClearLists->->void->->清除控件中的所有分組和項(xiàng)目->
　　（表二）

->屬性->->數(shù)據(jù)類型->->說明->->BackImage->->Picture->->設(shè)置控件背景圖片。利用這個(gè)屬性，可以實(shí)現(xiàn)“皮膚”的功能。->->BarHeight->->integer->->設(shè)置分組按鈕的高度。->->BorderType->->integer->->設(shè)置控件的邊框樣式->->BorderColor->->long->->設(shè)置控件的邊框顏色，僅當(dāng)BorderType設(shè)置為“0-Regular”時(shí)有效。->->ButtonBackColor->->long->->設(shè)置分組按鈕和上下滾動按鈕的顏色。->->ButtonForeColor->->long->->設(shè)置分組按鈕和上下滾動按鈕的字體顏色。->->ButtonSize->->integer->->設(shè)置上下滾動按鈕大小。->->GradientFill->->boolean->->設(shè)置控件背景是否顯示漸變色。->->GradColorFrom->->long->->設(shè)置漸變色的起始顏色。->->GradColorTo->->long->->設(shè)置漸變色的結(jié)束顏色。->->IconSize->->integer->->設(shè)置圖標(biāo)顯示模式是大圖標(biāo)或小圖標(biāo)。->->Image1-6->->Picture->->設(shè)置預(yù)先在控件中加載的6幅圖片。->->ListBarStyle->->integer->->設(shè)置控件縱向或是橫向顯示。->->ListBackColor->->long->->設(shè)置控件的背景顏色。->->ListForeColor->->long->->設(shè)置分組中項(xiàng)目文字的顏色。->->ListScrollSpeed->->integer->->設(shè)置項(xiàng)目滾動的速度。->->ItemScrollSpeed->->integer->->設(shè)置分組滑動的速度。->
　　第一步：首先啟動VisualBasic6.0，新建一個(gè)窗口，修改窗口的Caption屬性為你喜歡的名字，如“我的QQ菜單”。

　　第二步：加載CtListBar控件，設(shè)置其屬性。

　　①在控件工具欄中單擊右鍵，選擇“部件”，在彈出的窗口中點(diǎn)擊“瀏覽”，找到CtListBar控件，載入它；把它添加到Form1窗體中，用鼠標(biāo)拖動調(diào)整其大小。

　　②修改Caption屬性為“我的好友”。Caption屬性值將是菜單第一個(gè)分組的名稱。

　　③修改ListBackColor屬性。實(shí)例中我們借用了QQ的頭像圖片，設(shè)置屬性值為&H00808000&，是背景顏色與圖片背景吻合。

　　④在Images屬性中載入圖片。CtListBar控件本身可以載入6幅圖片，這里我們從QQ的頭像中載入6幅圖片（如圖1）。

　　⑤其余屬性可以參照表2，依你自己的喜好設(shè)置。這里我們采用默認(rèn)值。

　　小技巧：雖然CtListBar控件只能載入6幅圖片，但是我們可以用其他方法使CtListBar控件可以使用更多的圖片，如使用PictureBox控件、ImageList控件等。

　　第三步：添加其他控件，完成界面的設(shè)置。

　　在窗體中添加5個(gè)CommandButton，將名稱分別設(shè)置為cmd_AddList、cmd_DelList、cmd_AddItem、cmd_DelItem、cmd_Insert；將Caption屬性依次設(shè)置為“添加分組”、“刪除分組”、“添加項(xiàng)目”、“刪除項(xiàng)目”、“插入項(xiàng)目”。　

　　到這里，界面的設(shè)置就搞掂了，完成后如圖2。

->->

　　第四步：接下來，我們就開始代碼的編寫，實(shí)現(xiàn)具體的功能。

　　①聲明4個(gè)全局變量。

->　　DimstrListName,strItemNameAsString
　　DimintListNum,intItemNumAsInteger　->

　　②CtListBar控件不能預(yù)先設(shè)置好分組和項(xiàng)目，只能動態(tài)的添加，所以我們在Form_Load()事件中加入代碼，添加結(jié)果分組和項(xiàng)目。

->ctListBar1.AddList"陌生人"
ctListBar1.AddList"黑名單"
ctListBar1.AddListItem1,"Myheart",ctListBar1.Image1
ctListBar1.AddListItem1,"第七樂章",ctListBar1.Image2
ctListBar1.AddListItem1,"小A",ctListBar1.Image3
ctListBar1.AddListItem1,"小B",ctListBar1.Image4
ctListBar1.AddListItem1,"張三",ctListBar1.Image5
ctListBar1.AddListItem1,"李四",ctListBar1.Image6->

　　以上代碼中，我們新添加了“陌生人”和“黑名單”兩個(gè)分組，又在原先設(shè)置過的“我的好友”分組中添加了6個(gè)項(xiàng)目。

　　提示：ctListBar1.AddListItem方法使用了3個(gè)參數(shù)，分別為nIndex（分組的Index值）、strText（項(xiàng)目的名稱）、Picture（項(xiàng)目的圖片）。

　　③在按鈕控件cmd_AddList的Click事件中輸入代碼：

->　　strListName=""
　　strListName=InputBox("請輸入要添加的分組名稱","添加分組")
　　IfstrListName<>""ThenctListBar1.AddListstrListName->

　　在按鈕控件cmd_DelList的Click事件中輸入代碼：

->　　intListNum=0
　　intListNum=Val(InputBox("請輸入要刪除的分組標(biāo)識號","刪除分組"))
　　IfintListNum<>0ThenctListBar1.DeleteListintListNum->

　　在按鈕控件cmd_AddItem的Click事件中輸入代碼：

->　　strItemName=""
　　intListNum=0
　　intListNum=Val(InputBox("請輸入要添加的項(xiàng)目所在分組的標(biāo)識號","添加項(xiàng)目"))
　　IfintListNum<>0ThenstrItemName=InputBox("請輸入要添加的項(xiàng)目的名稱","添加項(xiàng)目")
　　IfstrItemName<>""ThenctListBar1.AddListItemintListNum,strItemName,ctListBar1.Image1->

　　在按鈕控件cmd_DelItem的Click事件中輸入代碼：

->　　intListNum=0
　　intItemNum=0
　　intListNum=Val(InputBox("請輸入要刪除的項(xiàng)目所在分組的標(biāo)識號","刪除項(xiàng)目"))
　　IfintListNum<>0ThenintItemNum=Val(InputBox("請輸入要刪除的項(xiàng)目的標(biāo)識號","刪除項(xiàng)目"))
　　IfintItemNum<>0ThenctListBar1.DeleteItemintListNum,intItemNum->

　　在按鈕控件cmd_Insert的Click事件中輸入代碼：

->　　intListNum=0
　　intItemNum=0
　　strItemName=""
　　intListNum=Val(InputBox("請輸入要插入的項(xiàng)目所在分組的標(biāo)識號","插入項(xiàng)目"))
　　IfintListNum<>0ThenintItemNum=Val(InputBox("請輸入要插入的項(xiàng)目所在位置的標(biāo)識號","插入項(xiàng)目"))
　　IfintItemNum<>0ThenstrItemName=InputBox("請輸入要插入的項(xiàng)目的名稱","插入項(xiàng)目")
　　IfstrItemName<>""ThenctListBar1.InsertListItemintListNum,intItemNum,strItemName,tListBar1.Image1->

　　提示：用AddListItem添加的項(xiàng)目只能添加在該分組末尾，而InsertListItem方法可以在一個(gè)分組中的指定位置插入一個(gè)新的項(xiàng)目。

　　到這里，這個(gè)簡單的實(shí)例程序就完成了，按下F5，看看效果（如圖3），是不是很酷？和QQ象極了！CtListBar控件用處很多，它完全可以用來替代VisualBasic中菜單編輯器編輯出的古板菜單，很多著名軟件都使用了類似的菜單效果。在你的程序中也用上這個(gè)控件，一定可以為你的程序增輝不少。

->->

上一篇：VB精彩教程:數(shù)據(jù)異步加載

下一篇：用VB編寫入侵監(jiān)聽程序(下)