如何使我的程序在最小化是在任务栏中的像是按钮的东东中加多显示一个图标？我指的不是系统托盘呀！

Question

创建个快捷方式，拷贝到
C:\WINDOWS\Application Data\Microsoft\Internet Explorer\Quick Launch

Answer 1

我不知我的为何没有！我的Icon已经设置了值的！

Answer 2

  如果你的Form1.BorderStyle 为 0 或 4，都没有；或 ControlBox 为 False，都没有。

Answer 3

无错我就是把Form1.BorderStyle 设为 0，那我应如何解决！！

Answer 4

   
  声明：1、用我的那段代码，需要：borderstyle=0 ；showintaskbar=true ；ICON 不为空。
        2、除了“关闭”无效外，其余完全和一般的窗体效果相同！
        3、如果你还不行，留EMAIL，我把我的可用的代码发给你！
Private Sub Form_Load()
  ChangeWindowStyle Me.hwnd
End SubPublic 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 SubPrivate 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 LongPrivate Const GWL_EXSTYLE = (-20)
Private Const GWL_HINSTANCE = (-6)
Private Const GWL_HWNDPARENT = (-8)
Private Const GWL_ID = (-12)
Private Const GWL_USERDATA = (-21)
Private Const GWL_WNDPROC = (-4)
Private Const GWL_STYLE = (-16)Private Const WS_ACTIVECAPTION = &H1
Private Const WS_BORDER = &H800000
Private Const WS_CAPTION = &HC00000        ' WS_BORDER Or WS_DLGFRAME
Private Const WS_CHILD = &H40000000
Private Const WS_CHILDWINDOW = (WS_CHILD)
Private Const WS_CLIPCHILDREN = &H2000000
Private Const WS_CLIPSIBLINGS = &H4000000
Private Const WS_DISABLED = &H8000000
Private Const WS_DLGFRAME = &H400000
Private Const WS_GROUP = &H20000
Private Const WS_HSCROLL = &H100000
Private Const WS_MAXIMIZE = &H1000000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZE = &H20000000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_OVERLAPPED = &H0&
Private Const WS_POPUP = &H80000000
Private Const WS_SYSMENU = &H80000
Private Const WS_TABSTOP = &H10000
Private Const WS_THICKFRAME = &H40000
Private Const WS_TILED = WS_OVERLAPPED
Private Const WS_VISIBLE = &H10000000
Private Const WS_VSCROLL = &H200000
Private Const WS_GT = (WS_GROUP Or WS_TABSTOP)
Private Const WS_ICONIC = WS_MINIMIZE
Private Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
Private Const WS_POPUPWINDOW = (WS_POPUP Or WS_BORDER Or WS_SYSMENU)
Private Const WS_SIZEBOX = WS_THICKFRAME
Private Const WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW
Private Const WS_EX_ACCEPTFILES = &H10&
Private Const WS_EX_APPWINDOW = &H40000
Private Const WS_EX_CLIENTEDGE = &H200&
Private Const WS_EX_CONTEXTHELP = &H400&
Private Const WS_EX_CONTROLPARENT = &H10000
Private Const WS_EX_LAYERED = &H80000
Private Const WS_EX_DLGMODALFRAME = &H1&
Private Const WS_EX_LAYOUTRTL = &H400000
Private Const WS_EX_LEFT = &H0&
Private Const WS_EX_LEFTSCROLLBAR = &H4000&
Private Const WS_EX_LTRREADING = &H0&
Private Const WS_EX_MDICHILD = &H40&
Private Const WS_EX_NOACTIVATE = &H8000000
Private Const WS_EX_NOINHERITLAYOUT = &H100000
Private Const WS_EX_NOPARENTNOTIFY = &H4&
Private Const WS_EX_RIGHT = &H1000&
Private Const WS_EX_RIGHTSCROLLBAR = &H0&
Private Const WS_EX_RTLREADING = &H2000&
Private Const WS_EX_STATICEDGE = &H20000
Private Const WS_EX_TOOLWINDOW = &H80&
Private Const WS_EX_TOPMOST = &H8&
Private Const WS_EX_TRANSPARENT = &H20&
Private Const WS_EX_WINDOWEDGE = &H100&
Private Const WS_EX_OVERLAPPEDWINDOW = (WS_EX_WINDOWEDGE Or WS_EX_CLIENTEDGE)
Private Const WS_EX_PALETTEWINDOW = (WS_EX_WINDOWEDGE Or WS_EX_TOOLWINDOW Or WS_EX_TOPMOST)
 

Answer 5

TO uguess(uguess)
  　我的程序真的是不行呀！我的EMail:[email protected]