近日在百度知道回答问题,遇到网友考二级提出的“获取选项组控件值”问题,由此想到做个最简单的计算器示例,最少的代码,最少的控件,当然功能也是最简单的,供大家娱乐。
点击下载此附件
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
附件里还有一个拆分、合并字符串的例子,感兴趣的可以看一下。