新手求助(控件透明背景？)

Question

本帖最后由 bcrun 于 2010-05-03 08:05:25 编辑

Answer 1

感觉是显卡花屏了设置鼠标指针可以先准备一个手形的图标（网上找找），设置MouseIcon为这个图标，设置MousePointer为用户定义。

Answer 2

'模块
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
            ByVal hwnd As Long, _
            ByVal nIndex As Long) As Long
  Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
            ByVal hwnd As Long, _
            ByVal nIndex As Long, _
            ByVal dwNewLong As Long) As Long
  Public Declare Function SetLayeredWindowAttributes Lib "user32.dll" ( _
            ByVal hwnd As Long, _
            ByVal crKey As Long, _
            ByVal bAlpha As Byte, _
            ByVal dwFlags As Long) As Long
  Public Const GWL_EXSTYLE       As Long = (-20)
  Public Const WS_EX_LAYERED       As Long = &H80000
  Public Const LWA_COLORKEY       As Long = &H1
'窗体
   Dim rtn     As Long
        Picture1.BackColor = &HFF0000
          rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
          rtn = rtn Or WS_EX_LAYERED
          SetWindowLong hwnd, GWL_EXSTYLE, rtn
        SetLayeredWindowAttributes hwnd, &HFF0000, 0, LWA_COLORKEY 

Answer 3

8楼提供的是什么啊？我想要的是vbs脚本

Answer 4

那个ListView怎么是透明的？改天我一定要试一下ListView。