vb代码之-------翻转标题栏

Posted hosni

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了vb代码之-------翻转标题栏相关的知识,希望对你有一定的参考价值。

入吾QQ群183435019(学习 交流+唠嗑)

程序结构运行如下

技术分享图片

 

代码

Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE As Long = -16
Private Const GWL_EXSTYLE As Long = -20

Private Sub Form_Load()
Dim Rut As Long
Rut = GetWindowLong(hwnd, GWL_EXSTYLE)
SetWindowLong hwnd, GWL_EXSTYLE, Rut Or &H8000

End Sub

 







以上是关于vb代码之-------翻转标题栏的主要内容,如果未能解决你的问题,请参考以下文章