Visual Studio2008教程
Visual Studio2008发布后，有大量的VB爱好者抛弃原来的Visual Studio2005平台转向现在流行的Visual Studio2008平台。但是Visual Studio2008有一个缺点就是需要比较高的硬件配置才能正常平稳的运行，所以到现在为止还有一部分人处于观望中，并没有转向这个平台。然而Visual Studio2008的一些新的功能以及优化性比先前版本有了很大的进步。本篇文章将主要介绍怎样利用VB去编写一个计算器程序，程序虽然不复杂，但是其中所运用的知识和代码非常具有代表性，在平时开发中也是经常需要用到的。希望对VB2008的初学者带来帮助。
打开 Visual Studio 2008。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序(Windows Application)。单击确定 (OK)。
      在Form1窗体中添加一个TextBox1控件和19个Button按钮，详细属性设置请查看以下的表格。
TextBox1
数据显示框
Button1
0
Button2
.
Button3
归零
Button4
无
Button5
＝
Button6
1
Button7
2
Button8
3
Button9
+
Button10
-
Button11
4
Button12
5
Button13
6
Button14
*
Button15
/
Button16
7
visual studio代码大全Button17
8
Button18
9
Button19
ON
Button20
OFF
     
详细的界面请查看图1

图1
好了基本的界面已经设计好了，接下来我们来添加相应的代码了，首先进行必要的声明事件。
Public Class Form1
    Dim strdx() As String = {"0", "0", "0"} '声明一个字符串，用以存取数值
    Dim calcount1 As String = "0"
    Dim calcount2 As String = "0"
Dim strvalue As Boolean = False
然后需要进入Button1.Click事件中.代码如下
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If strdx(0) = "0" Then
            TextBox1.Text = strdx(0) & "."
        ElseIf strvalue = False Then
            strdx(0) = strdx(0) & "0"
            TextBox1.Text = strdx(0) & "."
        Else
            strdx(0) = strdx(0) & "0"
            TextBox1.Text = strdx(0)
        End If
End Sub
进入Button2.Click事件中.代码如下
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        strvalue = True
        strdx(0) = strdx(0) & "."
        TextBox1.Text = strdx(0)
End Sub
进入Button3.Click事件中.代码如下
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        strdx(0) = "0"
        strdx(1) = "0"
        strdx(2) = "0"
        calcount1 = "0"
        calcount2 = "0"
        strvalue = False
        TextBox1.Text = "0."
End Sub
进入Button5.Click事件中.代码如下
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If strdx(2) = "0" Then
            Select Case calcount1
                Case "+"
                    TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0)))
                Case "-"
                    TextBox1.Text = Str(Val(strdx(1)) - Val(strdx(0)))
                Case "*"
                    TextBox1.Text = Str(Val(strdx(1)) * Val(strdx(0)))
                Case "/"
                    If strdx(0) = "0" Then
                        TextBox1.Text = "error!"
                    Else
                        TextBox1.Text = Str(Val(strdx(1)) / Val(strdx(0)))
                    End If
            End Select
        ElseIf calcount2 = "*" Then
            strdx(0) = Str(Val(strdx(0)) * Val(strdx(2)))
            Select Case calcount1
                Case "+"
                    TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0)))
                Case "-"
                    TextBox1.Text = Str(Val(strdx(1)) - Val(strdx(0)))
                Case "*"
                    TextBox1.Text = Str(Val(strdx(1)) * Val(strdx(0)))
                Case "/"
                    If strdx(0) = "0" Then
                        TextBox1.Text = "error!"
                    Else
                        TextBox1.Text = Str(Val(strdx(1)) / Val(strdx(0)))
                    End If
            End Select
        Else : calcount2 = "/"
            strdx(0) = Str(Val(strdx(2)) / Val(strdx(0)))
            Select Case calcount1
                Case "+"
                    TextBox1.Text = Str(Val(strdx(1)) + Val(strdx(0)))
                Case "-"
                    TextBox1.Text = Str(Val(strdx(1)) - Val(strdx(0)))
                Case "*"
                    TextBox1.Text = Str(Val(strdx(1)) * Val(strdx(0)))
                Case "/"
                    If strdx(0) = "0" Then
                        TextBox1.Text = "error!"
                    Else
                        TextBox1.Text = Str(Val(strdx(1)) / Val(strdx(0)))
                    End If
            End Select
        End If
    End Sub
进入Button6.Click事件中.代码如下
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If strdx(0) = "0" Then
            strdx(0) = "1"
            TextBox1.Text = strdx(0) & "."

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。