͸FormҳѧԺ缼 ͼͼ ϵͳ ָ  칫 ý嶯 վӪ ֤ ҳ  
web  Ϸ QQ 
      վ     

ǰλã  򿪷  VB  ͸Form 
͸Form
ڣ200767 ߣ 鿴:[  С] 

                       

  עͣformCommand1, command2Button趨form֮BorderStyle = 0

  Option EXPlicit
  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
  Const GWL_EXSTYLE = (-20)
  Const WS_EX_TRANSPARENT = &H20&
  Private PreValue As Long

  Private Sub Command2_Click() עͣԭɲ͸
  Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, PreValue)
  Me.Hide
  Me.Show
  End Sub

  Private Sub Form_Load()
  Dim i As Long

  i = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
  עͣ͸Form
  PreValue = SetWindowLong(Me.hwnd, GWL_EXSTYLE, i Or WS_EX_TRANSPARENT)
  Me.Show
  DoEvents
  Command1.Refresh עͣCommand1ɼ
  Command2.Refresh עͣCommand2ɼ
  End Sub 
  

  Ʊҳַͱ⣬͸QQ/Msnĺһ

  ͸Form £
  ͸Form
  ͸Form 
  һƪ:VBװʴһ
  һƪ:ָɾļ
  رվرֹתصר¿תأעԭʼ
  .°Ȩԭʼ.ڱվתµĸ˺վǱʾл⡣վת
  صаȨϵ༭Ա,ǾԸ. תעԴhttp://www.hackhome.com
ƷƼ
ȵTOP10
  VB+Accessͼϵͳ 
  VBʱͱܵ 
  ؼС洰С仯仯 
  VBѧ±ܼӴ 
  VBʹDirectXļ̳ 
  VBʹEXCEL 
  VBݿԴ60ʵ 
  180VBͼνԴʵ 
  API޸עģ 
  VB쳬Ի˵ 
  ͨſؼMSCommʹ 
  WINDOWSϢ˵ 
  16תʮ, 16תɶƵ 
  vsprintӡʵ 
  webbrowser 2ղأ 
  VB6DataGridʵͨõӱ 
  FindWindow 
  VB̳ ڶ£ؼѧϰ 
  VB6.0ͼ 
  VB֮·ý 
رƼ
  ǳVB.Net Windows Form 
  ׹Ʊ˰ʼ 
  VisualBasic 6еĺִ 
  Զȡû½ƣٽ֤ 
  APIָĿ¼ļ 
  VBݿԴ60ʵ 
  VBIEԶ尴ť 
  VBMS OfficeCOM 
  Visual Basicװ 
  WebComputingADOܽᱨ 
  vsprintӡʵ 
  VBʵһ򵥵ESMTPͻ 
  webbrowser 2ղأ 
  SetForegroundWindow 
  API޸עģ 
  VB쳬Ի˵ 
  WINDOWSϢ˵ 
  ؼС洰С仯仯 
  VBʱͱܵ 
 | () | Ȩ |  | Ϣ Copyright 2003-2007  All Rights Reserved.  
  ICP05018371 8 
