hur.cn - 华软网

 热门搜索

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

  作者:未知    来源:网络    更新时间:2017/12/5
发至email:ahsbzgsj@126.com也行
------华软网友回答------
我也要一份,谢谢mulinghe@163.com
------华软网友回复------
用mdi_1这种窗口!
------华软网友回复------
我现在手中没有现成的例子,不过我做,可以给你提供思路。
你首先创建一个数据窗口对象,选择外部数据源,自由格式,然后随便填写一个字段,如: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了,你试试,一定没问题的。给我加高分吧~^_^      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。