set ShowInTaskbar of form be True

解决方案 »

  1.   

    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 Const GWL_STYLE = (-16)
    Public Const WS_MINIMIZEBOX = &H20000
    Public Const WS_SYSMENU = &H80000
    Public Sub ChangeWindowStyle(ByVal hwnd As Long)
        Dim oldStyle As Long    oldStyle = GetWindowLong(hwnd, GWL_STYLE)
        oldStyle = oldStyle Or WS_SYSMENU
        oldStyle = oldStyle Or WS_MINIMIZEBOX
        SetWindowLong hwnd, GWL_STYLE, oldStyle
    End Sub
    把SHOWINTASKBAR设置为TRUE.记得给分。
      

  2.   

    我把SHOWINTASKBAR设置为TRUE,可是出错了,它说“涵数或接口标记为限制的,或涵数使用了Visual Basic中不支持的自动类型”
      

  3.   

    按照上面的setWindowLong作过之后,为什么不能用任务栏右键菜单关闭窗口?