微软Visual Studio 2008基础教程

《微软Visual Studio 2008基础教程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、经常需要用到的。希望对VB.net2008的初学者带来帮助。打开VisualStudio2008。在文件(File)菜单上，单击新建项目(NewProject)。在新建项目(NewProject)对话框的模板(Templates)窗格中，单击Windows应用程序(WindowsApplication)。单击确定(OK)。在Form1窗体中添加一个TextBox1控件和19个Button按钮，详细属性设置请查看以下的表格。TextBox1数据显示框Button10Button2.Button3归零Button4无Button5＝Button61Button72Butto

3、n83Button9+Button10-Button114Button125Button136Button14*Button15/Button167Button178Button189Button19ONButton20OFF详细的界面请查看图1图1好了基本的界面已经设计好了，接下来我们来添加相应的代码了，首先进行必要的声明事件。PublicClassForm1Dimstrdx()AsString={"0","0","0"}'声明一个字符串，用以存取数值Dimcalcount1AsString="0"Dimcalcount2AsString="0"Dimstrvalue

4、AsBoolean=False然后需要进入Button1.Click事件中.代码如下PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfstrdx(0)="0"ThenTextBox1.Text=strdx(0)&"."ElseIfstrvalue=FalseThenstrdx(0)=strdx(0)&"0"TextBox1.Text=strdx(0)&"."Elsestrdx(0)=strdx(0)&"0"TextBox1.T

5、ext=strdx(0)EndIfEndSub进入Button2.Click事件中.代码如下PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Clickstrvalue=Truestrdx(0)=strdx(0)&"."TextBox1.Text=strdx(0)EndSub进入Button3.Click事件中.代码如下PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSy

6、stem.EventArgs)HandlesButton3.Clickstrdx(0)="0"strdx(1)="0"strdx(2)="0"calcount1="0"calcount2="0"strvalue=FalseTextBox1.Text="0."EndSub进入Button5.Click事件中.代码如下PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickIfstrdx(2)="0"ThenSelectCasecalcou

7、nt1Case"+"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"/"Ifstrdx(0)="0"ThenTextBox1.Text="error!"ElseTextBox1.Text=Str(Val(strdx(1))/Val(strdx(0)))EndIfEndSelec