[VB.Net]避免程式重複執行

-
最近使用圖控開發專案~偶爾還是想偷懶的想要用VBNet寫一些小程式來配合專案的執行


所以程式不想要有重複執行，於是找了些資料。
原來VB.Net內就已經有這個選項



其實也可以用程式與法來作判斷
參考網址:http://eos45.pixnet.net/blog/post/6508784

        '檢查程式是否已經開啟
        '取得目前程式的Process
        Dim thisProcess As Process = Process.GetCurrentProcess

 

        '以目前的process名稱去尋找目前電腦上所有執行的process
        '如果找到的數量超過 1 表示之前已經進行呼叫過
        Dim myProcess As Process() = Process.GetProcessesByName(thisProcess.ProcessName)
        If myProcess.Length > 1 Then

            '結束執行程式

            'MessageBox.Show("應用程式已開啟")

            'Return

            Exit Sub

        End If

留言

張貼留言

這個網誌中的熱門文章

[Excel]將圖片放置於儲存格中

-
圖片
前言：忽然要將圖片放在Excel儲存格中，結果小卡了一下。  先將儲存格大小調整成比圖片還大一些 點選圖片後，選擇格式>>對齊>>貼齊格線 在圖片上按右鍵>>大小及內容 屬性設定成大小及位置隨儲存格而變 儲存格變小，圖片變扁(左上)；儲存格拉大則圖片變正常(圖片不會變更大) 儲存格隱藏，圖片會跟著一起隱藏(下)
閱讀完整內容

[軟體]AUTOCAD關於開啟圖面時，字型找不到,而要手動指定成 chineset.shx 字型檔問題

-
圖片
再開起別人的CAD檔，常常會出現找不到字型的情形，因為製圖的人電腦上的自行我們不一定都會有，所以當我們開啟時，通常會跳出下列視窗，要求我們選擇替代的字型。 但是由於筆者使在太懶了，每次都要點這樣的視窗實在不再符合筆者的"史代歐"，所以在G大神的指引之下找到了解決方法。 下圖找不到字型GENIE 我們需要更改字體對映檔，將缺的字體自動對映到其他字體上 首先到字體對映檔位置: C:\Documents and Settings\使用者帳號\Application Data\Autodesk\AutoCAD 版本\版本代號\cht\support\acad.fmp  找到acad.fmp點選右鍵>>開啟檔案>>以記事本開啟  在最下面加入 找不到的;要替代的字體.shx ,爾後 CAD 若找不到字型時會自動指定字型檔。 下列兩行則是將GENIE和AE這兩個字體以chineset.shx替代 GENIE;chineset.shx AE;chineset.shx 就降~~~沒了 參考文獻:http://autocad.bestoforum.net/t3380-topic
閱讀完整內容

[MS SQL]查詢資料庫中每個資料表之列數與資料表大小(容量)資訊。Get size of all tables in database

-
圖片
紀錄一下 USE DatabaseName Go SELECT t.NAME AS TableName, --s.Name AS SchemaName, p.rows AS RowCounts, SUM(a.total_pages) * 8 /1024 AS TotalSpaceMB, SUM(a.used_pages) * 8 /1024 AS UsedSpaceMB, (SUM(a.total_pages) - SUM(a.used_pages)) * 8 /1024 AS UnusedSpaceMB FROM sys.tables t INNER JOIN sys.indexes i ON t.OBJECT_ID = i.object_id INNER JOIN sys.partitions p ON i.object_id = p.OBJECT_ID AND i.index_id = p.index_id INNER JOIN sys.allocation_units a ON p.partition_id = a.container_id LEFT OUTER JOIN sys.schemas s ON t.schema_id = s.schema_id WHERE t.NAME NOT LIKE 'dt%' AND t.is_ms_shipped = 0 AND i.OBJECT_ID > 255 GROUP BY t.Name, s.Name, p.Rows ORDER BY t.Name 參考來源： http://stackoverflow.com/questions/7892334/get-size-of-all-tables-in-database
閱讀完整內容