近两万行代码的ADO+ACCESS生产统计系统源码，附带桌面时钟功能，进来看看吧~~

mingg

谢谢分享！！！！

yealsun

看了楼主的代码才知道什么叫博大精深。
好多自己悬而未决的功能在这里找到了答案。
再次感谢楼主的无私分享。

mingg

下面这段关于气泡提示显示状态的代码摘录自楼主程序中
Private Const TTF_SUBCLASS = &H10
Private Const TTF_TRACK = &H20
Private Const TTF_IDISHWND = &H1
Private Const TTF_TRANSPARENT = &H100
Private Const TTF_PARSELINKS = &H1000
Private Const TTF_CENTERTIP = &H2
Public pCentered As Boolean   '气泡提示的箭头是否居中
Public PopupOnMouse As Boolean  '气泡是否跟着鼠标走。注意该属性和pCentered属性会协同产生不同的效果


    If pCentered Then  '气泡箭头是否居中
        If PopupOnMouse Then  '气泡是否跟着鼠标走
             .lFlags = TTF_CENTERTIP Or TTF_IDISHWND Or TTF_SUBCLASS  '1、箭头在气泡的下面且居中，气泡跟着鼠标走
        Else
            .lFlags = TTF_CENTERTIP Or TTF_IDISHWND Or TTF_TRACK  '2、箭头在气泡的上面且居中，气泡不跟着鼠标走
        End If
    Else
        If PopupOnMouse Then
            .lFlags = TTF_IDISHWND Or TTF_SUBCLASS '3、箭头在气泡的下面且不居中，气泡跟着鼠标走
        Else
            .lFlags = TTF_IDISHWND Or TTF_TRACK Or TTF_TRANSPARENT '4、箭头在气泡的上面且不居中，气泡不跟着鼠标走
        End If
    End If
        以上代码后面的注释，是我对气泡提示显示状态的理解。请问楼主，如果要使“箭头在气泡的下面且不居中，气泡不跟着鼠标走”，也就是类似于上面第3种情况，区别是气泡不跟着鼠标走，这种情况应该怎么做，需要怎样修改代码？常数需不需要变化？
    另外要在气泡上显示关闭按钮怎么做？
    由于我对气泡提示的语法一点儿都不懂，想了一个晚上都没想到怎么做，请楼主赐教！谢了！

[ 本帖最后由 mingg 于 2009-9-20 10:50 编辑 ]

danking20256753

感谢楼主分享，先收藏了，慢慢看

lzqlaj

老板肯定给奖赏了吧，很厉害。

wwqiang

真牛呀，HOME里面很少见到这样美的作品了

alphy

实在是佩服 五体投地啊

泓()

正找这东西呢

雅俊

超豪华赞一个!

m80896419

太牛了，真想学会。