专注收集记录技术开发学习笔记、技术难点、解决方案
网站信息搜索 >> 请输入关键词:
您当前的位置: 首页 > VFP

怎么让richtextbox,表格,listview 等控件的背景透明?或半透明

发布时间:2010-05-24 22:04:21 文章来源:www.iduyao.cn 采编人员:星星草
如何让richtextbox,表格,listview 等控件的背景透明?或半透明?
如题

------解决方案--------------------
试了试,勉强可以,不过在控件得到焦点后,还需要做进一步的处理,大致如下:

1. 新建一表单,
2. 中间用 Image 控件放一块大图片
3. 再添加一 RichText 控件在图片上
4. 最后加一个按钮,按钮 Click 事件中写入下面的代码:
VB code
#define GWL_EXSTYLE    -20
#define WS_EX_TRANSPARENT       0x20

Declare Long SetWindowLong in win32api Long hwnd, Long nIndex, Long dwNewLong
Declare Long GetWindowLong in win32api Long hwnd, Long nIndex
Declare Long GetParent in win32api Long hWnd

hWnd = Thisform.olecontrol1.hwnd
SetWindowLong(hwnd, GWL_EXSTYLE, Bitor(GetWindowLong(hwnd, GWL_EXSTYLE), WS_EX_TRANSPARENT))
hWnd = GetParent(hWnd)
SetWindowLong(hwnd, GWL_EXSTYLE, Bitor(GetWindowLong(hwnd, GWL_EXSTYLE), WS_EX_TRANSPARENT))

With Thisform.olecontrol1
    .Width = .Width + 1
    .Width = .Width - 1
EndWith
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。

其他相似内容:

热门推荐: