學習與應用

myleoyes

各位前輩你們好!!   
      前輩!

1. Sub 學習()
   
2.     [F1] = ""
   
3.     If MsgBox("  練習已結束～即將關閉檔案！", 16384 + 2, "  終止與重試 , 略過及說明鈕  應用練習") = vbAbort Then
   
4.         [F1] = "Ａ"
   
5.     ElseIf vbRetry Then
   
6.         [F1] = "Ｒ"
   
7.     ElseIf vbIgnore Then
   
8.         [F1] = "ｉ"
   
9.     ElseIf vbHelp Then
   
10.         [F1] = "Ｈ"
    
11.     End If
    
12. End Sub

複製代碼

請問為何按略過鈕F1= "Ｒ"而非= "ｉ"
      再問如何讓說明鈕成為有效鈕
      不知程式如何寫才能達成目的
      請知道的前輩,不吝賜教謝謝再三!!

stillfish00

回復 1# myleoyes

1. Sub 學習()
   
2.     Dim v
   
3.     [F1] = ""
   
4.     v = MsgBox("  練習已結束～即將關閉檔案！", 16384 + 2, "  終止與重試 , 略過及說明鈕  應用練習")
   
5.     If v = vbAbort Then
   
6.         [F1] = "Ａ"
   
7.     ElseIf v = vbRetry Then
   
8.         [F1] = "Ｒ"
   
9.     ElseIf v = vbIgnore Then
   
10.         [F1] = "ｉ"
    
11.     ElseIf v = vbHelp Then
    
12.         [F1] = "Ｈ"
    
13.     End If
    
14. End Sub

複製代碼

myleoyes

回復 2# stillfish00
前輩!!
     謝謝!程式雖解決[F1] = "ｉ"的問題
     但是說明鈕依然為無效鈕
     也就是說[F1]無法 = "Ｈ"請再指導謝謝再三!!

stillfish00

回復 3# myleoyes
你查一下msgbox 回傳值是沒vbHelp的，
該Help按鈕應是用來讓你連結msgbox引數"helpfile"定義的檔案的。

myleoyes

回復 4# stillfish00
前輩!!
     謝謝!是的msgbox 回傳值是沒vbHelp
     然而vbMsgBoxHelpButton值是16384 將 Help按鈕新增到訊息方塊中。
     既然將 Help按鈕新增到訊息方塊中。
     照理說按Help鈕也應該如前輩!所訴連結msgbox引數"helpfile"定義的檔案
     可是卻為無效鈕很納悶??所以提問題討論想解心中疑惑?謝謝再三!!

stillfish00

回復 5# myleoyes
1. helpfile引數應該是指chm格式的說明文件，你要知道如何建立chm文件，不會請自行google找答案。

2. 另外context引數也是必須的，context引數用來指定說明主題，那麼哪一個數值會對應哪一個主題? 這在你建立該chm檔時可以去定義的。

3. 附檔是範例，可連結到說明檔。 Test20140722.zip (10.53 KB)

下載次數: 5

2014-7-22 09:51

myleoyes

回復 6# stillfish00
前輩!!
     謝謝指導!小弟整理一下思緒再提問辛苦囉謝謝再三!!