Board logo

標題: 學習與應用 [打印本頁]
作者: myleoyes    時間: 2014-7-16 21:27     標題: 學習與應用

各位前輩你們好!!   
      前輩!
  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    時間: 2014-7-18 19:36

回復 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    時間: 2014-7-18 21:17

回復 2# stillfish00
前輩!!
     謝謝!程式雖解決[F1] = "ｉ"的問題
     但是說明鈕依然為無效鈕
     也就是說[F1]無法 = "Ｈ"請再指導謝謝再三!!
作者: stillfish00    時間: 2014-7-21 19:18

回復 3# myleoyes
你查一下msgbox 回傳值是沒vbHelp的，
該Help按鈕應是用來讓你連結msgbox引數"helpfile"定義的檔案的。
作者: myleoyes    時間: 2014-7-21 21:42

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

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

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

3. 附檔是範例，可連結到說明檔。[attach]18737[/attach]
作者: myleoyes    時間: 2014-7-22 21:42

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)