返回列表 上一主題 發帖

[發問] 測試表單內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
呢？

謝謝各位大大
收藏 分享

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2015-2-8 16:16 | 只看該作者
回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

dechiuan999

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

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題