標題: [發問] 關於MultiPage的Page1和Page2的OptionButton~選取時~是否可以不重複 [打印本頁]

---

作者: av8d    時間: 2012-10-30 12:30     標題: 關於MultiPage的Page1和Page2的OptionButton~選取時~是否可以不重複

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

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

---

作者: GBKEE    時間: 2012-10-30 13:39

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

---

作者: mark15jill    時間: 2012-10-30 15:29

本帖最後由 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)

---

作者: av8d    時間: 2012-10-30 16:33

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

回復 2# GBKEE

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

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

---

作者: mark15jill    時間: 2012-10-30 16:43

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

[attach]12949[/attach]
參考看看吧
將 ftame 相關參數 改成 multipage  相關參數就可以了

---

作者: GBKEE    時間: 2012-10-30 16:59

回復 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

複製代碼

---

作者: av8d    時間: 2012-10-31 10:38

回復 6# GBKEE


    學習了~好用+1

---

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