Cách set Auto Hide ToolBar trong MDIform VB6.0 (3 người xem)

[Hai Lúa Miền Tây]

Mong các anh chị hướng dẫn em cách set Auto Hide ToolBar trong MDIform VB6.0 giống như thanh TaskBar.

Em xin cám ơn trước.

 

[levanduyet]

Hi domfootwear,
Em thử link sau:
http://www.thescarms.com/vbasic/appbar.aspx

Le Van Duyet

 

[Hai Lúa Miền Tây]

Hi domfootwear,
Em thử link sau:
http://www.thescarms.com/vbasic/appbar.aspx

Le Van Duyet

Thật ra để vận dụng bài trên em thấy khó quá, em đã suy nghĩ ra 1 cách củ chuối là lấy tọa độ của chuột, nếu rê vào vùng Toolbar thì toolbar hiện ra còn ngược lại thì em cho nó ẩn đi.

Private Declare Function GetCursorPos Lib "user32" (lpPoint As _
   POINTAPI) As Long

Private Type POINTAPI
        x As Long
        y As Long
End Type
Dim a As POINTAPI
Dim m As Long

Private Sub MDIForm_Load()
Timer1.Interval = 1

End Sub


Private Sub Timer1_Timer()
   mousepos
End Sub

Private Sub mousepos()
ret = GetCursorPos(a)
m = a.y

If m > 120 Then
    Toolbar1.Visible = False
  Else
    Toolbar1.Visible = True
End If
End Sub