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

[megahjt2]

如下图：



有朋友说网上有代码，可我实在没这个本事找到，如果有朋友知道贴网址也行。

.net可以，但最好是VB6的。

[东方之珠]

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

[ZW_LM]

透明的效果，我倒是有一个例子，明天给你发上来，但是磨砂效果的，，我就不懂了，是不是你的窗体上面要加载一个有磨砂效果的图片才行哦？我想应该是的。

[熊孩子开学喽]

怎么看上去是不透明的呢

[megahjt2]

我是指磨砂玻璃式的透明。

[megahjt2]

如果有GDI+绘制的Textbox就解决问题了。

有人知道哪儿能找到这样的控件么？

听说好像有个办法强制让VB.net用GDI+绘制所有控件，但我只是听说过你知道实现办法。

[megahjt2]

to chenjl1031:


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

[megahjt2]

自己UP下好了

[VBToy]

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 = &H80000

Private Sub Form_Load()
SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd, 0, 128, LWA_ALPHA
End Sub

[wanlion]

tags

[嗷嗷叫的老马]

关注一下!

[megahjt2]

还是没答案哦

[冰火小猫]

窗体能透明

[megahjt2]

继续等

[goosen]

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

[goosen]

3楼就可以实现

[megahjt2]

不对，3楼仅仅是磨砂玻璃窗体