[發問] MultiPage寫法

本帖最後由 acdx 於 2014-8-20 15:06 編輯

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

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

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-8-20 21:32 | 只看該作者

本帖最後由 GBKEE 於 2014-8-21 05:58 編輯

回復 1# acdx
試試看

Private Sub CommandButton4_Click()
Dim i As Integer
With Frame5
For i = 0 To .Count - 1
.Controls(i).Value = False
Next
End With
OptionButton11_Click
End Sub

複製代碼

Private Sub OptionButton25_Click()
Dim i As Integer, ii As Integer
i = -1
With Frame93
For ii = 0 To .Count - 1
If .Controls(ii).Value Then i = ii: Exit For
Next
End With
With MultiPage2
For ii = 0 To .Pages.Count - 1
.Pages(ii).Enabled = (i = ii)
Next
.Value = i
End With
OptionButton11_Click
End SubEnd Sub
Private Sub OptionButton26_Click()
OptionButton25_Click
End Sub
Private Sub OptionButton27_Click()
OptionButton25_Click
End Sub
Private Sub OptionButton28_Click()
OptionButton25_Click
End Sub

複製代碼

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
Private Sub OptionButton12_Click()
OptionButton11_Click
End Sub
Private Sub OptionButton13_Click()
OptionButton11_Click
End Sub
Private Sub OptionButton14_Click()
OptionButton11_Click
End Sub
Private Sub OptionButton15_Click()
OptionButton11_Click
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

3^#

發表於 2014-8-21 17:43 | 只看該作者

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

TOP

GBKEE