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.
No comments:
Post a Comment