如何实现全磨砂玻璃窗体+透明的Textbox+透明度不一样

Question

如下图：有朋友说网上有代码，可我实在没这个本事找到，如果有朋友知道贴网址也行。.net可以，但最好是VB6的。

Answer 1

http://www.mndsoft.com/blog/article.asp?id=715

Answer 2

to chenjl1031:
是要窗口全透明 + 控件(Textbox)半透明。

Answer 3

如果有GDI+绘制的Textbox就解决问题了。有人知道哪儿能找到这样的控件么？听说好像有个办法强制让VB.net用GDI+绘制所有控件，但我只是听说过你知道实现办法。

Answer 4

Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean
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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const LWA_ALPHA = 2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000Private Sub Form_Load()
    SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes hwnd, 0, 128, LWA_ALPHA
End Sub

Answer 5

不知你系统是Vista 还是XP 磨砂玻璃式的透明只有VISTA才可以实现