vb 窗体隐藏

Question

我知道 form1.hide是将form隐藏
但我想实现窗体隐藏后 鼠标靠近窗体 窗体又显示 鼠标移走 窗体又隐藏 怎么弄呢

Answer 1

我只讲思路，很简单：
给窗体添加一个键盘按下的事件，判断按键的值是不是F8，
是的话就隐藏窗体（显示窗体)。
form.visible
=
!form.visible;

Answer 2

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 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 SetCapture Lib "user32" (ByVal hWnd As Long) As Long ')
Private Declare Function ReleaseCapture Lib "user32" () As Long ' ')

Dim Layered As Boolean

Private Sub Form_Load()
SetWindowLong hWnd, (-20), GetWindowLong(hWnd, (-20)) Or &H80000
SetLayeredWindowAttributes hWnd, 0, 255, 2
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X < 0) Or (Y < 0) Or (X > ScaleWidth) Or (Y > ScaleHeight) Then
ReleaseCapture
For i = 255 To 1 Step -1
SetLayeredWindowAttributes hWnd, 0, i, 2
Next
Layered = True
Else
SetCapture hWnd
If Layered Then
For i = 1 To 255 Step 1
SetLayeredWindowAttributes hWnd, 0, i, 2
Next
Layered = False
End If
End If
End Sub

参考资料：VB探讨超级群 48029944 欢迎你的加入 更多意想不到的VB技巧 等你来发掘

Answer 3

这个是设置窗体高度动态的~ 效果一致~

Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long ')
Private Declare Function ReleaseCapture Lib "user32" () As Long ' ')

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Me
If (X < 0) Or (Y < 0) Or (X > .ScaleWidth) Or (Y > .ScaleHeight) Then
Height = 730
ReleaseCapture
Else
Height = 5000 '设成你需要的高度~
Show
SetCapture .hWnd
End If
End With
End Sub

Answer 4

隐藏方法：
form1.hide
‘隐藏form1窗体
注意，用hide
form是错的,vb会把hide认做方法或函数,导致无效。

Answer 5

在Form_MouseMove事件中编写相应代码即可。