multipage控件可以通过page的caption来控制显示的页面吧？

Moneky

如果你非要通过Captain引用Page，可以自己写一个过程来实现。给你写了一个小例子。

lanfengye

Moneky 发表于 2018-6-7 08:49
如果你非要通过Captain引用Page，可以自己写一个过程来实现。给你写了一个小例子。

谢谢~看来确实没有直接的办法，只能走曲线，哈哈

lanfengye

一指禅62 发表于 2018-6-7 08:30
1、将  P 定义为 MSForms.Page，我测试过了，是正确的。
2、是  MSForms.Page（一个对象） ，而不是 mul ...

你把你的例子里面随便一个page的caption改一下就知道我在说什么了。

一指禅62

lanfengye 发表于 2018-6-8 08:58
你把你的例子里面随便一个page的caption改一下就知道我在说什么了。

您说的正确！谢谢提醒。只能遍历了

1. Private Sub ComboBox1_Change()
   
2.     Dim P As MSForms.Page
   
3.     If Trim(ComboBox1.Text) = "" Then Exit Sub
   
4.     For Each P In Me.MultiPage1.Pages
   
5.         If P.Caption = Trim(ComboBox1.Text) Then
   
6.             MultiPage1.Value = P.Index
   
7.             Exit For
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

一指禅62

lanfengye 发表于 2018-6-6 08:36
感谢回复，不过我发现您的解答好像不对。
因为您用的caption正好是等于codename，所以您实际使用的是通 ...

谢谢指正！

lanfengye

一指禅62 发表于 2018-6-8 12:34
谢谢指正！

不客气，相互交流而已~