VB.NET 脚本计算机示例

相关代码示例:

Public Class Form1
    Private Sub bt_7_Click(sender As Object, e As EventArgs) Handles bt_7.Click
        TextBox1.AppendText(7)
    End Sub

    Private Sub bt_8_Click(sender As Object, e As EventArgs) Handles bt_8.Click
        TextBox1.AppendText(8)
    End Sub

    Private Sub bt_10_Click(sender As Object, e As EventArgs) Handles bt_10.Click
        TextBox1.AppendText(10)
    End Sub

    Private Sub bt_j_Click(sender As Object, e As EventArgs) Handles bt_j.Click
        TextBox1.AppendText("-")
    End Sub

    Private Sub bt_4_Click(sender As Object, e As EventArgs) Handles bt_4.Click
        TextBox1.AppendText(4)
    End Sub

    Private Sub bt_5_Click(sender As Object, e As EventArgs) Handles bt_5.Click
        TextBox1.AppendText(5)
    End Sub

    Private Sub bt_6_Click(sender As Object, e As EventArgs) Handles bt_6.Click
        TextBox1.AppendText(6)
    End Sub

    Private Sub bt_jh_Click(sender As Object, e As EventArgs) Handles bt_jh.Click
        TextBox1.AppendText("+")
    End Sub

    Private Sub bt_1_Click(sender As Object, e As EventArgs) Handles bt_1.Click
        TextBox1.AppendText(1)
    End Sub

    Private Sub bt_2_Click(sender As Object, e As EventArgs) Handles bt_2.Click
        TextBox1.AppendText(2)
    End Sub

    Private Sub bt_3_Click(sender As Object, e As EventArgs) Handles bt_3.Click
        TextBox1.AppendText(3)
    End Sub

    Private Sub bt_c_Click(sender As Object, e As EventArgs) Handles bt_c.Click
        TextBox1.AppendText("*")
    End Sub

    Private Sub bt_0_Click(sender As Object, e As EventArgs) Handles bt_0.Click
        TextBox1.AppendText(0)
    End Sub

    Private Sub bt_ch_Click(sender As Object, e As EventArgs) Handles bt_ch.Click
        TextBox1.AppendText("/")
    End Sub
    Private Sub bt_d_Click(sender As Object, e As EventArgs) Handles bt_d.Click
        TextBox1.AppendText(".")
    End Sub

    Private Sub bt_res_Click(sender As Object, e As EventArgs) Handles bt_res.Click
        Dim vbs As Object
        vbs = CreateObject("MSScriptControl.ScriptControl")
        vbs.Language = "VBScript"
        On Error GoTo Err
        TextBox2.Text = vbs.eval(TextBox1.Text)
Err:
        If vbs.Error.number <> 0 Then
            MsgBox("错误代号:" & vbs.Error.number & vbCrLf &
                           "错误信息:" & vbs.Error.Description & vbCrLf &
                           "错误行号:" & vbs.Error.Line & vbCrLf &
                           "错误列号:" & vbs.Error.Column)
        End If
    End Sub
End Class

本文分享自微信公众号 - VB小源码(vb_xym)

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2019-03-19

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏眯眯眼猫头鹰的小树杈

leetcode442. Find All Duplicates in an Array

存在一个整数数组,其中的所有元素都位于1~n之间,其中n是数组的长度。有的元素出现了一次,而有的元素出现了两次。找到数组中所有出现两次的数字。

11540
来自专栏Java技术栈

深入浅出Java中的clone克隆方法,写得太棒了!

作者:张纪刚 blog.csdn.net/zhangjg_blog/article/details/18369201/

11370
来自专栏Java技术栈

Java集合类,一张图说清楚!

来源:cnblogs.com/skywang12345/p/3308498.html

10930
来自专栏SRE运维实践

谈谈分布式里的master

技术与管理,两者之间总感觉有冲突,把大量的时间放在管理之中,让人感觉相当的烦躁。

8630
来自专栏程序员小明

Mysql索引优化初体验(一)

简单回顾一下Mysql的历史,Mysql 是一个关系型数据库管理系统,由瑞典 Mysql AB 公司开发,目前属于 Oracle 公司。关系型数据库将数据保存在...

8530
来自专栏sktj

IOS 使用AVPlayer播放MP4

38440
来自专栏Java技术栈

StringBuffer 和 StringBuilder 的 3 个区别!

这么简单的一道题,栈长在最近的面试过程中,却经常遇到很多求职者说反,搞不清使用场景的情况。

9430
来自专栏机器视觉那些事儿

无纺布折痕检测(2)· 基于Laws纹理滤波的折痕检测

纹理实际上一种视觉特征,反映了图像上某种灰度变化的分布,体现出像素灰度与周围空间的一种关系,例如布匹纹理、木制家具纹理等,如下图所示布匹上纹理。

29420
来自专栏SRE运维实践

容器无限重启

在使用容器的时候,有众多的选项供我们选择,也就是dockerd --help的各种选项,当修改了dockerd的配置的时候,需要重新加载配置文件或者重启。。。...

13030
来自专栏LieBrother

泡一杯茶,学一学同异步

接下来几篇会给大家屡清楚多线程中涉及到的一些概念,理解了这些概念,往后的文章才好明白。

7820

扫码关注云+社区

领取腾讯云代金券

年度创作总结 领取年终奖励