如题
------解决方案--------------------------------------------------------
试了试,勉强可以,不过在控件得到焦点后,还需要做进一步的处理,大致如下:
1. 新建一表单,
2. 中间用 Image 控件放一块大图片
3. 再添加一 RichText 控件在图片上
4. 最后加一个按钮,按钮 Click 事件中写入下面的代码:
- VB code
#define GWL_EXSTYLE -20#define WS_EX_TRANSPARENT 0x20Declare Long SetWindowLong in win32api Long hwnd, Long nIndex, Long dwNewLongDeclare Long GetWindowLong in win32api Long hwnd, Long nIndexDeclare Long GetParent in win32api Long hWndhWnd = Thisform.olecontrol1.hwndSetWindowLong(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 - 1EndWith