不用activeskin是否能做到让窗体边框出现阴影效果!!

不用activeskin是否能做到让窗体边框出现阴影效果!! 用API等能否达到?反正不能使用控件..嘿嘿!

解决方案 »

  1.   

    我是说不要使用控件,想达到的...activeskin就是需要控件才能运行...
      

  2.   

    2K和XP下很可能有这样的API哦~关注一下~
      

  3.   

    是呀,我也想有此样的API,但不知道...如果没有简单的,应该有一个组等.可以解决的吧!
      

  4.   

    自己subclassing 画吧，有点麻烦/
      

  5.   

    CS_DROPDOWNSHADOW，Sorry!Private Const CS_DROPSHADOW As Long = &H20000
    Private Const GCL_STYLE As Long = -26
    Private Declare Function SetClassLong Lib "user32.dll" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function GetClassLong Lib "user32.dll" Alias "GetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Dim lRet As Long
    lRet = GetClassLong(Me.hwnd, GCL_STYLE)
    lRet = lRet Or CS_DROPSHADOW
    SetClassLong Me.hwnd, GCL_STYLE, lRet
    不过要去掉阴影倒是件很麻烦的事情。还有，你用的时候可能会遇到一点点小问题（如果有子窗体的话）
      

  6.   

    Sorry死了!明明就是CS_DROPSHADOW没错，还要自作多情Sorry一下。我真是白吃……
      

  7.   

    //CS_DROPDOWNSHADOW，Sorry!
    //Sorry死了!明明就是CS_DROPSHADOW没错按我的理解（不一定正确），这个好像无所谓吧，这不是VB标准常数，是自定义常数，名字只为了方便理解它的用途，只要后面赋给它的值不错就行了，对不？
      

  8.   

    回复人： pigpag(噼里啪啦 - 小pig：FAQ没了，大家踊跃提交啊) 再请教：你上面那段代码是不是也只在2K以上才有效啊？
    我在98下能运行，但没出现阴影~
      

  9.   

    是的，仅在Windows 2000以上有效98下面，嘿嘿，自己画；或者用CombineRgn在阴影区挖麻子，模仿阴影效果了……不过效率会很低下的//按我的理解（不一定正确），这个好像无所谓吧，这不是VB标准常数，是自定义常数，名字只为了方便理解它的用途，只要后面赋给它的值不错就行了，对不？对的，但是文档中只会出现其中一个。