发信人: flashboy()
整理人: cobe(1999-12-15 16:19:53), 站内信件
|
一、如何在VB中实现透明窗体?
API：SetWindowLong(具体声明见VB API文本查看器)
常量：const WS_EX_TRANSPARENT=&H20& '透明
const GWL_EXSTYLE=(-20)
代码：
Public sub makeTransparent() '使之透明
Dim Retval as Long
Retval=SetWindowLong(form1.hwnd,GWL_EXSTYLE,WS_EX_TRANSPARENT
)
End Sub
二、如何在VB5中做出平面工具栏的效果？
API：SendMessage、FindWindowEx(具体声明见API文本查看器)
常量：const WM_USER=&H400 CONST TB_SETSTYLE=WM_USER+56
const TB_GETSTYLE=WM_USER+57
const TBSTYLE_FLAT=&H800
const TBSTYLE_LIST=&H1000
1、OFFICE式
1)变量声明
Dim lngHWND As Long Dim lngStyle As Long
Dim lngResult As Long
2)lngHWND=FindWindowEx(ToolBar1.hwnd,0&,"ToolbarWindow32",vbNullSt
ring)
3)lngStyle=SendMessage(lngHWND,TB_GETSTYLE,0&,0&)
4)lngStyle=lngStyle Or TBSTYLE_FLAT
5)lngResult=SendMessage(lngHWND,TB_SETSTYLE,0,lngStyle)
6)Toolbar1.refresh
2、IE式
将4）改为 lngStyle=lngStyle Or TBSTYLE_FLAT Or TBSTYLE_LIST
（以上皆是我上网时实时录入的，如有错误欢迎大家指正!)
TO BE CONTINUE。。。。。
--
真诚加上信赖这是我的网上原则！
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.31.96]
|
|