如何做出大图标的工具栏,网上资料查不到,请各位详细解答.多谢!

[lightwindwind]

发至email:[e-mail]也行

[config_w]

我也要一份，谢谢[e-mail]

[netspies]

用mdi_1这种窗口！

[princelily]

我现在手中没有现成的例子，不过我做，可以给你提供思路。
你首先创建一个数据窗口对象，选择外部数据源，自由格式，然后随便填写一个字段，如：string lily 20 然后在数据窗口对象中把建立的字段删了，我们不需要他显示数据，不过后边有用，你找几张bmp或者jpg的图片，你想要多漂亮就找多漂亮的，一般选择32*32或者64*64的位图作为合适的工具栏图标。当然你也可以添加线条LINE控件美化一下你的自定义工具栏。给每一个Picture控件一个指定的名字。保存就可以了。
然后在窗口中放置一个数据窗口控件，和你刚才建立的数据窗口对象联系在一起。之后在你的数据窗口控件的constructor事件中写上this.InsertRow(0)，也就是人为添加一个新行，lily字段就起作用了，虽然他并不显示出来。
注意设置一个实例变量string is_old
然后在数据窗口控件的clicked事件中写上如下代码，你改改就是你的了。
If dwo.Type <> 'bitmap' then Return

//将鼠标Cliecked的图片控件边框设置为Lowered
this.modify(dwo.name + ".Border='5'")

// 根据所选控件进行功能处理，如调用相应的功能模块
choose case dwo.name
case "p_1"
//...
messagebox("提示","资料维护!")
case "p_2"
//...
messagebox("提示","人员录入!")
end choose
之后给数据窗口控件自定义一个用户事件ue_dwnmousemove,选择Event ID为pbm_dwnmousemove，其他的不用你输入，参数返回值自动设置。事件的代码如下：
//如果鼠标所在位置是图片控件
If dwo.Type = 'bitmap' then
if is_old = dwo.name then return //
//将上次所在图片边框清除（NoBorder）
this.modify( is_old + ".Border='0'")
//将本次图片赋给实例变量
is_old=dwo.name
//将本次图片控件边框设为凸起（Raised）
this.modify( is_old + ".Border='6'")
Else
//鼠标所在位置不是图片控件
this.modify( is_old + ".Border='0'")
is_old = ''
End if
然后就OK了，你试试，一定没问题的。给我加高分吧～^_^