如何在coolbar中实现显示文字等功能？在线，急

Question

另外，如何在上面实现这些功能
1.显示图片。
2.单击文字，弹出对话框。
3.能否将coolbar拉到下面，类似于statusbar。
4.能否在coolbar中加入状态栏，文本框？求源代码。
另有高分相送

Answer 1

显示图片需要用到IMAGELIST，与TREEVIEW类似用法
Private Sub CoolBar1_Click()
MsgBox CoolBar1.Bands(1).Caption ' msgbox text
End SubPrivate Sub Form_Load()
CoolBar1.Move 0, Me.Height - CoolBar1.Height  ' move to bottom
CoolBar1.Bands(1).Caption = "12345"Text1.Appearance = 0
Text1.Move CoolBar1.Bands(1).Width, 0, CoolBar1.Bands(2).Width, CoolBar1.Bands(2).Height ' use coolbar as textbox's container
End Sub