廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 8674 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   
troy_liaw106
數位造型
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x0 鮮花 x0
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x0
[Basic][求助] vb6 msgbox的確定按鈕可以把確定改成其他字(自訂)嗎?
我想要像記事本關閉時跳出來的msgbox一樣,在上面顯示儲 ..

訪客只能看到部份內容,免費 加入會員 或由臉書 Google 可以看到全部內容



[ 此文章被troy_liaw106在2011-02-20 22:58重新編輯 ]


獻花 x0 回到頂端 [樓 主] From:台灣教育部 | Posted:2011-02-20 22:47 |
ebolaman 手機 會員卡
個人文章 個人相簿 個人日記 個人地圖
特殊貢獻獎

級別: 副版主 該用戶目前不上站
版區: 程式設計
推文 x38 鮮花 x458
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

Form 的 QueryUnload 事件中加上判斷即可

使用者按下 Form 的 右上角 X 時會觸發這個事件


參數部分:

Cancel 為是否要取消離開的動作 (某些視窗關不掉就有可能是 不管使用者怎麼點 此項都設為 1)
UnloadMode 請參考 知識+



複製程式
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

'--------------- Specify Value ----------------
Dim HasNotSaved As Boolean '紀錄文字在儲存後 或 剛開始後 是否已被變動
HasNotSaved = True
'----------------------------------------------


If HasNotSaved Then
    Select Case UnloadMode
    Case 1 To 3
        'Measure of Backup
    '-------------------
    Case Else
        Select Case MsgBox("尚未儲存。 是否要儲存目前的變更?", vbQuestion + vbYesNoCancel + vbDefaultButton1, "這不是記事本")
        Case vbYes
          'Save to Files
        Case vbNo
          'Exit Directly
        Case vbCancel
          Cancel = 1
        End Select
    '--------------------
    End Select
End If


End Sub




以上用 HasNotSaved 模擬記事本中文字已被修改,則此項為 True

在離開時被偵測到,而 除了 UnloadMode 2~3 是不正常的關閉外(可採用備份措施)

通常都是使用者按下 X 會讓 UnloadMode = 0 而就是最內層的 Select Case … End Select



最核心的程式碼如下:

複製程式
        Select Case MsgBox("尚未儲存。 是否要儲存目前的變更?", vbQuestion + vbYesNoCancel + vbDefaultButton1, "這不是記事本")
        Case vbYes
          'Save to Files
        Case vbNo
          'Exit Directly
        Case vbCancel
          Cancel = 1
        End Select


至於快捷鍵則是 預設 就有了

此文章被評分,最近評分記錄
財富:50 (by 三仙) | 理由: ^^ 因為您的參與,讓程式設計更容易!!


My BOINC stats :

獻花 x1 回到頂端 [1 樓] From:台灣台灣寬頻 | Posted:2011-02-21 21:37 |
A2737612
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x0 鮮花 x2
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

拿去看看


獻花 x0 回到頂端 [2 樓] From:美國ATT用戶 | Posted:2013-01-02 10:42 |

首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.085530 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言