請問各位大大！
開啟了自己所設計的某一程式後，要怎麼在其他的畫面當中，按了滑鼠左鍵一下後，可以立即關閉原先自己所設計的程式呢？
開啟了自己所設計的某一程式後，要怎麼在其他的畫面當中，按了滑鼠左鍵一下後，可以立即關閉原先自己所設計的程式呢？
文章標籤
全站熱搜
- 2月 04 週三 200403:31
請問在其他畫面下按滑鼠即可關閉原先開啟的程式？(編號：32869)
文章分類
- Timer (335)
- ODBC (388)
- Print (641)
- DragDrop (9)
- MSComm (336)
- Picture (447)
- ADODC (752)
- 公因數 (20)
- Label (292)
- Datareport (778)
- 封裝 (451)
- RichTextBox (165)
- webcam (5)
- MSFlexGrid (135)
- 進位 (121)
- Office (5)
- 輸入法 (73)
- Datagrid (422)
- Notes (10)
- Mapi (34)
- Outlook (74)
- Run-Time Error (29)
- Jmail (6)
- MP3 (77)
- 信用卡 (8)
- E-Mail (119)
- Base64 (8)
- VBScript (24)
- XML (39)
- FlexGrid (21)
- DIR (41)
- Word (104)
- 文字檔 (376)
- Big5 (18)
- MSN (23)
- MsChart (74)
- DataGrid (33)
- 壓縮 (40)
- 字串 (480)
- MSDN (87)
- ASP (521)
- 陣列 (210)
- From (2,327)
- Shape (71)
- 資源檔 (26)
- Treeview (55)
- 心冷熱情熄 (2)
- VB.NET (51)
- 小吳 (51)
- MySQL (5)
- DirListBox (5)
- Flash (7)
- FileListBox (23)
- 網路安全 (5)
- Web services (1)
- ADODB (35)
- Line (15)
- HTML (34)
- Win32 (1)
- 繪圖 (5)
- ASCII (70)
- COM Port (2)
- ComboBox (11)
- IE (267)
- FoxPro (1)
- ListView (88)
- ActiveX (79)
- PictureBox (185)
- Shell (118)
- Image (60)
- Error (63)
- ADO (642)
- 亂碼 (23)
- IIS (11)
- RS232 (158)
- USB (72)
- WebBrowser (5)
- 滑鼠 (241)
- 鍵盤 (59)
- 資料庫 (1,304)
- Unicode (8)
- Recordset (36)
- Winsock (511)
- 安裝 (5)
- DLL (615)
- OCX (195)
- HTML (74)
- TextBox (1,057)
- MDI (152)
- API (445)
- 倚天 (2)
- Crystal Report (710)
- ListBox (115)
- 列印 (525)
- SQL (1,400)
- 程式設計 (12)
- VB (5,631)
- Access (285)
- VBA (16)
- Excel (189)
- 未分類文章 (1)
在Form_LostFocus 的event內unload me 行不行?
我有用過好像不行！ 有沒有其他的方法！
你是指在甲程式關閉乙程式嗎?
嗯嗯！沒錯
使用FindWindows或EnumWindows找到視窗的handle...然後再使用PostMessage..傳WM_CLOSE即可關閉...可全文檢索查閱使用方法
請問要查什麼文章？ 可以告訴我嗎？
抄來的參考看看 在甲程式關閉乙程式 以下是甲程式 Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Declare Function PostMessage Lib "user32" Alias "PostMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long Public Const WM_CLOSE = &H10 Private Sub Command1_Click() Dim winHwnd As Long Dim RetVal As Long winHwnd = FindWindow(vbNullString,乙程式form的name屬性值) If winHwnd ＜＞ 0 Then RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) If RetVal = 0 Then ' MsgBox "Error 無法關閉視窗." Else ' MsgBox "關閉視窗已完成." End If Else 'MsgBox "並未開啟程式." End If DoEvents End Sub
好像無法使用！
把前面的宣告放在模組裡 如果沒設按鍵1可以將程式放在別的程序中 一定可用因為我用過了