利用选项组控件做的最简单的计算器

时　间:2014-06-05 10:06:00
作　者:在水一方   ID：20576  城市：沈阳
摘　要:只用两个控件，只有一段代码。
正　文:

近日在百度知道回答问题，遇到网友考二级提出的“获取选项组控件值”问题，由此想到做个最简单的计算器示例，最少的代码，最少的控件，当然功能也是最简单的，供大家娱乐。

点击下载此附件

Private Sub Frame_AfterUpdate()
    On Error GoTo err
    Dim ci As String
    ci = "Toggle" & Me.Frame   '由选项组值提取选项组控件名称
    If ci = "Toggle18" Then    ' 等号进行计算
        Me.Text = Eval(Me.Text)
    ElseIf ci = "Toggle19" Then    ' 退格
        Me.Text = Left(Me.Text, Len(Me.Text) - 1)
    Else    '由选组控件名称提取控件标题
        Me.Text = Me.Text & Me.Frame.Controls(ci).Caption
    End If
    Me.Frame = Null
    Exit Sub
err:
    MsgBox "输入的内容格式错误！", vbCritical, ""
    Me.Frame = Null
    Exit Sub
End Sub

附件里还有一个拆分、合并字符串的例子，感兴趣的可以看一下。