返回列表 上一主題 發帖

[發問] 關於MultiPage的Page1和Page2的OptionButton~選取時~是否可以不重複

[發問] 關於MultiPage的Page1和Page2的OptionButton~選取時~是否可以不重複

MultiPage中有Page1和Page2,每個Page各放一個OptionButton分別是OptionButton1和OptionButton2

當我選取Page1的OptionButton1以後~再去選取Page2的OptionButton2~再回到Page1看OptionButton1卻沒有將選取取消~為什麼呢?

回復 1# av8d
這沒錯的.
MultiPage的Page1和Page2,它的OptionButton是個自群組獨立的,沒有關聯

TOP

本帖最後由 mark15jill 於 2012-10-30 15:30 編輯

回復 1# av8d


    GBKEE 大大說的沒錯..

正常情況下
頁數                                            Caption(Name)                                                   Caption(Name)
page(1)                     OptionButton1(OptionButton1)                     OptionButton2(OptionButton2)
page(2)                      OptionButton1(OptionButton3)                     OptionButton2(OptionButton4)

試試看 程式運行時,另設 OptionButton 1 和 2 ,會變成
頁數                                            Caption(Name)                                                   Caption(Name)
page(1)                     OptionButton1(OptionButton1)                     OptionButton2(OptionButton2)
page(2)                      OptionButton1(OptionButton1)                     OptionButton2(OptionButton2)

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

本帖最後由 av8d 於 2012-10-30 16:43 編輯

回復 2# GBKEE

如果
Page1有OptionButton1~30
Page2有OptionButton31~60

假如我先選取了Page1的OptionButton5
然後再選取Page2的的OptionButton45
此時如何讓Page1的OptionButton5消失? 感謝各位大大!

TOP

本帖最後由 mark15jill 於 2012-10-30 16:45 編輯

optionbutton核選 版本999.rar (21.57 KB)
參考看看吧
將 ftame 相關參數 改成 multipage  相關參數就可以了

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

回復 4# av8d
表單程式碼
  1. Option Explicit
  2. Private Sub MultiPage1_Change()
  3.     Dim p As MSForms.Page, C As Object
  4.     For Each p In MultiPage1.Pages
  5.         If p.Name <> MultiPage1.SelectedItem.Name Then
  6.             For Each C In p.Controls
  7.                 If C.Name Like "OptionButton*" Then C.Value = False
  8.             Next
  9.         End If
  10.      Next
  11. End Sub
複製代碼

TOP

回復 6# GBKEE


    學習了~好用+1

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題