任务栏图标问题

Question

有两个窗体form1,form2
form1 上一个按钮
Private Sub Command1_Click()
    Me.Hide
    Dim frm_New As New form2
    frm_New.Show vbModal
End Sub
这样form2在任务栏图标就不见了
怎么解决?
要 show vbmodal

Answer 1

ShowInTaskbar 属性设置了也是没用的

Answer 2

'┏〓〓〓〓〓〓〓〓   设置窗口图标显示在任务栏函数相关定义声明等 Start
Private Const WS_EX_APPWINDOW               As Long = &H40000
Private Const GWL_EXSTYLE                   As Long = (-20)
Private Const SW_HIDE                       As Long = 0
Private Const SW_SHOW                       As Long = 5Private 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 Long
Private Declare Function ShowWindow Lib "user32" (ByVal Hwnd As Long, ByVal nCmdShow As Long) As Long'┗〓〓〓〓〓〓〓〓   设置窗口图标显示在任务栏函数相关定义声明等 End
'┏〓〓〓〓〓〓〓〓〓 设置窗口图标显示在任务栏,start 〓〓〓〓〓〓〓〓〓┓
Function 设置窗口图标显示在任务栏(Hwnd As Long)
   '[mycode_id:2225],edittime:2012-7-27 下午 09:32:21
    
           Call SetWindowLong(Hwnd, GWL_EXSTYLE, GetWindowLong(Hwnd, GWL_EXSTYLE) Or WS_EX_APPWINDOW)
           Call ShowWindow(Hwnd, SW_HIDE)
           Call ShowWindow(Hwnd, SW_SHOW)
End Function
'┗〓〓〓〓〓〓〓〓〓  设置窗口图标显示在任务栏,end  〓〓〓〓〓〓〓〓〓┛可联系我Q：2605961812

Answer 3

form中加上上面的函数和这个过程Private Sub Form_Activate()
If Me.Tag = "" Then
Me.Tag = "a"
设置窗口图标显示在任务栏 Me.Hwnd
End If
End Sub