萊恩大叔

Public Function MsgBox( _ ByVal Prompt As Object, _ Optional ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OKOnly, _ Optional ByVal Title As Object = Nothing _ ) As MsgBoxResult 參數 Prompt 必選項。以消息形式顯示在對話框中的 String 表達式。Prompt 的最大長度大約為 1024 個字符，具體取決於所用字符的寬度。如果 Prompt 中包含多個行，則可在各行之間用回車符 (Chr(13))、換行符 (Chr(10)) 或回車換行符的組合 (Chr(13) & Chr(10)) 分隔各行。 Buttons 可選項。數值表達式，它是值的總和，指定顯示的按鈕數目及按鈕類型，使用的圖標樣式，默認按鈕的標識以及消息框的樣式等。如果省略 Buttons，則默認值為零。 Title 可選項。顯示在對話框標題欄中的 String 表達式。如果省略 Title，則將應用程序名放在標題欄中。 設置 下表列出了 MsgBoxStyle 枚舉值。 枚舉 值 說明( 若想要的按鈕和圖示要共存的話，請將代碼相加帶入即可 ) OKOnly 0 只顯示「確定」按鈕。 OKCancel 1 顯示「確定」和「取消」按鈕。 AbortRetryIgnore 2 顯示「中止」、「重試」和「忽略」按鈕。 YesNoCancel 3 顯示「是」、「否」和「取消」按鈕。 YesNo 4 顯示「是」和「否」按鈕。 RetryCancel 5 顯示「重試」和「取消」按鈕。 Critical 16 顯示「關鍵消息」圖標。 Question 32 顯示「警告查詢」圖標。 Exclamation 48 顯示「警告消息」圖標。 Information 64 顯示「信息消息」圖標。 DefaultButton1 0 第一個按鈕是默認的。 DefaultButton2 256 第二個按鈕是默認的。 DefaultButton3 512 第三個按鈕是默認的。 ApplicationModal 0 應用程序是有模式的。用戶必須響

最近使用圖控開發專案~偶爾還是想偷懶的想要用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