VB6.0如何改变整个窗体的透明度？

2010-08-03 03:06:28 344 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

短视频mssdk中get_token协议逆向与加密流程深度解析本文深度解析了短视频mssdk中get_token协议的逆向分析与加密流程。通过抓包、Frida Hook、静态分析等手段，详细拆解了协议数据的Protobuf结构、设备信息采集来源，并重点剖析了其核心加密链路：zlib压缩、自定义TEA算法与AES-CBC加密，最终实现完整的协议模拟。阅读详情

想在窗体中添加一个

控件，然后，拖后它来改变整个窗体的透明度，如何实现？

...全文

Cadence Design Entry HDL 使用教程 Cadence Design Entry HDL 使用教程前言 cadence Design Entry HDL是cadence内部集成的一款板级的EDA设计工具，早期叫 concept HDL。其为cadence最早的原配板级电路图绘制工具，只不过由于后来cadence收购了orcad然后就将旗下的capture CIS收入其中，由于后者使用起来上手简单，所以后者更为大家所熟知。虽然大家对... 阅读详情

gcrdf

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

嗷嗷叫的老马 2010-08-03

打赏
举报

-_-b..........

gcrdf 2010-08-03

打赏
举报

OK！我会了！！！

gcrdf 2010-08-03

打赏
举报

[Quote=引用 6 楼 ameken 的回复:]
VB code

Private Sub Form_Load()
Slider1.Min = 0
Slider1.Max = 255
MakeTransparent Me.hWnd, Slider1.Value
End Sub

Private Sub Slider1_Change()
MakeTransparent Me.hWnd, Slider1.Value
……
[/Quote]
谢谢。不过还差了一点就更完美了。就是程序运行后，需要窗体透明度100%显示的，而现在是0%显示的，我都看不见窗体在哪- -！如何改成100%显示呀？

天-笑 2010-08-03

打赏
举报

[Quote=引用 2 楼 ameken 的回复:]
VB code

'Transparancy API's
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……
[/Quote]

不错

fjm_520 2010-08-03

打赏
举报

强悍也学习了

Dision LI 2010-08-03

打赏
举报



Private Sub Form_Load()

  Slider1.Min = 0

  Slider1.Max = 255

  MakeTransparent Me.hWnd, Slider1.Value

End Sub



Private Sub Slider1_Change()

  MakeTransparent Me.hWnd, Slider1.Value

End Sub

饭送到你口里了,嘿嘿

lxq19851204 2010-08-03

打赏
举报

Private Sub Form_Load()
MakeTransparent Me.hWnd, 50 '调整透明度为第二个参数
End Sub

控件长度为100，拖动中获取的值x
传递到MakeTransparent Me.hWnd, X

gcrdf 2010-08-03

打赏
举报

lxq19851204 2010-08-03

打赏
举报

2L正确。

Dision LI 2010-08-03

打赏
举报



'Transparancy API's

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 UpdateLayeredWindow Lib "user32" (ByVal hWnd As Long, ByVal hdcDst As Long, pptDst As Any, psize As Any, ByVal hdcSrc As Long, pptSrc As Any, crKey As Long, ByVal pblend As Long, ByVal dwFlags As Long) As Long

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 Const GWL_EXSTYLE = (-20)

Private Const LWA_COLORKEY = &H1

Private Const LWA_ALPHA = &H2

Private Const ULW_COLORKEY = &H1

Private Const ULW_ALPHA = &H2

Private Const ULW_OPAQUE = &H4

Private Const WS_EX_LAYERED = &H80000





Public Function isTransparent(ByVal hWnd As Long) As Boolean

On Error Resume Next

Dim Msg As Long

Msg = GetWindowLong(hWnd, GWL_EXSTYLE)

If (Msg And WS_EX_LAYERED) = WS_EX_LAYERED Then

isTransparent = True

Else

isTransparent = False

End If

If Err Then

isTransparent = False

End If

End Function



Public Function MakeTransparent(ByVal hWnd As Long, ByVal Perc As Integer) As Long

Dim Msg As Long

On Error Resume Next



 

If Perc < 0 Or Perc > 255 Then

MakeTransparent = 1

Else

Msg = GetWindowLong(hWnd, GWL_EXSTYLE)

Msg = Msg Or WS_EX_LAYERED

SetWindowLong hWnd, GWL_EXSTYLE, Msg

SetLayeredWindowAttributes hWnd, 0, Perc, LWA_ALPHA

MakeTransparent = 0

End If

If Err Then

MakeTransparent = 2

End If

End Function



Public Function MakeOpaque(ByVal hWnd As Long) As Long

Dim Msg As Long

On Error Resume Next

Msg = GetWindowLong(hWnd, GWL_EXSTYLE)

Msg = Msg And Not WS_EX_LAYERED

SetWindowLong hWnd, GWL_EXSTYLE, Msg

SetLayeredWindowAttributes hWnd, 0, 0, LWA_ALPHA

MakeOpaque = 0

If Err Then

MakeOpaque = 2

End If

End Function



Private Sub Form_Load()

MakeTransparent Me.hWnd, 50 '调整透明度为第二个参数

End Sub

在你上面图中的控件调用MakeTransparent函数即可

帝企鹅已被占用 2010-08-03

打赏
举报

http://forums.techarena.in/software-development/1092604.htm

VB6.0如何改变整个窗体的透明度？

相关推荐