| | |
TransParent Control
![]() |
Try this code to first create a transparent window:
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_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
Private Sub Command1_Click()
Dim f2 As New Form2
f2.show
Call SetWindowLong(f2.hWnd, GWL_EXSTYLE, GetWindowLong(f2.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(f2.hWnd, 0, 255 / 2, LWA_ALPHA) ' 50% translucent
End Sub
You can modify this code to use for textbox control or command button.
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_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
Private Sub Command1_Click()
Dim f2 As New Form2
f2.show
Call SetWindowLong(f2.hWnd, GWL_EXSTYLE, GetWindowLong(f2.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(f2.hWnd, 0, 255 / 2, LWA_ALPHA) ' 50% translucent
End Sub
You can modify this code to use for textbox control or command button.
hi bredes you post a same thread again.
cek your own post (TransParant Control)
try this thread, its a similiar thread like your post
Control Transparant Form
Ok.
all for the best
cek your own post (TransParant Control)
try this thread, its a similiar thread like your post
Control Transparant Form
Ok.
all for the best
Never tried = Never Know
So, Please do something before post your thread.
* PM Asking will be ignored *
So, Please do something before post your thread.
* PM Asking will be ignored *
![]() |
Similar Threads
- transparence of control (Visual Basic 4 / 5 / 6)
- How to restore transparent desktop icon (Windows NT / 2000 / XP)
- How do I password protect folders? (Windows NT / 2000 / XP)
- Transparent RichText Box (C#)
- Transparent Icons on Desktop? (Windows NT / 2000 / XP)
- How to make label backstyle transparent (C#)
Other Threads in the Visual Basic 4 / 5 / 6 Forum
- Previous Thread: How to read excel cells into Array
- Next Thread: Some Good ActiveX
| Thread Tools | Search this Thread |
* 6 429 2007 access activex add age application basic beginner birth bmp calculator cd cells.find click client code college component connection connectionproblemusingvb6usingoledb copy creat ctrl+f data database datareport date delete dissertations dissertationthesis dissertationtopic edit error excel excelmacro file filename form hardware header iamthwee image inboxinvb internetfiledownload keypress label listbox listview liveperson login looping machine microsoft movingranges number objectinsert open oracle password prime program prompt range-objects readfile reading record refresh remotesqlserverdatabase report save search sendbyte sites sort sql sql2008 sqlserver subroutine tags textbox time urldownloadtofile vb vb6 vb6.0 vba visual visualbasic visualbasic6 web window windows







. i just want control textbox or commandbutton transparent
.