求教如何取得user系列变量的值

petty

急求请各位，vba如何取得users系列变量的值，赋值我已会了，却不会读出，真急？


另外如何让窗体中的多页控件multipage显示时如何停留在我想要的页面上?

mccad

1.这样做：       ThisDrawing.GetVariable "users1"
2.这样做：

2. Private Sub UserForm_Initialize()
3.        Me.MultiPage1.Value = 1
4. End Sub

Private Sub UserForm_Initialize()        Me.MultiPage1.Value = 1 End Sub

petty

谢了

petty

还是不对啊


１.我用上面的方法,ThisDrawing.GetVariable "users1" ,aaa 提示编译错误,无效的属性和方法,因为你上面没写明自定义的变量的位置,无论我放在哪里都不对,读取变量好象不是赋值的反推.


2.我要求的是多页控件停留在我想要的页面上:指page1或者page2,不是停留在多页控件上,


还望再请指教

mccad

1.你先看看帮助吧：

2. Sub GetUsersVariable()
3.        Dim mccad As String
4.        ThisDrawing.SetVariable "users1", "明经通道"
5.        mccad = ThisDrawing.GetVariable("users1")
6.        Debug.Print mccad
7. End Sub

Sub GetUsersVariable()        Dim mccad As String        ThisDrawing.SetVariable "users1", "明经通道"        mccad = ThisDrawing.GetVariable("users1")        Debug.Print mccad End Sub

2.搞不清楚你说的停留是什么意思。不是显示哪一页吗？
MultiPage控件的Value 值就是显示哪一页的属性，0为第1页，1为第2页，类推。

petty

此问题已经解决,十分感谢,另外能不以请版主告诉我,我的VBA布局窗口被我搞乱了,有没有办法初始化成原先的界面,原先的属性窗口,工程资源窗口都是粘在一起的很好,现在怎么也恢复不过来了

mccad

慢慢拉好吧