[發問] 測試表單內multipage二個page的boolean結果不同

dechiuan999

各位大大好：
test1.rar (16.26 KB)

下載次數: 4

2015-2-8 09:36

  小弟設有一MULTIPAGE表單
並測試二個COMMANDBUTTON按鈕
來測試BOOLEAN傳回值。

  現有PAGE1 及 PAGE2
，但PAGE1的BOOLEAN值回值
可傳回正確的TRUE 及 FALSE
但是PAGE2 的BOOLEAN值回值
卻無法傳回正確的TRUE 及FALSE
呢？

謝謝各位大大

GBKEE

回復 1# dechiuan999
Page2 共宣告 [3個] 新的物件模組

1. Private Sub MultiPage1_Change()
   
2.     Select Case UserForm1.MultiPage1.Value
   
3.     Case Is = 0
   
4.     Set Test1 = New clsTest1
   
5.     With Test1
   
6.         Set .cmd1 = Me.Controls("CommandButton1")
   
7.         Set .cmd2 = Me.Controls("CommandButton2")
   
8.         Set .cmd6 = Me.Controls("CommandButton6")
   
9.         Set .mTxtb1 = Me.Controls("TextBox1")
   
10.         .mdTrue = True
    
11.     End With
    
12.     Case Is = 1
    
13.         ReDim Test2(3 To 5)
    
14.         For i = 3 To 5
    
15.             Set Test2(i) = New clsTest2   '共宣告 [3個] 新的物件模組
    
16.             Set Test2(i).cmd = Me.Controls("CommandButton" & CStr(i))
    
17.             Set Test2(i).mTxtb2 = Me.Controls("TextBox2") '
    
18.         Next
    
19.         Test2(3).mType = 3
    
20.         Test2(4).mType = 4
    
21.         Test2(5).mType = 5
    
22.         Test2(3).mdTrue = True
    
23.     End Select
    
24.    
    
25. End Sub

複製代碼

1. Private Sub mCmd_Click()
   
2.     MsgBox mCmd.Caption & "-" & mTrue
   
3.     Select Case ckType
   
4.     Case Is = 3
   
5.         If mTrue = False Then
   
6.         mTrue = True
   
7.         Else
   
8.             mTrue = False
   
9.         End If
   
10.         mTxt2 = mTrue
    
11.     Case Is = 4
    
12.    
    
13.     Case Is = 5
    
14.         If mTrue = True Then
    
15.         mTrue = False
    
16.         Else
    
17.             mTrue = True
    
18.         End If
    
19.         mTxt2 = mTrue
    
20.     End Select
    
21. End Sub

複製代碼

dechiuan999

回復 2# GBKEE


    謝謝版主大大的說明。

小弟原意是想簡化在
clsTest2省略設定
cmd成一個。卻不知有
如此差異。

小弟是因使用下列的設定
共宣告 [3個] 新的物件模組
Set Test2(i) = New clsTest2   
也是因為這【3個】各自獨立的新物件
模組互不相通，boolean才無法回傳正確。
不知小弟的判斷是否是對的嗎？

下列是小弟修正之後：
Case Is = 1
        Set Test2 = New clsTest2
        With Test2
            Set .cmd3 = Me.Controls("CommandButton3")
            Set .cmd4 = Me.Controls("CommandButton4")
            Set .cmd5 = Me.Controls("CommandButton5")
            Set .mTxtb2 = Me.Controls("TextBox2")
            .mdTrue = True
        End With
        
    End Select
Private Sub mCmd3_Click()
     If mTrue = False Then
        mTrue = True
    Else
        mTrue = False
    End If
        mTxt2 = mTrue
End Sub

Private Sub mCmd5_Click()
    If mTrue = True Then
        mTrue = False
    Else
        mTrue = True
    End If
        mTxt2 = mTrue
End Sub

感恩版主大大！