异世界

— 居正 And RUI_wj 's BLOG

VB窗体内有菜单,就无法无边框化的解决方法

在窗体内任意地方输入下列代码:

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   Sub   Form_Load()   
  Dim   sy   As   Long   
  Dim   newsy   As   Long   
  Const   GWL_STYLE   =   -16   
  Const   WS_CAPTION   =   &HC00000   
  Const   WS_BORDER   =   &H800000   
  sy   =   GetWindowLong(Me.hwnd,   GWL_STYLE)   
  newsy   =   SetWindowLong(Me.hwnd,   GWL_STYLE,   sy   -   WS_CAPTION   -   WS_BORDER)   
  End   Sub


  • 评论列表:
  •  居正
     发布于 2014-12-15 12:57:32  回复该评论
  • 我帮你改成了一下正常的代码。。。

发表评论:

Powered By Z-BlogPHP 1.5.2 Zero

搭建与于2014/12,RUI_wj 居正 所有。