微软VisualStudio2008基础教程

1、微软Visual Studio 2008基础教程Visual Studio2008 发布后，有大量的VB.net爱好者抛弃原来的Visual Studio2005平台转向现在流行的Visual Studio2008 平台。但是VisualStudio2008有一个缺点就是需要比较高的 硬件配置才能正常平稳的运行，所以 到现在为止还有一部分人处于观望中，并没有转向这个平台。然而VisualStudio2008的一些新的功能以及优化性比先前版本有了很大的进步。本篇文章 将主要介绍怎样利用VB.net去编写一个计算器程序，程序虽然不复杂，但是其 中所运用的知识和代码非常具有代表性，在平时开发中也是经

2、常需要用到的。希望对VB.net2008的初学者带来帮助。打开Visual Studio 2008 。在文件(File)菜单上，单击新建项目(NewProject)。 在新建项目(New Project)对话框的模板(Templates) 窗格中，单击 Windows 应用程序(Windows Application)。单击确定(OK)。在Form1窗体中添加一个TextBox1控件和19个Button按钮，详细属性 设置请查看以下的表格。详细的界TextBox1数据显示框Butt on10Butt on2.Butt on3归零Butt on4无Butt on5=Butt on61Butt o

3、n72Butt on83Butt on9+Butt on 10-Butt on 114Butt on 125Butt on 136Butt on 14*Butt on 15/ :Butt on 167Butt on 178Butt on 189Butt on 19ONButt on 20OFF面请查看图1.r > inir+ s1 Xiti «m>je n 叩 en 壬 -tdE.4-ju>£- 4 足豐咛：工 t aua mwvn* #1 - - * r - ; -rfc 丄 »* I, "ndWM- * m -«* giS

4、«#H耳*n lariikJ +«图1好了基本的界面已经设计好了，接下来我们来添加相应的代码了， 首先进行必要 的声明事件。Public Class Forml"0"'声明一个字符串，用以存取Dim strdx() As String = "0" , "0" 数值Dim calcount1As String = "0"Dim calcount2As String = "0"Dim strvalue As Boolean = False然后需要进入Button1.Cli

5、ck事件中.代码如下Private Sub Button1_Click( ByVai sender As System.Object, ByVai e As System.Eve ntArgs) Ha ndles Butto nl.ClickIf strdx(0) ="0" ThenTextBoxl.Text = strdx(0) &"."Elself strvalue =False Thenstrdx(0) = strdx(0) &"0"TextBoxl.Text = strdx(0) &".&qu

6、ot;Elsestrdx(0) = strdx(0) &"0"TextBoxl.Text = strdx(0)End IfEnd Sub进入Butt on 2.Click事件中.代码如下Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.Eve ntArgs) Ha ndles Butto n2.Clickstrvalue = True strdx(0) = strdx(0) & TextBox1.Text = strdx(0)II IIEnd Sub 进入 Bu

7、tton3.Click 事件中 . 代码如下 Private Sub Button3_Click( ByVal sender As System.Object, System.EventArgs) strdx(0) = strdx(1) = strdx(2) = calcount1 = calcount2 = strvalue = TextBox1.Text =End SubHandles Button3.Click"0""0""0""0""0"False"0."进入 But

8、ton5.Click 事件中 . 代码如下 Private Sub Button5_Click( ByVal sender As System.Object, System.EventArgs) Handles Button5.ClickIf strdx(2) = "0" Then Select Casecalcount1 Case "+"TextBox1.Text Case "-"TextBox1.Text Case "*"TextBox1.Text Case "/"If strdx(0) =

9、 TextBox1.Text = Else= Str(Val(strdx(1) += Str(Val(strdx(1) -= Str(Val(strdx(1)"0" Then"error!"TextBox1.Text = Str(Val(strdx(1) / Val(strdx(0)End IfEnd SelectElseIf calcount2 = "*" Thenstrdx(0) = Str(Val(strdx(0) * Val(strdx(2)Select Casecalcount1Case "+"TextB

10、ox1.TextCase "-"TextBox1.TextCase "*"TextBox1.Text= Str(Val(strdx(1)= Str(Val(strdx(1) -= Str(Val(strdx(1)ByVal e AsByVal e AsVal(strdx(0)Val(strdx(0)Val(strdx(0)Val(strdx(0)Val(strdx(0)Val(strdx(0)Case "/"If strdx(0) = "0" ThenTextBox1.Text = "error!&quo

11、t; ElseTextBox1.Text = Str(Val(strdx(1) /Val(strdx(0)End IfEnd SelectElse : calcount2 = "/"strdx(0) = Str(Val(strdx(2) / Val(strdx(0)Select Casecalcount1Case "+"TextBox1.TextCase "-"TextBox1.TextCase "*"TextBox1.TextCase "/"If strdx(0) =TextBox1.Text

12、 = Str(Val(strdx(1)= Str(Val(strdx(1) -= Str(Val(strdx(1)"0" Then"error!"Val(strdx(0)Val(strdx(0)Val(strdx(0)ElseTextBox1.Text = Str(Val(strdx(1) / Val(strdx(0)End IfEnd SelectEnd IfEnd SubByVal e As进入 Button6.Click 事件中 . 代码如下Private Sub Button6_Click( ByVal sender As System.Obje

13、ct, System.EventArgs) Handles Button6.ClickIf strdx(0) = "0" Then strdx(0) = "1" TextBox1.Text = strdx(0) &"."ElseIf strvalue = False Then strdx(0) = strdx(0) & "1" TextBox1.Text = strdx(0) &"."Elsestrdx(0) = strdx(0) &"1"Te

14、xtBox1.Text = strdx(0)End IfEnd Sub进入 Button7.Click 事件中 . 代码如下ByVal e AsPrivate Sub Button7_Click( ByVal sender As System.Object, System.EventArgs) Handles Button7.ClickIf strdx(0) = "0" Then strdx(0) = "2" TextBox1.Text = strdx(0) &"."ElseIf strvalue = False Then s

15、trdx(0) = strdx(0) & "2" TextBox1.Text = strdx(0) &"."Elsestrdx(0) = strdx(0) &"2"TextBox1.Text = strdx(0)End IfEnd Sub进入 Button8.Click 事件中 . 代码如下ByVal e AsPrivate Sub Button8_Click( ByVal sender As System.Object, System.EventArgs) Handles Button8.ClickIf st

16、rdx(0) = "0" Then strdx(0) = "3" TextBox1.Text = strdx(0) &"."ElseIf strvalue = False Then strdx(0) = strdx(0) & "3" TextBox1.Text = strdx(0) &"."Elsestrdx(0) = strdx(0) & "3"TextBox1.Text = strdx(0)End IfEnd Sub进入 Button9.C

17、lick 事件中 . 代码如下ByVal e AsPrivate Sub Button9_Click( ByVal sender As System.Object, System.EventArgs) Handles Button9.ClickIf calcount1 = calcount1 ="0" Then"+IIstrdx(1) = strdx(0) strdx(0) = "0"Else : Select Casecalcount1Case "+"strdx(1) = Str(Val(strdx(0) + Val(st

18、rdx(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 "/" strd

19、x(1) = Str(Val(strdx(1) / Val(strdx(0) strdx(0) ="0"calcount1 = "+"End SelectEnd IfEnd Sub进入 Button10.Click 事件中 . 代码如下Private Sub Button10_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.ClickIf calcount1 = "0" Then calcount1 ="-

20、"strdx(1) = strdx(0) strdx(0) ="0"Else : Select Casecalcount1 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 &

21、quot;*" 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 SelectEnd IfEnd Sub进入 Button11.Click 事件中 . 代码如下Private Sub Button11_Click( ByVal sen

22、der As System.Object, ByVal e As System.EventArgs) Handles Button11.ClickIf 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&q

23、uot; TextBox1.Text = strdx(0)End IfEnd Sub进入 Button12.Click 事件中 . 代码如下Private Sub Button12_Click( ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button12.ClickIf strdx(0) = "0" Thenstrdx(0) = "5"TextBox1.Text = strdx(0) &II IIElseIf strvalue = FalseThenstr

24、dx(0) = strdx(0) &"5"TextBox1.Text = strdx(0) &II IIElsestrdx(0) = strdx(0) &"5"TextBox1.Text = strdx(0)End IfEnd Sub进入 Button13.Click 事件中 . 代码如下Private Sub Button13_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.ClickIf strdx(0) =

25、 "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

26、 事件中 . 代码如下ByVal e AsPrivate Sub Button14_Click( ByVal sender As System.Object, System.EventArgs) Handles Button14.ClickIf calcount1 = "0" Then calcount1 = "*" strdx(1) = strdx(0) strdx(0) = "0"n*n"0""*""0"Else : Select Casecalcount1 Case &

27、quot;+" calcount2 = strdx(2) = strdx(0) strdx(0) = Case "-" calcount2 = strdx(2) = strdx(0) strdx(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) =&q

28、uot;0"calcount1 ="*"End SelectEnd IfEnd Sub进入 Button15.Click 事件中 . 代码如下ByVal e AsPrivate Sub Button15_Click( ByVal sender As System.Object,System.EventArgs) Handles Button15.ClickIf calcount1 = "0" Thencalcount1 = "/"strdx(1) = strdx(0) strdx(0) = "0"Else

29、 :Select Casecalcount1"0"ByVal e AsCase "+" calcount2 = "/"strdx(2) = strdx(0)"0"strdx(0) =Case "-"calcount2 = strdx(2) = strdx(0) strdx(0) =Case "*""0"strdx(1) = Str(Val(strdx(0) * Val(strdx(1) strdx(0) ="0"calcount1 =&

30、quot;/"Case "/" strdx(1) = Str(Val(strdx(1) / Val(strdx(0) strdx(0) ="0"calcount1 ="/"End SelectEnd IfEnd Sub 进入 Button16.Click 事件中 . 代码如下Private Sub Button16_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.ClickIf strdx(0) = &qu

31、ot;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 事件中 . 代码

32、如下Private Sub Button17_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.ClickIf strdx(0) = "0" Then strdx(0) = "8" TextBox1.Text = strdx(0) &"."ElseIf strvalue = False Then strdx(0) = strdx(0) & "8" TextBox1.Text = strdx(0) &"."Else strdx(0) = strdx(0) &"8"TextBox1.Text = strdx(0)End IfEnd Sub 进入 Button18.Click 事件中 . 代码如下Private Sub Button18_Click( ByVal sender As System.Object, Sy