vb6 - 我表单上的黄色对象显示点击透明度

Question

我在我的应用程序中的多个 vb6 表单上遇到黄色对象被“点击”的问题:

我能想到的唯一可能会影响它的是以下内容(来自 VBForums ，我用它来使青色元素透明，就像您在图像中看到的那样，但是这应该对 vbYellow 没有影响。

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
            ByVal hwnd As Long, _
            ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
            ByVal hwnd As Long, _
            ByVal nIndex As Long, _
            ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" ( _
            ByVal hwnd As Long, _
            ByVal crKey As Long, _
            ByVal bAlpha As Byte, _
            ByVal dwFlags As Long) As Long

Private Const GWL_STYLE = (-16)
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Sub Form_Load()
Me.BackColor = vbCyan
SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes Me.hwnd, vbCyan, 0&, LWA_COLORKEY
End Sub

我试图用相同颜色的图像替换 vbYellow 形状。这也有一个 Click 函数的优点，但最终会得到相同的结果，甚至不会触发任何设置的 Click 函数。

Answer 1

我认为问题在于 VB6/Win32 有时会使用不同的颜色代码。有时，这只是从#RRGGBB (RGB) 切换到/从#BBGGRR (BGR) 切换的问题。

洋红色 #FF00FF 比黄色更适合选择，因为无论红色和蓝色分量是否切换，这种颜色都会起作用。

vbMagenta 可以直接毫无问题地使用。