微软Visual Studio 2008基础教程.doc

微软 Visual Studio 2008基础教程Visual Studio2008发布后，有大量的VB.net爱好者抛弃原来的Visual Studio2005平台转向现在流行的Visual Studio2008平台。但是Visual Studio2008有一个缺点就是需要比较高的硬件配置才能正常平稳的运行，所以到现在为止还有一部分人处于观望中，并没有转向这个平台。然而Visual Studio2008的一些新的功能以及优化性比先前版本有了很大的进步。本篇文章将主要介绍怎样利用VB.net去编写一个计算器程序，程序虽然不复杂，但是其中所运用的知识和代码非常具有代表性，在平时开发中也是经常需要用到的。希望对VB.net2008的初学者带来帮助。 打开 Visual Studio 2008。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序(Windows Application)。单击确定 (OK)。 在Form1窗体中添加一个TextBox1控件和19个Button按钮，详细属性设置请查看以下的表格。TextBox1数据显示框Button10Button2.Button3归零Button4无Button5Button61Button72Button83Button9+Button10-Button114Button125Button136Button14* Button15/Button167Button178Button189Button19ONButton20OFF 详细的界面请查看图1图1好了基本的界面已经设计好了，接下来我们来添加相应的代码了，首先进行必要的声明事件。Public Class Form1 Dim strdx() As String = 0, 0, 0 声明一个字符串，用以存取数值 Dim calcount1 As String = 0 Dim calcount2 As String = 0Dim 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 IfEnd 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) & . ElseIf strvalue = False Then strdx(0) = strdx(0) & 1 TextBox1.Text = strdx(0) & . Else strdx(0) = strdx(0) & 1 TextBox1.Text = strdx(0) End If End Sub进入Button7.Click事件中.代码如下Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click If strdx(0) = 0 Then strdx(0) = 2 TextBox1.Text = strdx(0) & . ElseIf strvalue = False Then strdx(0) = strdx(0) & 2 TextBox1.Text = strdx(0) & . Else strdx(0) = strdx(0) & 2 TextBox1.Text = strdx(0) End IfEnd Sub进入Button8.Click事件中.代码如下Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click If strdx(0) = 0 Then strdx(0) = 3 TextBox1.Text = strdx(0) & . ElseIf strvalue = False Then strdx(0) = strdx(0) & 3 TextBox1.Text = strdx(0) & . Else strdx(0) = strdx(0) & 3 TextBox1.Text = strdx(0) End IfEnd Sub进入Button9.Click事件中.代码如下Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click If calcount1 = 0 Then calcount1 = + strdx(1) = strdx(0) strdx(0) = 0 Else : Select Case calcount1 Case + strdx(1) = Str(Val(strdx(0) + Val(strdx(1) strdx(0) = 0 calcount1 = + Case - strdx(1) = Str(Val(strdx(1) - Val(strdx(0) strdx(0) = 0 calcount1 = + Case * strdx(1) = Str(Val(strdx(0) * Val(strdx(1) strdx(0) = 0 calcount1 = + Case / strdx(1) = Str(Val(strdx(1) / Val(strdx(0) strdx(0) = 0 calcount1 = + End Select End IfEnd Sub进入Button10.Click事件中.代码如下Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click If calcount1 = 0 Then calcount1 = - strdx(1) = strdx(0) strdx(0) = 0 Else : Select Case calcount1 Case + strdx(1) = Str(Val(strdx(0) + Val(strdx(1) strdx(0) = 0 calcount1 = - Case - strdx(1) = Str(Val(strdx(1) - Val(strdx(0) strdx(0) = 0 calcount1 = - Case * strdx(1) = Str(Val(strdx(0) * Val(strdx(1) strdx(0) = 0 calcount1 = - Case / strdx(1) = Str(Val(strdx(1) / Val(strdx(0) strdx(0) = 0 calcount1 = - End Select End IfEnd Sub进入Button11.Click事件中.代码如下Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click If strdx(0) = 0 Then strdx(0) = 4 TextBox1.Text = strdx(0) & . ElseIf strvalue = False Then strdx(0) = strdx(0) & 4 TextBox1.Text = strdx(0) & . Else strdx(0) = strdx(0) & 4 TextBox1.Text = strdx(0) End IfEnd Sub进入Button12.Click事件中.代码如下Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click If strdx(0) = 0 Then strdx(0) = 5 TextBox1.Text = strdx(0) & . ElseIf strvalue = False Then strdx(0) = strdx(0) & 5 TextBox1.Text = strdx(0) & . Else strdx(0) = strdx(0) & 5 TextBox1.Text = strdx(0) End If End Sub进入Button13.Click事件中.代码如下Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click If strdx(0) = 0 Then strdx(0) = 6 TextBox1.Text = strdx(0) & . ElseIf strvalue = False Then strdx(0) = strdx(0) & 6 TextBox1.Text = strdx(0) & . Else strdx(0) = strdx(0) & 6 TextBox1.Text = strdx(0) End IfEnd Sub进入Button14.Click事件中.代码如下Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click If calcount1 = 0 Then calcount1 = * strdx(1) = strdx(0) strdx(0) = 0 Else : Select Case calcount1 Case + calcount2 = * strdx(2) = strdx(0) strdx(0) = 0 Case - calcount2 = * strdx(2) = strdx(0) strdx(0) = 0 Case * strdx(1) = Str(Val(strdx(0) * Val(strdx(1) strdx(0) = 0 calcount1 = * Case / strdx(1) = Str(Val(strdx(1) / Val(strdx(0) strdx(0) = 0 calcount1 = * End Select End IfEnd Sub进入Button15.Click事件中.代码如下 Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click If calcount1 = 0 Then calcount1 = / strdx(1) = strdx(0) strdx(0) = 0 Else : Select Case calcount1 Case + calcount2 = / strdx(2) = strdx(0) strdx(0) = 0 Case - calcount2 = / strdx(2) = strdx(0) strdx(0) = 0 Case * strdx(1) = Str(Val(strdx(0) * Val(strdx(1) strdx(0) = 0 calcount1 = / Case / strdx(1) = Str(Val(strdx(1) / Val(strdx(0) strdx(0) = 0 calcount1 = / End Select End IfEnd Sub进入Button16.Click事件中.代码如下Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click If strdx(0) = 0 Then strdx(0) = 7 TextBox1.Text = strdx(0) & . ElseIf strvalue = False Then strdx(0) = strdx(0) & 7 TextBox1.Text = strdx(0) & . Else strdx(0) = strdx(0) & 7 TextBox1.Text = strdx(0) End IfEnd Sub进入Button17.Click事件中.代码如下Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click If strdx(0) = 0 Then strdx(0) = 8 TextBox1.Text = strdx(0) & . ElseIf strvalue = False Then strdx(0) = s