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

2019-11-18 17:42:02

字體：大中小

來源：轉載

供稿：網友

控件和源碼下載

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

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

　?。ū硪唬?br>
->方法->->返回類型->->說明->->AddList->->integer->->添加一個新的分組->->DeleteList->->boolean->->從控件中刪除一個已有分組->->AddListItem->->integer->->在一個分組中新添加一個項目->->DeleteItem->->boolean->->在一個分組中刪除一個項目->->InsertListItem->->short->->在某一分組中的某一位置插入一個新的項目->->ClearLists->->void->->清除控件中的所有分組和項目->
　?。ū矶?br>
->屬性->->數據類型->->說明->->BackImage->->Picture->->設置控件背景圖片。利用這個屬性，可以實現“皮膚”的功能。->->BarHeight->->integer->->設置分組按鈕的高度。->->BorderType->->integer->->設置控件的邊框樣式->->BorderColor->->long->->設置控件的邊框顏色，僅當BorderType設置為“0-Regular”時有效。->->ButtonBackColor->->long->->設置分組按鈕和上下滾動按鈕的顏色。->->ButtonForeColor->->long->->設置分組按鈕和上下滾動按鈕的字體顏色。->->ButtonSize->->integer->->設置上下滾動按鈕大小。->->GradientFill->->boolean->->設置控件背景是否顯示漸變色。->->GradColorFrom->->long->->設置漸變色的起始顏色。->->GradColorTo->->long->->設置漸變色的結束顏色。->->IconSize->->integer->->設置圖標顯示模式是大圖標或小圖標。->->Image1-6->->Picture->->設置預先在控件中加載的6幅圖片。->->ListBarStyle->->integer->->設置控件縱向或是橫向顯示。->->ListBackColor->->long->->設置控件的背景顏色。->->ListForeColor->->long->->設置分組中項目文字的顏色。->->ListScrollSpeed->->integer->->設置項目滾動的速度。->->ItemScrollSpeed->->integer->->設置分組滑動的速度。->
　　第一步：首先啟動VisualBasic6.0，新建一個窗口，修改窗口的Caption屬性為你喜歡的名字，如“我的QQ菜單”。

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

　?、僭诳丶ぞ邫谥袉螕粲益I，選擇“部件”，在彈出的窗口中點擊“瀏覽”，找到CtListBar控件，載入它；把它添加到Form1窗體中，用鼠標拖動調整其大小。

　?、谛薷腃aption屬性為“我的好友”。Caption屬性值將是菜單第一個分組的名稱。

　?、坌薷腖istBackColor屬性。實例中我們借用了QQ的頭像圖片，設置屬性值為&H00808000&，是背景顏色與圖片背景吻合。

　?、茉贗mages屬性中載入圖片。CtListBar控件本身可以載入6幅圖片，這里我們從QQ的頭像中載入6幅圖片（如圖1）。

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

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

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

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

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

->->

　　第四步：接下來，我們就開始代碼的編寫，實現具體的功能。

　　①聲明4個全局變量。

->　　DimstrListName,strItemNameAsString
　　DimintListNum,intItemNumAsInteger　->

　　②CtListBar控件不能預先設置好分組和項目，只能動態的添加，所以我們在Form_Load()事件中加入代碼，添加結果分組和項目。

->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->

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

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

　?、墼诎粹o控件cmd_AddList的Click事件中輸入代碼：

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

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

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

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

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

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

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

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

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

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

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

->->

上一篇：VB精彩教程:數據異步加載

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