类模块实例3: 可看到计算过程的计算器

军悟居士

以为会有很长的代码，没想到这么短几句就完成了。

兰版

[em17][em17][em17]

wbzxz

Public WithEvents che As MSForms.CommandButton
Public WithEvents frm As MSForms.UserForm
Private Sub che_click()
    Dim index As Long
    With UserForm3.TextBox1
         index = Val(Mid(che.Name, 14, 10))  '取出checkboxN中的数字N
         If index <> 12 Then
           If dd = True And index < 11 Then
            MsgBox "再次运算需要输入运算符号"
           Else
            mystr = mystr & frm.Controls("CommandButton" & index).Caption
           .Text = mystr
           dd = False
           End If
         End If
    End With
End Sub

兰版，上面这段代码中

mystr = mystr & frm.Controls("CommandButton" & index).Caption

这一句，我改成了这样子，但是没有成功，是不是不支持这种写法呢？

mystr = mystr & frm.che.Caption

我看che和frm都是声明过的啊。

兰色幻想

QUOTE:

以下是引用wbzxz在2010-8-24 16:07:00的发言：

Public WithEvents che As MSForms.CommandButton
Public WithEvents frm As MSForms.UserForm
Private Sub che_click()
    Dim index As Long
    With UserForm3.TextBox1
         index = Val(Mid(che.Name, 14, 10))  '取出checkboxN中的数字N
         If index <> 12 Then
           If dd = True And index < 11 Then
            MsgBox "再次运算需要输入运算符号"
           Else
            mystr = mystr & frm.Controls("CommandButton" & index).Caption
           .Text = mystr
           dd = False
           End If
         End If
    End With
End Sub

兰版，上面这段代码中

mystr = mystr & frm.Controls("CommandButton" & index).Caption

这一句，我改成了这样子，但是没有成功，是不是不支持这种写法呢？

mystr = mystr & frm.che.Caption

我看che和frm都是声明过的啊。

che和frm虽然一个是按钮一个是窗体，但他们并没有隶属关系，所以frm.che是错误的。

如果要改，可以这样

mystr = mystr & che.Caption  ‘把frm去掉

wp8680

越是学得多，越是觉得懂得少。

wbzxz

QUOTE:

以下是引用兰色幻想在2010-8-25 18:53:00的发言：

che和frm虽然一个是按钮一个是窗体，但他们并没有隶属关系，所以frm.che是错误的。

如果要改，可以这样

mystr = mystr & che.Caption  ‘把frm去掉

哦，原来在类模块里面，虽然一个是窗体，一个是按钮，但是它们的隶属关系已经不存在了，是吧，兰版。

gfp12345678

下来学习！

cdy_chen888

vbcbcbc

hhh0310

牛！

sjj

好东西,学习!

wangzunhai

在这里学习是件快乐的事!