Doorzichtigheid?

[HUKED]

Hey,

Is er een manier om mijn programmat'je doorzichtig te laten zijn?
bijvoorbeeld dat je je bureablad ar acher ziet.

 

[etri]

Kijk hier maar voor een voorbeeld:
http://articles.techrepublic.com.com/5100-22-5031805.html#

 

[HUKED]

Nee, ik bedoel dat mijn eigen application transparant is.
kan dat?

 

[That Guy]

daar gaat die tut. over

vb6 >:
form1

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
 lParam As Any) As Long
 Private Declare Sub ReleaseCapture Lib "User32" ()
 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
 
 Const WM_NCLBUTTONDOWN = &HA1
 Const HTCAPTION = 2
 Const WS_EX_LAYERED = &H80000
 Const GWL_EXSTYLE = (-20)
 Const LWA_ALPHA = &H2
 Const LWA_COLORKEY = &H1
Private Sub Form_Load()
DarkMe
End Sub
Public Function DarkMe()
Dim rtn As Long
rtn = GetWindowLong(hWnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
  SetWindowLong hWnd, GWL_EXSTYLE, rtn '
  SetLayeredWindowAttributes hWnd, 0, 200, LWA_ALPHA
End Function

 

[kevinsoftware]

Kan het bijvoorbeeld ook aleen een bij textbox ?

 

[hippje]

Doorzichtigheid de oplossing

De oplossing:

Me.Opacity = "" getal tussen de 100 & 0 "" %

hIPpJe

 

[That Guy]

Ja, of niet natuurlijk. Ik weet zeker dat het iig in vb < 6 niet bestaat.
Of heeft .net/200X een *alweer* nutteloze standaard erin gezet?

 

[ninjaplayer]

form1 > eigenschappen > transparencykey > kleur die doorzichtig moet zijn.