用VB怎样做出像东方快车、南极星一样悬挂于屏幕上方的工具条. 重酬

dbcontrols(泰山)　兄弟，给我一个怎么样？[email protected]
thx

解决方案 »

  1.   

    我也要一个，谢谢[email protected]
      

  2.   

    现在我在为公司的软件做界面，给我一份可好啊？？
    [email protected]
      

  3.   

    dbcontrols(泰山),你什么时候改名了，以前不是dbcontrols(aa)吗。呵呵。好东西大家分享。给我一份：[email protected]
      

  4.   

    能不能给我一份啊
    [email protected]
    谢谢：）
      

  5.   

    我也要，谢谢了先。[email protected]
      

  6.   

    谢谢泰山兄.回家研究一下
    [email protected]
      

  7.   

    我也要学习，可以给我吗？谢谢！！
    [email protected]
      

  8.   

    cocodog(好好学习天天向上)　你的信箱?
      

  9.   

    谢谢泰山大哥，小弟的信箱是[email protected]!!!
      

  10.   

    谢谢泰山大哥，小弟的信箱是[email protected]!!!
    顺便问一句怎么给你加分，另外，把你的qq号，给我，以后有问题好请教！！！
      

  11.   

    泰山大哥：
    给我一份吧 [email protected]
      

  12.   

    Option ExplicitConst HWND_TOPMOST = -1
    Const HWND_NOTOPMOST = -2
    Const SWP_NOSIZE = &H1
    Const SWP_NOMOVE = &H2
    Const SWP_NOACTIVATE = &H10
    Const SWP_SHOWWINDOW = &H40
    Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)Private Sub Form_Activate()
        Form1.Move 0, 0
        SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    End Sub
      

  13.   

    http://go2.163.com/bakw/source/form/sunv.zip