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

echo_zx 2004-01-12 03:26:43

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

求源代码。
另有高分相送

...全文

94 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2004-01-13

打赏
举报

显示图片需要用到IMAGELIST，与TREEVIEW类似用法

Private Sub CoolBar1_Click()
MsgBox CoolBar1.Bands(1).Caption ' msgbox text
End Sub

Private 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

echo_zx 2004-01-12