需要Tray Icon控件,FoxPro本身不支持

解决方案 »

  1.   

    好像是需要调用API函数,具体方法我不清楚,不过我在哪个杂志或网站上看过~!
      

  2.   

    to xiaowei_2002(小魏!):
    请帮忙查一下好吗?拜托了!
      

  3.   

    to liujianjun_(流星尔):
    如何实现请告诉我好吗?谢谢!
      

  4.   

    to sengye (神爷) :
       你的email给我。我把Tray Icon 的fll库给你。用法很简单
      

  5.   

    to collyylu:
      也发个给我。[email protected]
      

  6.   

    To: sengye(神爷) 
    这两天公司有变动,留下的你的地址吧,过几天我查到了一定给你发过去!~
    To: coolyylu(将来是我) 
    也给我发一个:[email protected],谢谢!
      

  7.   

    to collyylu:
      我也想找这样的软件,以前CSDN中好象说无法实现,请发个给我吧。[email protected]
      

  8.   

    好吧
    既然这个item的主人没有给email,我直接发给你好乐
      

  9.   

    TO  coolyylu(将来是我) (△△) 信誉:100 我还没收到呀,能否再发一次?(我可能送分给你)
      

  10.   

    to coolyylu(将来是我) 
    对不起,这段时间一直很忙,没有上网,现告诉您我的Emile:[email protected], 非常感谢您!to xiaowei_2002(小魏!) 
    对不起,这段时间一直很忙,没有上网,现告诉您我的Emile:[email protected], 非常感谢您!
      

  11.   

    上次发了一次。但是退回来了。今天又发了一次,请查收。如果想把vfp的程序做成nt的服务请查看vfp7中sys新增函数
      

  12.   

    将程序图标放入系统托盘区
    _Dir=sys(5)+sys(2003)+'\'
    set default to (_Dir)
    set library to bbsystray.fll
    _screen.windowstate=1
    _screen.visible=.f.
    =AddSysTrayIcon(1,_dir+"Books.ico","红虎, 在忙什么呢?","do aaa","do bbb",.T.)
    *=ModSysTrayIcon(1,_dir+"Books.ico","Hello 哈哈哈.....!")
    *DelSysTrayIcon(1)set library to 
    clea dllsprocedure bbb
    messagebox('右击')
    retuprocedure aaa
    _screen.visible=.t.
    _screen.windowstate=2
    * messagebox('双击')
    retu
    从网上(http://honghoo.net/view.asp?id=53)转载的,示例已经发到你的邮箱里!~