Cómo programar para mostrar texto en forma transparente, el efecto es como el de la letra de Qianqianjingting y la letra se puede mostrar con un fondo transparente

Función de declaración privada GetWindowLong Lib "user32" Alias ​​​​"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Función de declaración privada SetWindowLong Lib Alias ​​"user32" ​​"SetWindowLongA " (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Función de declaración privada SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Const privada WS_EX_LAYERED = amp H80000

Const privada GWL_EXSTYLE = (-20)

Const privada LWA_ALPHA = amp; H2

Const privado LWA_COLORKEY = amp;H1

Subcomando privado1_Click()

Atenuar rtn siempre

Yo. Imagen = LoadPicture( "")

Me.BackColor = amp;H80000

BorderStyler = 0

rtn = GetWindowLong(hwnd, GWL_EXSTYLE)

rtn = rtn O WS_EX_LAYERED

SetWindowLong hwnd, GWL_EXSTYLE, rtn

SetLayeredWindowAttributes hwnd, amp H80000, 0, LWA_COLORKEY 'eliminará el color azul en la ventana

End Sub

'Donde hwnd es el identificador del formulario transparente,

'crKey es el valor del color, bAlpha es la transparencia,

'El rango de valores es, dwFlags Es un modo transparente

', que puede tomar dos valores: cuando el valor es LWA_ALPHA

', el parámetro crKey no es válido y el parámetro bAlpha es válido;

'Cuando el valor es LWA_COLORKEY,

'el parámetro bAlpha es válido y todos los lugares en el formulario cuyo color es crKey se volverán transparentes

' - esta función es muy útil:

'hwnd, crKey, bAlpha, dwFlags

Private Sub Form_Load()

Dim rtn As Long

Yo.Imagen = LoadPicture("02 .jpg")

p> rtn = GetWindowLong(hwnd, GWL_EXSTYLE)

rtn = rtn O WS_EX_LAYERED

SetWindowLong hwnd, GWL_EXSTYLE, rtn

crKey = 0

bAlpha = 300

SetLayeredWindowAttributes hwnd, 8, 120, LWA_ALPHA

End Sub