返回列表 上一主題 發帖

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

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-8 09:37 | 顯示全部帖子

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

各位大大好：
test1.rar (16.26 KB)
  小弟設有一MULTIPAGE表單
並測試二個COMMANDBUTTON按鈕
來測試BOOLEAN傳回值。

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

謝謝各位大大
收藏 分享

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
2#
發表於 2015-2-8 20:35 | 顯示全部帖子
回復 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

感恩版主大大！

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題