《Visual Basic NET程序设计》课件第2章 VB.NET程序设计基础

2.1窗体和基本控件Windows窗体应用程序是运行在用户计算机本地的基于Windows的应用程序，提供丰富的用户界面实现用户交互。用户界面一般由窗体来呈现，通过将控件添加到窗体表面可以设计满足用户需求的人机交互界面。2.1.1属性属性是与一个对象相关的各种数据，用来描述对象的特性，如性质、状态和外观等。不同的对象有不同的属性。对象常见的属性有Name、Text、Visible等。对象的属性分为以下3种类型：①只读属性。②运行时只读属性。③可读写属性。每一个对象属性都有一个默认值，如果不明确地改变该值，程序就将使用它。在设计阶段利用“属性窗口”直接设置对象的属性在程序代码中通过赋值设置对象属性:对象名.属性名=属性值2.1.2事件事件是对象发送的消息。当事件发生时，将调用事件处理程序。VB应用程序设计的主要工作就是为对象编写事件过程中的程序代码。事件过程的形式如下：Sub对象名_事件([参数列表])

… '事件过程代码EndSub例如单击“Button1”按钮，使该按钮的字体为“宋体”、大小改为20磅、字形加粗则，对应的事件过程如下：PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickButton1.Font=NewFont("宋体",20,FontStyle.Bold)EndSubEndClass2.1.3方法方法是一个对象对外提供的某些特定动作的接口，它是对象的行为或动作，是对象本身内含的程序段。每个方法完成某个功能，但其实现步骤和细节用户既看不到，也不能修改，程序员能做的工作就是按照约定直接调用它们。VisualBasic的方法用于完成某种特定功能。如显示窗体(Show)方法、获得焦点(Focus)方法。方法只能在代码中使用。对象方法的调用格式为：[对象.]方法[参数名表]例如：Form1.Hide() '隐藏Form1窗体TextBox1.Focus() '将焦点移至TextBox1文本框2.1.4窗体例：编程实现如下功能：①窗体标题设置为：“HelloVisualBasic”；②单击窗体，设置背景图片；③双击窗体，最小化按钮功能失效。PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.Text="HelloVisualBasic“‘设置窗体标题栏文本EndSubPrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.ClickMe.BackgroundImage=Image.FromFile("D:\1\Desert.jpg")‘设置窗体背景图片EndSubPrivateSubForm1_DoubleClick(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.DoubleClickMe.MinimizeBox=FalseEndSub2.1.5Label(标签)控件Label(标签)控件主要用来显示输出文本信息，也可以为窗体上其他控件作题注。Label的主要属性如表2-4所示。例2.1在窗体上创建一个按钮和一个标签，程序运行时，单击“按钮”，在标签框中显示“当你学习了这门课程后，能够编写出各种应用程序”，字号为20磅，字体为“黑体”。程序运行结果如图2-1所示。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickLabel1.Font=NewFont("黑体",20)Label1.Text="当你学习了这门课程后，能够编写出各种应用程序"EndSub2.1.6TextBox(文本框)控件TextBox(文本框)是一个文本编辑区域，可以在该区域输入、编辑、修改和显示正文内容，即可以创建一个文本编辑器。例2.2在文本框中输入密码，密码以*显示。如图2-2所示操作步骤如下：①创建项目②在窗体上添加一个标签，标签属性Text=“输入密码”，用于显示密码标示；添加一个文本框，文本框属性PasswordChar=“*”，用于输入密码；③启动调试本程序只需设置属性，无需编写代码。2.1.7Button(按钮)控件Button(按钮)控件的功能类似于家用电器的功能按钮，按下它就代表要执行某种功能。例2.3设计一个程序，由用户从键盘上输入两个数，然后再选择对它们分别进行和、减、乘、除法运算，并将结果显示出来。其界面设计如图2-3所示。在本例的窗体中添加了2个TextBox，用于输入2个操作数；添加了3个Label，用于显示：“运算符”、“=”和“结果”；添加了6个Button，用于执行加、减、乘、除运算。清除操作数和运算结果，结束程序。PublicClassForm1

PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.Text="HelloVisualBasic"EndSub

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickLabel1.Text="+"Label3.Text=Str(Val(TextBox1.Text)+Val(TextBox2.Text))EndSub

PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickLabel1.Text="-"Label3.Text=Str(Val(TextBox1.Text)-Val(TextBox2.Text))EndSub

PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickLabel1.Text="*"Label3.Text=Str(Val(TextBox1.Text)*Val(TextBox2.Text))EndSub

PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickLabel1.Text="/"Label3.Text=Str(Val(TextBox1.Text)/Val(TextBox2.Text))EndSub

PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickTextBox1.Text=""TextBox2.Text=""Label1.Text="运算符"Label3.Text="结果"EndSub

PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.ClickEndEndSubEndClass2.2求解“鸡兔同笼”问题鸡兔同笼是中国古代的数学名题之一。大约在1500年前，《孙子算经》中就记载了这个有趣的问题。书中是这样叙述的：“今有雉兔同笼，上有三十五头，下有九十四足，问雉兔各几何？”这四句话的意思是：有若干只鸡兔同在一个笼子里，从上面数，有35个头，从下面数，有94只脚。问笼中各有几只鸡和兔？PublicClassForm1

PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadTextBox1.Text=35TextBox2.Text=94EndSub

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox3.Text=(4*Val(TextBox1.Text)-Val(TextBox2.Text))/2TextBox4.Text=Val(TextBox1.Text)-Val(TextBox3.Text)

EndSubEndClass2.3计算分段函数PublicClassForm1

PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadLabel1.Image=Image.FromFile("d:\1\fd.jpg")EndSub

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimx!,y!x=Val(TextBox1.Text)Ifx<0Theny=x+1Elsey=2*x-1EndIfTextBox2.Text=yEndSub

EndClass2.4计算乘方与阶乘例：求5的5次方，再求5的阶乘。55=5*5*5*5*5=3125（注：“*”在VB.NET中表示乘法运算符）5！=1*2*3*4*5=120PublicClassForm1

PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadLabel1.Text="编程求5的5次方和5的阶乘"EndSub

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimx%,y%,n%,i%n=5:x=1:y=1Fori=1Tonx=x*ny=y*iNextTextBox1.Text=xTextBox2.Text=yEndSub

EndClass习

题21.可以通过哪些方法激活属性窗口和工具箱窗口？2.如何设置对象的属性？3.在窗体上画一个按钮，然后通过属性窗口设置下列属性： Text 这是一个按钮 Font.Name 宋体Font.Size 16点 Visible False4.在窗体的左上部画两个按钮和两个文本框，然后选择这4个控件，并把它们移到窗体的左下部。5.在窗体的任意位置画一个文本框，然后在属性窗口中设置下列属性： Location.X 24 Location.Y 56 Size.Width 96 Size.Height 326.确定一个控件在窗体上的位置和大小的用的是控件的什么属性?7.假定一个文本框的名称(Name属性)是Text1，为了在该文本框中显示“GoodMorning”，应使用什么语句？8.为了选择多个控件，应按住什么键，然后单击每个要选择的控件？9.在用VisualBasic.NET开发应用程序时，一般分几步进行？每一步需要完成哪些操作？10.VisualBasic.NET应用程序通常由几类文件组成？在存盘时各使用什么扩展名？11.假定窗体的名称为Form1，为了把窗体的标题设置为"VB.NETTest"，应使用什么语句？12.可以通过哪几种方法打开代码窗口？13.在窗体上画两个文本框和一个按钮，然后在代码窗口中编写如下事件过程：PrivateSubButton1Click(ByValsenderAsObject