冰楓論壇

 找回密碼
 立即註冊
搜索
查看: 2525|回覆: 3
打印 上一主題 下一主題

[分享] 防止多開 - 簡單版

[複製鏈接]

22

主題

1

好友

82

積分

新手上路

Rank: 1

UID
11989
帖子
600
主題
22
精華
0
積分
82
楓幣
217
威望
33
存款
6248
贊助金額
0
推廣
2
GP
5
閱讀權限
10
性別
保密
在線時間
985 小時
註冊時間
2012-8-12
最後登入
2024-3-3

音樂勳章 解說達人 私服達人 論壇粉絲 長老勳章 發帖達人 論壇支持王 在線終極王 性別(男) 幼兒勳章 Apple勳章 2019年紀念勳章

跳轉到指定樓層
1
發表於 2012-8-14 02:30:22 |只看該作者 |倒序瀏覽
Public Sub CheckExist(fm As Form)
Dim title As String
If App.PrevInstance Then
   title = App.title
   Call MsgBox("文字", vbCritical)
   App.title = ""    '如此才不會Avtivate到自己
   fm.Caption = ""
   AppActivate title 'activate先前就已行的程序
   End
End If
End Sub

Private Sub Form_Load()
Call CheckExist(Me)
End Sub

網路上找到的,自己測試是可以用的
收藏收藏1 推0 噓0


把本文推薦給朋友或其他網站上,每次被點擊增加您在本站積分: 1鑰匙
複製連結並發給好友,以賺取推廣點數
簡單兩步驟,註冊、分享網址,即可獲得獎勵! 一起推廣文章換商品、賺$$
頭像被屏蔽

12

主題

0

好友

13

積分

禁止發言

UID
11919
帖子
53
主題
12
精華
0
積分
13
楓幣
1080
威望
9
存款
0
贊助金額
0
推廣
0
GP
-2
閱讀權限
0
性別
保密
在線時間
72 小時
註冊時間
2012-8-10
最後登入
2014-2-22
2
發表於 2012-9-16 22:30:56 |只看該作者
提示: 作者被禁止或刪除 內容自動屏蔽
點評回覆

使用道具 舉報

頭像被屏蔽

1

主題

0

好友

-2

積分

禁止發言

UID
20700
帖子
30
主題
1
精華
0
積分
-2
楓幣
61
威望
-4
存款
0
贊助金額
0
推廣
0
GP
0
閱讀權限
0
性別
保密
在線時間
21 小時
註冊時間
2013-1-23
最後登入
2014-3-14
3
發表於 2013-2-7 10:39:58 |只看該作者
提示: 作者被禁止或刪除 內容自動屏蔽
點評回覆

使用道具 舉報

頭像被屏蔽

0

主題

0

好友

-2

積分

禁止發言

UID
22877
帖子
20
主題
0
精華
0
積分
-2
楓幣
7
威望
-2
存款
0
贊助金額
0
推廣
0
GP
0
閱讀權限
0
性別
保密
在線時間
2 小時
註冊時間
2013-2-8
最後登入
2013-2-8
4
發表於 2013-2-8 11:43:34 |只看該作者
提示: 作者被禁止或刪除 內容自動屏蔽
簽名被屏蔽
點評回覆

使用道具 舉報

高級模式
B Color Image Link Quote Code Smilies |上傳

廣告刊登意見回饋關於我們管群招募本站規範DMCA隱私權政策

Copyright © 2011-2024 冰楓論壇, All rights reserved

免責聲明:本網站是以即時上載留言的方式運作,本站對所有留言的真實性、完整性及立場等,不負任何法律責任。

而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。

小黑屋|手機版|冰楓論壇

GMT+8, 2024-12-16 00:04

回頂部