Help with vista like transparency...if possible

[wargamer17]

I was wondering if it was possible to make the title bar transparent just like in windows vista. I've already found source code for making the whole window transparent, but is it possible to make just the title bar transparent? If so, could someone help me with the code for that? thanks.

[nightcrawler]

Can you please post the code to make the entire window transparent please? I have been having trouble with that aspect...

[Cervantes]

There's no way I know of making the title bar transparent. You'd have to get down to the Windows API, which is something Turing doesn't really do.

I too am interested, though, to see how you made the whole window transparent. It seems like that would also require getting down to the windows API, so maybe there is hope yet!

[Dan]

The new verson of VS and visual basic all suport the vista trasnparncy setings and it is as easy as seting a proptery for the form.

However this could be harder in older versons of visual basicks and VS.

[haskell]

In VB.NET, C#, and etc... Transparency is a control property.

Quite easy to do.

[cool dude]

well i'm not exactly sure if this is what your looking for but click on the form and under properties scroll down until you see borderstyle property. than set that to none.

let me know if this is what you wanted?

[Clayton]

Cervantes wrote:

You'd have to get down to the Windows API, which is something Turing doesn't really do.

Shouldn't be an issue, as it appears that he's using Visual Basic

[wargamer17]

Yes, that's right. I am using Visual Basic. This is the code i got:

CODE:
Const GWL_EXSTYLE = -20
Const WS_EX_LAYERED = &H80000
Const GWL_STYLE = (-16)
Const WS_VISIBLE = &H10000000
Const LWA_ALPHA = &H2

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Option Explicit

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 Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long


'@ http://digitalpbk.blogspot.com/2007/01/making-any-window-transparent-on-xp.html


Private Type POINTAPI
x As Long
y As Long
End Type

Public xhwnd As Long

Private Sub Command1_Click()
SetWindowLong xhwnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes xhwnd, 0, Slider1.Value, LWA_ALPHA
End Sub

Private Sub Command2_Click()
SetWindowLong xhwnd, GWL_EXSTYLE, 0
End Sub


Private Sub Label2_Click()
ShellExecute Me.hwnd, "", "http://digitalpbk.blogspot.com/2007/01/making-any-window-transparent-on-xp.html?ref=EXE", "", "", 1
End Sub

Private Sub Slider1_Change()
SetLayeredWindowAttributes xhwnd, 0, Slider1.Value, LWA_ALPHA
End Sub

Private Sub Timer1_Timer()
Dim xy As POINTAPI
Dim retStr As String * 80

If GetAsyncKeyState(vbKeyControl) Then
Call GetCursorPos&(xy)
xhwnd = WindowFromPoint(xy.x, xy.y)
Call GetWindowText(xhwnd, retStr, 100)
If xhwnd = Me.hwnd Then
Label1.Caption = "Making me transparent is not good!"
xhwnd = 0
Else
Label1.Caption = retStr & " " & xy.x & " " & xy.y & " " & xhwnd
End If
End If
End Sub

CODE END

[Cervantes]

Clayton @ Thu Apr 05, 2007 2:48 pm wrote:

Cervantes wrote:

You'd have to get down to the Windows API, which is something Turing doesn't really do.

Shouldn't be an issue, as it appears that he's using Visual Basic

Someone tell me the truth: was this originally posted in Turing Help, or am I just going insane?

[wargamer17]

No, this was originally where I posted it. Right here in the Visual Basic Help section because I am using Visual Basic 6.0, so obviously this is where it would be placed.

[Clayton]

Cervantes @ Wed Apr 11, 2007 4:17 pm wrote:

Clayton @ Thu Apr 05, 2007 2:48 pm wrote:

Cervantes wrote:

You'd have to get down to the Windows API, which is something Turing doesn't really do.

Shouldn't be an issue, as it appears that he's using Visual Basic

Someone tell me the truth: was this originally posted in Turing Help, or am I just going insane?

No, you're just going insane. It's all right, you're having troubles coping with exams right now