在Vb 中怎么把标题栏放到状态栏中？

Question

你把Form　的 ShowInTaskbar 属性改为：True注意：只能在编辑状态改，不能在代码运行时修改．

Answer 1

这个跟简单，请看一小段代码，（不完整）：Private Sub Command1_Click() Dim IconData As NOTIFYICONDATA HookWndProc Me.hWnd With IconData 
.cbSize = Len(IconData) 
.hIcon = Me.Icon.Handle 
.hWnd = Me.hWnd 
.szTip = " 阳光软件.阳光按钮 " & vbNullChar 
.uCallbackMessage = WM_SYSTRAYICON 
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE 
.uID = &H1000 
End With Shell_NotifyIcon NIM_ADD, IconData Ok = 0 End Sub Private Sub Command2_Click() Dim IconData As NOTIFYICONDATA With IconData 
.cbSize = Len(IconData) 
.hIcon = Me.Icon.Handle 
.hWnd = Me.hWnd 
.szTip = " 阳光软件.阳光按钮 " & vbNullChar 
.uCallbackMessage = WM_SYSTRAYICON 
.uFlags = NIF_ICON 
.uID = &H1000 
End With Shell_NotifyIcon NIM_DELETE, IconData UnHookWndProc Me.hWnd Ok = 1 End Sub 完整代码下载地址请进：http://sunshine.bodachina.net/mysrc/TrayTest.zip 

Answer 2

谢谢shines 的回答，我已经搞定！