[VB.NET] Set The ShowInTaskBar Property At Runtime

Hi mọi người, hôm nay mình sẽ hướng dẫn các bạn đặt thuộc tính ShowInTaskBar khi chạy.

Đặt thuộc tính ShowInTaskBar khi chạy.

Thủ thuật hoàn toàn đơn giản không có gì gọi là phức tạp với việc thêm 2 nút lệnh vào form của bạn.

FULL CODE

Public Declare Function GetWindowLong Lib "user32" Alias _
  "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias _
  "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd _
  As Long, ByVal nCmdShow As Long) As Long
 
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
 
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TOOLWINDOW = &H80&
 
Public Sub setShowInTaskbar(Visible As Boolean, hwnd As Long)
    Dim L As Long
    L = ShowWindow(hwnd, SW_HIDE)
    DoEvents
    L = SetWindowLong(hwnd, GWL_EXSTYLE, IIf(Visible, -WS_EX_TOOLWINDOW, WS_EX_TOOLWINDOW))
    DoEvents
    L = ShowWindow(hwnd, SW_SHOW)
End Sub

Và các bạn thêm vào form 2 button để thực thi lệnh.

BUTTON HIỆN.

Private Sub Command1_Click()
   Call setShowInTaskbar(True, Me.hwnd)
End Sub

BUTTON ẨN.

Private Sub Command2_Click()
   Call setShowInTaskbar(False, Me.hwnd)
End Sub

Chúc các bạn thành công.