vb最小化編程

1、要實(shí)現(xiàn)窗口最小化必須滿足以下條件:1:按下最小化按鈕窗體不可見(jiàn)2:最小化后最小化窗體的圖標(biāo)必須出現(xiàn)在任務(wù)欄的通知區(qū)域中3:當(dāng)雙擊通知區(qū)域中的圖標(biāo)時(shí)窗體又顯示出來(lái)同時(shí)通知區(qū)域中的圖標(biāo)消失.要滿足上面的條件:1:首先屏蔽窗體中系統(tǒng)自帶的最小化圖標(biāo)即Fm.MinButton=False2:聲明1個(gè)API函數(shù):PublicDeclareFunctionShell_NotifyIconLib“shell32.dll“Alias“Shell_Not

2、ifyIconA“(ByValdwMessageAsLonglpDataAsNOTIFYICONDATA)AsLong注意:上面這個(gè)API函數(shù)在XP中沒(méi)有別名將別名去掉后為:PublicDeclareFunctionShell_NotifyIconLib“shell32.dll“(ByValdwMessageAsLonglpDataAsNOTIFYICONDATA)AsLong3:聲明7個(gè)常數(shù):PublicConstNIM_ADD=&H

3、0PublicConstNIM_=&H2PublicConstNIF_ICON=&H2PublicConstNIF_MESSAGE=&H1ssageAsLonglpDataAsNOTIFYICONDATA)AsLongPublicConstNIM_ADD=&H0PublicConstNIM_=&H2PublicConstNIF_ICON=&H2PublicConstNIF_MESSAGE=&H1PublicConstNIF_TIP=&H

4、4PublicConstWM_MOUSEMOVE=&H200PublicConstWM_LBUTTONDBLCLK=&H203PublicTypeNOTIFYICONDATAcbSizeasLonghWndasLonguIdasLonguFlagsasLonguCallBackMessageasLonghIconasLongszTipasStringEndTypePublicnidasNOTIFYICONDATA4:編寫(xiě)Comm的單擊事