[發問] MultiPage寫法

acdx

PTAVS.zip (92.9 KB)

下載次數: 8

2014-8-20 14:59

表單中有數個MultiPage,該如何使他跳至指定的頁面?
範例:
選1U-C2時自動跳到1U底下C2
[attach]18973[/attach]
選1U-C4時自動跳到1U底下C4

下載 (31.23 KB)
選1U-C4時自動跳到1U底下C4

2014-8-20 14:55

選3U-C4時卻不會跳到3U底下C4

下載 (29.83 KB)
選3U-C4時卻不能跳到3U底下C4

2014-8-20 14:55

GBKEE

回復 1# acdx
試試看

1. Private Sub CommandButton4_Click()
   
2.     Dim i As Integer
   
3.     With Frame5
   
4.         For i = 0 To .Count - 1
   
5.              .Controls(i).Value = False
   
6.         Next
   
7.     End With
   
8.     OptionButton11_Click
   
9. End Sub

複製代碼

1. Private Sub OptionButton25_Click()
   
2.     Dim i As Integer, ii As Integer   
   
3.     i = -1
   
4.     With Frame93
   
5.         For ii = 0 To .Count - 1
   
6.             If .Controls(ii).Value Then i = ii: Exit For
   
7.         Next
   
8.     End With
   
9.     With MultiPage2
   
10.         For ii = 0 To .Pages.Count - 1
    
11.             .Pages(ii).Enabled = (i = ii)
    
12.         Next
    
13.         .Value = i
    
14.     End With
    
15.     OptionButton11_Click
    
16. End SubEnd Sub
    
17. Private Sub OptionButton26_Click()
    
18.     OptionButton25_Click
    
19. End Sub
    
20. Private Sub OptionButton27_Click()
    
21.     OptionButton25_Click
    
22. End Sub
    
23. Private Sub OptionButton28_Click()
    
24.     OptionButton25_Click
    
25. End Sub

複製代碼

1. Private Sub OptionButton11_Click()
   
2.     Dim p As Control, i As Integer, ii As Integer
   
3.     With MultiPage2
   
4.         Set p = .Pages(.Value).Controls(0)
   
5.     End With
   
6.     i = -1
   
7.     With Frame5
   
8.         For ii = 0 To .Controls.Count - 1
   
9.             If .Controls(ii).Value Then i = ii: Exit For
   
10.         Next
    
11.     End With
    
12.     With p
    
13.         For ii = 0 To .Pages.Count - 1
    
14.             .Pages(ii).Enabled = (i = ii)
    
15.         Next
    
16.         If .Pages.Count - 1 >= i Then .Value = i
    
17.     End With
    
18. End Sub
    
19. Private Sub OptionButton12_Click()
    
20.     OptionButton11_Click
    
21. End Sub
    
22. Private Sub OptionButton13_Click()
    
23.     OptionButton11_Click
    
24. End Sub
    
25. Private Sub OptionButton14_Click()
    
26.     OptionButton11_Click
    
27. End Sub
    
28. Private Sub OptionButton15_Click()
    
29.     OptionButton11_Click
    
30. End Sub

複製代碼

acdx

回復 2# GBKEE
感謝G大的幫忙
在下對程式還有些不懂
Private Sub OptionButton11_Click()
    Dim p As Control, i As Integer, ii As Integer
    With MultiPage2
        Set p = .Pages(.Value).Controls(0)
    End With
     i = -1
     With Frame5
         For ii = 0 To .Controls.Count - 1
             If .Controls(ii).Value Then i = ii: Exit For
         Next
     End With
     With p
         For ii = 0 To .Pages.Count - 1
             .Pages(ii).Enabled = (i = ii)
         Next
         If .Pages.Count - 1 >= i Then .Value = i        '此行的用途為何?
     End With
End Sub

GBKEE

回復 3# acdx

1. Private Sub OptionButton11_Click()
   
2.     Dim p As Control, i As Integer, ii As Integer
   
3.     With MultiPage2
   
4.         Set p = .Pages(.Value).Controls(0)  'MultiPage物件*************
   
5.         '**************************************************************
   
6.         '如 MultiPage2.Value=3
   
7.         'MultiPage2的Page(3)["Others"]中MultiPage3只有一個Page(User-Defined)
   
8.         '**************************************************************
   
9.     End With     
   
10.     i = -1
    
11.      With Frame5 '有5個OptionButton  **************
    
12.          For ii = 0 To .Controls.Count - 1
    
13.              If .Controls(ii).Value Then i = ii: Exit For
    
14.                 '***************************************
    
15.                 'Frame5 第5個OptionButton.Value=True i = 4
    
16.                 '沒有.Value=True 時  i = -1            
    
17.                 '***************************************               
    
18.          Next
    
19.      End With
    
20.      With p     'MultiPage物件**************************
    
21.          For ii = 0 To .Pages.Count - 1
    
22.              .Pages(ii).Enabled = (i = ii)
    
23.          Next
    
24.          If .Pages.Count - 1 >= i Then .Value = i        '此行的用途為何?       
    
25.         '***************************************************
    
26.         '如 MultiPage2.Value=3 且 i = 4 或 i = -1        
    
27.         '沒有If .Pages.Count - 1 >= i 的限制,.Value = i 會有錯誤產生.
    
28.         '***************************************************
    
29.      End With
    
30. End Sub

複製代碼

使用Class 物件類別模組,表單中OptionButton控制項的名稱有修改.
Ex.rar (26.64 KB)

下載次數: 9

2014-8-21 20:42