第4章VB.NET中的常用控件ppt课件(全).pptx

《第4章VB.NET中的常用控件ppt课件(全).pptx》由会员分享，可在线阅读，更多相关《第4章VB.NET中的常用控件ppt课件(全).pptx（45页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、VB.NETVB.NET程序设计实训教程程序设计实训教程第第4 4章章 VB.NETVB.NET中的常用控件中的常用控件4.1 控件的焦点4.2 常用控件常用控件4.3 键盘与鼠标事件键盘与鼠标事件4.4 实训练习实训练习44 4.1 .1 控件的焦点控件的焦点焦点（focus）焦点是接收用户鼠标或键盘输入的能力。当窗体中含有多个控件时，只有获得焦点的控件才可以接收用户输入。4.1.1 焦点事件（焦点事件（GotFocus和和LostFocus）当对象得到焦点时，会产生GotFocus事件；而当对象失去焦点时，将产生LostFocus事件。4.1.2 设置焦点设置焦点(1)在设置时将该控件的T

2、abIndex属性设置为0。(2)在运行时单击该对象。(3)运行时用快捷键或Tab键选择该对象。(4)在程序代码中使用Focus方法。(5)在程序代码中使用ActiveControl属性。4.1.3 Tab键次序键次序所谓Tab键次序就是指按Tab键时，焦点在各个控件之间移动的次序。通常，Tab键次序就是在窗体上添加控件的次序。控件的TabIndex属性决定一个控件的Tab键次序。改变控件的TabIndex属性值可以改变它在Tab键次序中的位置。不能获得焦点的控件以及无效的和不可见的控件，不具有TabIndex属性，不能包含在Tab键次序中。按Tab键时，这些控件将被跳过。如果将控件的TabS

3、top属性设为False，就可以将该控件从Tab键次序中删除，即该控件在Tab键次序中的位置不变，但按Tab键时该控件被跳过。4 4.2.2 常用控件常用控件4.2.1 链接标签（链接标签（LinkLabel）LinkLabel控件除了具有Label控件的基本属性之外，它还可以在窗体上创建超链接。LinkArea属性设置激活链接的文本区域，LinkColor、VisitedLinkColor和ActiveLinkColor属性用于设置链接的颜色，LinkCliked事件确定链接文本后将打开哪个网页。1链链接接标签标签的常用属性的常用属性(1)Text属性：显示标签上的文本内容。(2)LinkA

4、rea属性：标签中要呈现为超链接的文本部分。LinkLabel1.Text=打开沈阳大学信息学院主页LinkLabel1.LinkArea=New LinkArea(2,4)从第二个字符开始的连续4个字符作为超链接文本。2链链接接标签标签的主要事件的主要事件LinkClicked：给出要链接的网址。【例4-1】在窗体上添加一个链接标签，当点击该标签时显示沈阳大学主页。Private Sub form1_Load(sender As Object,e As EventArgs)Handles MyBase.Load LinkLabel1.Text=打开沈阳大学主页 LinkLabel1.Link

5、Area=New LinkArea(2,4)End SubPrivate Sub LinkLabel1_LinkClicked(sender As Object,e As LinkLabelLinkClickedEventArgs)Handles LinkLabel1.LinkClicked System.Diagnostics.Process.Start(http:/ Sub4.2.2 富文本框（富文本框（RichTextBox）RichTextBox控件提供了比普通的TextBox控件更高级的格式特征。例如可以对其中选中的部分文本进行字体的设置。【例4-2】在窗体上添加一个富文本框及一个按

6、钮，当点击按钮时，文本框中的部分内容字体将被改变。Private Sub Button1_Click(sender As Object,e As EventArgs)Handles Button1.Click RichTextBox1.SelectionStart=6 RichTextBox1.SelectionLength=4 RichTextBox1.SelectionFont=New Font(隶书,16,FontStyle.Underline Or FontStyle.Italic)End SubPrivate Sub form1_Load(sender As Object,e As

7、EventArgs)Handles MyBase.Load RichTextBox1.Text=VB.NET程序设计基础End Sub4.2.3 单选钮（单选钮（RadioButton）当应用程序要求在一组（几个）方案中只能选择其中之一，就要用“单选钮”控件。1单选钮单选钮的常用属性的常用属性(1)Text属性：用来设置单选钮的文本注释内容。(2)Checked属性：用来设置或返回单选钮是否被选中。当值为True时表示被选中。(3)Appearance属性：用来获取或设置单选按钮的外观显示方式。可以选择普通样式和按钮样式。2单选钮单选钮控件的主要事件控件的主要事件Click事件。【例4-3】在

8、窗体上添加两个分组框，一个命令按钮和一个标签。在两个分组框中共添加五个单选钮，分别写上性别和最高学历。编写代码，单击命令按钮时，在标签中显示所选择的单选钮的内容。Private Sub Button1_Click_1(sender As Object,e As EventArgs)Handles Button1.Click If RadioButton1.Checked=True Then xb=男 Else xb=女 End If If RadioButton3.Checked=True Then xl=本科 Else If RadioButton4.Checked=True Then xl

9、=硕士研究生 Else xl=博士研究生 End If End If Label1.Text=性别：&xb&学历：&xlEnd Sub4.2.4 复选框（复选框（CheckBox）用户可以根据需要选择一个或多个。1复复选选框的常用属性框的常用属性(1)Text属性：用来设置复选框的文本注释内容。(2)Checked属性：用来设置或返回复选框是否被选中。当值为True时表示被选中，当值为False时表示未选中。(3)CheckState属性：用来表示复选框的三种状态：选中(Checked)，未选中（Unchecked），部分选中（Interminate）。(4)ThreeState属性：是否允许

10、复选框出现三种状态。当值为True时表示可以出现三种状态，即包含半选中状态；当值为False时只能出现两种状态。2复复选选框控件的主要事件框控件的主要事件Click事件是复选框控件最基本的事件。【例4-4】在窗体上添加三个复选框和一个文本框。编写代码，单击相应的复选框时，文本框中的字体样式会发生变化。Dim fstyle As FontStylePrivate Sub CheckBox1_Click(sender As Object,e As EventArgs)Handles CheckBox1.Click If TextBox1.Font.Bold Then fstyle=fstyle-F

11、ontStyle.Bold TextBox1.Font=New Font(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)Else fstyle=fstyle+FontStyle.Bold TextBox1.Font=New Font(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)End IfEnd SubPrivate Sub CheckBox2_Click(sender As Object,e As EventArgs)Handles CheckBox2.Click If TextBox1.Font.It

12、alic Then fstyle=fstyle-FontStyle.Italic TextBox1.Font=New Font(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)Else fstyle=fstyle+FontStyle.Italic TextBox1.Font=New Font(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)End IfEnd SubPrivate Sub CheckBox3_Click(sender As Object,e As EventArgs)Handles CheckB

13、ox3.Click If TextBox1.Font.Underline Then fstyle=fstyle-FontStyle.Underline TextBox1.Font=New Font(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)Else fstyle=fstyle+FontStyle.Underline TextBox1.Font=New Font(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)End IfEnd Sub4.2.5 分组框（分组框（GroupBox）分组框控件可以用来对其他控

14、件进行分组，即可以作为其他控件的容器的形式存在的，以便于用户识别。1分分组组框控件的框控件的创创建方法建方法首先需要添加GroupBox控件，然后再添加GroupBox里面的控件。2分分组组框控件的常用属性框控件的常用属性(1)Text属性：用来显示分组框标题，以便把不同种类的选项按钮区分开。(2)Enabled属性：当值为False时，对框架内的所有对象均不允许进行操作。(3)Visible属性：当值为False时，框架及其内部的控件均不可见。3分分组组框控件的主要事件框控件的主要事件分组框可以响应的事件有Click、DoubleClick等。4.2.6 列表框（列表框（ListBox）列表

15、框控件用来显示项目列表，用户从其中可以选择一项或多项。如果有较多的选项而不能一次全部显示，则会自动加上滚动条。1列表框控件的常用属性列表框控件的常用属性(1)Items属性：存放在列表框中的列表项。(2)SelectionMode属性：设置列表框是单项选择(One)、多项选择(MultiSimple及MultiExtended）或不可选择(None)。(3)SelectedIndex属性：用来存放控件中当前选择项目的索引位置，在设计时不可用。表项位置由索引值指定，第1项的索引值为0，第2项为1，依次类推。如果没有选中任何项，SelectedIndex的值将设置为-1。在程序中设置Selecte

16、dIndex后，被选中的条目反相显示。2列表框控件的常用事件列表框控件的常用事件Click事件和DoubleClick事件。3列表框控件的常用方法列表框控件的常用方法(1)在设计时添加或删除项目：(2)Add方法：运行时向列表框的最后追加一个新项目。格式：列表框名.items.add（项目）(3)Insert方法：运行时在某个项目的前面插入一个新项目。格式：列表框名.items.insert（索引位置，项目）(4)Remove方法：按内容删除列表框的某个项目。格式：列表框名.items.remove（项目）(5)RemoveAt方法：按索引位置删除列表框的某个位置的项目。格式：列表框名.ite

17、ms.removeat（索引位置）【例4-5】在窗体上添加一个列表框Lst_Provn，一个文本框Txt_Name，以及三个命令按钮。Private Sub Button1_Click(sender As Object,e As EventArgs)Handles Button1.Click Lst_Provn.Items.Add(Txt_Name.Text()Txt_Name.Text=添加完毕后将文本框置为空 Txt_Name.Focus()设置焦点，等待下一次输入End SubPrivate Sub Button3_Click(sender As Object,e As EventArg

18、s)Handles Button3.Click Lst_Provn.Items.Clear()End SubPrivate Sub Lst_Provn_Click(sender As Object,e As EventArgs)Handles Lst_Provn.Click Dim iindex As Integer iindex=Lst_Provn.SelectedIndex Txt_Name.Text=Lst_Provn.Items(iindex)End SubPrivate Sub Button2_Click(sender As Object,e As EventArgs)Handles

19、 Button2.Click Dim iindex As Integer,icount As Integer If icount=0 Then Lst_Provn.Items.RemoveAt(iindex)删除选定项 Txt_Name.Text=删除后将文本框置空 Else MsgBox(请选中要删除的项目)End If End IfEnd Sub4.2.7 组合框（组合框（ComboBox）组合框控件将文本框和列表框的功能结合在一起，用户可以在列表中选择某项（只能选取一项），或在编辑区域中直接输入文本内容来选定项目。组合框共有3种风格：下拉式组合框、简单组合框和下拉式列表框。用户可以通过单

20、击列表框或组合框中的某一项来选择所需选项，也可以在组合框中输入自己的选项；但是在列表框中只能进行选择，不能输入。1组组合框控件的常用属性合框控件的常用属性(1)Items属性、SelectionMode属性、SelectedIndex属性：与列表框相同。(2)DropDownStyle属性：组合框的显示类型。在运行时是只读的。Simple-组合框称为简单组合框，包括一个文本框（文本框的右边无下拉按钮）和一个不能下拉的列表框。当项目数超过可显示的限度时，自动产生一个垂直滚动条。可以从列表选择或在文本框中输入那些不在列表中的项目。DropDown（默认值）-组合框称为下拉式组合框，包括一个下拉式列

21、表和一个文本框。DropDownList-组合框称为下拉式列表框。这种样式仅允许从下拉式列表中选择，不可以自行输入组合框中没有的项目。2组组合框的常用事件和方法合框的常用事件和方法组合框的常用事件有Click事件、Dropdown事件等。4.2.8 定时器（定时器（Timer）VB提供了一种“定时器”控件。定时器的一个重要的事件是Timer事件。定时器每隔一定的时间间隔就产生一次Timer事件。定时器控件在运行时不显示。1定定时时器控件的常用属性器控件的常用属性(1)Interval属性：计时器的时间间隔，是一个整数，单位为毫秒。若将Interval属性设置为0或负数，则定时器停止工作。如果将

22、Interval属性设置为1000，则相当于每秒钟产生一个Timer事件。(2)Enabled属性：定时器控件是否可用。无论何时，只要定时器控件的Enabled属性被设置为True而且Interval属性值大于0，则定时器开始工作（以Interval属性值为间隔，触发Timer事件）。通过把Enabled属性设置为False可使定时器控件无效，即停止工作。2定定时时器控件的主要事件器控件的主要事件定时器控件响应Tick事件，当Enabled属性值为True且Interval属性值大于0时，该事件以Interval属性指定的时间间隔发生，需要定时执行的操作即放在该事件过程中完成。【例4-6】设计

23、一个简单的定时器来显示当前的系统时钟。添加一个定时器控件，并设置其Interval属性为1000。Private Sub Timer1_Tick(sender As Object,e As EventArgs)Handles Timer1.Tick Label1.Text=TimeOfDay()End Sub4.2.9 日期时间控件（日期时间控件（DateTimePicker）DateTimePicker控件用于让用户可以从日期列表中选择单个值。运行时，该控件以下拉式组合框的形式弹出日期供选择。【例4-7】在窗体上添加一个DateTimePicker控件和一个label控件，运行时将DateT

24、imePicker控件的初始日期设置为2016年1月1日。在DateTimePicker控件中选择了一个日期后，将选中的日期显示在label控件中。Private Sub DateTimePicker1_ValueChanged(sender As Object,e As EventArgs)Handles DateTimePicker1.ValueChanged Dim k As Date,yy As Integer,mm As Integer,dd As Integer k=DateTimePicker1.Value yy=k.Year :mm=k.Month :dd=k.DayLabel

25、1.Text=选中的日期是&yy&年&mm&月&dd&日End SubPrivate Sub Form1_Load(sender As Object,e As EventArgs)Handles MyBase.Load DateTimePicker1.Value=CDate(2016-1-1)End Sub4.2.10 树形结构控件（树形结构控件（Treeview）Treeview控件可以获得驱动器下的所有目录和子目录。1Treeview控件的常用属性控件的常用属性(1)Nodes属性：树型层次结构中顶级结点的列表；(2)SelectedNode属性：设置当前选定结点；(3)ImageInde

26、x属性：为结点设置图像。2Treeview控件增减控件增减结结点的方法点的方法(1)在属性窗口中利用Nodes属性添加或删除结点；(2)Add方法：为选定结点添加一个结点；(3)Remove方法：移除一个结点。【例4-8】利用属性窗口向Treeview控件中添加结点举例。(1)在窗体上添加一个TreeView控件和一个ImageList控件。(2)在ImageList控件的属性窗中点击Images属性，在其中添加若干图片。(3)在Treeview控件的属性窗口中点击Nodes属性，添加结点和子结点，设置ImageIndex、Name和Text属性。【例4-9】编程向Treeview控件中添加结

27、点举例。在上面例子的窗体上再添加一个按钮。Private Sub Button1_Click(sender As Object,e As EventArgs)Handles Button1.Click Dim newnode1 As TreeNode=New TreeNode(新结点)Dim newnode2 As TreeNode=New TreeNode(新子结点)TreeView1.Nodes.Add(newnode1)newnode1.ImageIndex=1 设置新结点图片 TreeView1.Nodes(2).Nodes.Add(newnode2)newnode2.ImageInd

28、ex=2 设置新子结点图片End Sub4.2.11 滚动条控件（滚动条控件（ScrollBar）滚动条控件分为水平滚动条和垂直滚动条。1滚动滚动条控件的常用属性条控件的常用属性(1)Value属性：滑块所处位置所代表的值。(2)Maximum属性：滚动条的最大值。(3)Minimum属性：滚动条的最小值。(4)SmallChange属性：最小变动值，即单击箭头时滑块移动的增量值。(5)LargeChange属性：最大变动值，即单击空白处时滑块移动的增量值。2滚动滚动条的主要事件条的主要事件(1)ValueChanged事件：在移动滑块或通过代码改变滚动条的Value属性值时发生。单击滚动条两

29、端的箭头或空白处将引发ValueChanged事件。(2)Scroll事件：当滑块被重新定位，或按水平方向或垂直方向滚动时，Scroll事件发生。拖动滑块时会触发Scroll事件。【例4-10】通过调整滚动条位置改变文本中字体大小。Private Sub HScrollBar1_ValueChanged(sender As Object,e As EventArgs)Handles HScrollBar1.ValueChanged TextBox1.Font=New Font(TextBox1.Font.Name,HScrollBar1.Value)End SubPrivate Sub For

30、m1_Load(sender As Object,e As EventArgs)Handles Me.Load TextBox1.Text=调整字体大小 HScrollBar1.Minimum=8 HScrollBar1.Maximum=72 设置滚动条最大最小值End Sub4 4.3.3 键盘键盘与鼠标事件与鼠标事件4.3.1 常用键盘事件常用键盘事件 KeyPress事件：按下对应某ASCII 字符的键。KeyDown事件：按下键盘的任意键。KeyUp事件：释放键盘的任意键。1键盘键盘按按键键事件（事件（KeyPress）当按下与ASCII字符对应的键时将触发KeyPress 事件。Ke

31、yPress 事件过程中的参数Sender代表消息的来源，参数e的KeyChar属性代表所按下的字符。【例4-11】在窗体上添加一个文本框TextBox1和一个标签，当在文本框中键入任意字符时，在标签中显示该字符的ASCII码。Private Sub TextBox1_KeyPress(sender As Object,e As KeyPressEventArgs)Handles TextBox1.KeyPress Dim Iasc As Integer If sender Is TextBox1 Then MsgBox(消息来源是TextBox1)End If TextBox1.Text=I

32、asc=Asc(e.KeyChar)Label1.Text=e.KeyChar&的ASC码是&IascEnd Sub【例4-12】编写程序，使得文本框TextBox1中限定只能输入数字、小数点，只能响应BackSpace 键及回车键。Private Sub TextBox1_KeyPress(sender As Object,e As KeyPressEventArgs)Handles TextBox1.KeyPress Dim Iasc As Integer Iasc=Asc(e.KeyChar)Select Case Iasc Case 48 To 57,46,8,13 Case Else

33、 e.KeyChar=End SelectEnd Sub程序说明：数字0到9的ASCII码分别为48到57，小数点的ASCII码为46，退格键的ASCII码为8，回车键的ASCII码是13。当输入的是其他字符时，拒绝接收。2键盘键盘按下（按下（KeyDown）和放开（）和放开（KeyUp）事件）事件当一个对象具有焦点时按下或松开一个键时分别发生这两个事件。他们报告键盘本身准确的物理状态：按下键（KeyDown）及松开键（KeyUp）。KeyDown和KeyUp事件能够检测功能键、编辑键和定位键。最常用的是KeyCode属性：表示按下的物理键。上档键字符和下档键字符也是使用同一键，他们的KeyC

34、ode值相同。例如，无论按下大写字母A或小写字母a，KeyCode值均为Keys.A。【例4-13】用 KeyDown 事件判断是否按下了Shift键及字母A键。Private Sub TextBox1_KeyDown(sender As Object,e As KeyEventArgs)Handles TextBox1.KeyDown If e.Shift=True Then If e.KeyCode=Keys.A Then MsgBox(按下了shift+a键)End If Else MsgBox(按的是其他键)End IfEnd Sub4.3.2 常用鼠标事件常用鼠标事件MouseDow

35、n：按下任意鼠标键按钮时发生。MouseUp：释放任意鼠标键按钮时发生。MouseMove：每当鼠标指针移动到屏幕新位置时发生。常用鼠标事件中常用的属性有：(1)属性X 和Y：鼠标指针在窗体上的位置。(2)Button参数：表示哪一个鼠标键被按下或释放。【例4-14】编写一个利用鼠标在窗体上徒手画图的程序。按下鼠标左键时用红色笔画，按下鼠标右键时用蓝色笔画图。Public Class Form1 Dim xold As Integer,yold As Integer Private Sub Form1_MouseDown(sender As Object,e As MouseEventArgs

36、)Handles Me.MouseDown xold=e.X :yold=e.Y End Sub Private Sub Form1_MouseMove(sender As Object,e As MouseEventArgs)Handles Me.MouseMove If e.Button=Windows.Forms.MouseButtons.Left Then Me.CreateGraphics.DrawLine(New Pen(Color.Red),xold,yold,e.X,e.Y)xold=e.X :yold=e.Y End If If e.Button=Windows.Forms.

37、MouseButtons.Right Then Me.CreateGraphics.DrawLine(New Pen(Color.Blue),xold,yold,e.X,e.Y)xold=e.X :yold=e.Y End If End SubEnd Class4 4.4 4 实训练习实训练习4 4【例4-15】设置文字字体、字型、字号。在窗体上添加一个文本框、三个复选框及六个单选钮。根据单选钮及复选框的设置来修改文本框中文字的字体、字型和字号。编写程序如下，运行结果如图4-15所示。Public Class form2Dim fstyle As FontStylePrivate Sub Ch

38、eckBox1_Click(sender As Object,e As EventArgs)Handles CheckBox1.Click If TextBox1.Font.Bold Then fstyle=fstyle-FontStyle.Bold TextBox1.Font=New Font(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)Else fstyle=fstyle+FontStyle.Bold TextBox1.Font=New Font(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)End

39、IfEnd SubPrivate Sub CheckBox2_Click(sender As Object,e As EventArgs)Handles CheckBox2.Click If TextBox1.Font.Italic Then fstyle=fstyle-FontStyle.Italic TextBox1.Font=New Font(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)Else fstyle=fstyle+FontStyle.Italic TextBox1.Font=New Font(TextBox1.Font.Name,T

40、extBox1.Font.Size,fstyle)End IfEnd SubPrivate Sub CheckBox3_Click(sender As Object,e As EventArgs)Handles CheckBox3.Click If TextBox1.Font.Underline Then fstyle=fstyle-FontStyle.Underline TextBox1.Font=New Font(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)Else fstyle=fstyle+FontStyle.Underline TextB

41、ox1.Font=New Font(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)End IfEnd SubPrivate Sub RadioButton1_Click(sender As Object,e As EventArgs)Handles RadioButton1.ClickTextBox1.Font=New Font(TextBox1.Font.Name,CSng(RadioButton1.Text),fstyle)End SubPrivate Sub RadioButton2_Click(sender As Object,e As Ev

42、entArgs)Handles RadioButton2.ClickTextBox1.Font=New Font(TextBox1.Font.Name,CSng(RadioButton2.Text),fstyle)End SubPrivate Sub RadioButton3_Click(sender As Object,e As EventArgs)Handles RadioButton3.ClickTextBox1.Font=New Font(TextBox1.Font.Name,CSng(RadioButton3.Text),fstyle)End SubPrivate Sub form2

43、_Load(sender As Object,e As EventArgs)Handles Me.LoadEnd SubPrivate Sub RadioButton4_Click(sender As Object,e As EventArgs)Handles RadioButton4.Click TextBox1.Font=New Font(RadioButton4.Text,TextBox1.Font.Size,fstyle)End SubPrivate Sub RadioButton5_Click(sender As Object,e As EventArgs)Handles Radio

44、Button5.Click TextBox1.Font=New Font(RadioButton5.Text,TextBox1.Font.Size,fstyle)End SubPrivate Sub RadioButton6_Click(sender As Object,e As EventArgs)Handles RadioButton6.Click TextBox1.Font=New Font(RadioButton6.Text,TextBox1.Font.Size,fstyle)End SubEnd Class【例4-16】设计一个简易的计算器程序，可以做四则运算。在窗体上添加一个文本框

45、及若干命令按钮，并给命令按钮改名。Public Class Form1 Dim B_digit_point As Boolean 每个运算数中只允许有一个小数点 Dim I_temp As Integer 确定四则运算符号位置 Dim F_result As Single 运算结果 Dim I_op As Integer,S_op As String 四个运算符 Dim F_first As Single,F_second As Single 两个操作数Private Sub Form1_Load(sender As Object,e As EventArgs)Handles MyBase.L

46、oad B_digit_point=False I_op=0 End Sub控件名Text属性控件名Text属性Btn_00Btn_mul*Btn_11Btn_divBtn_22Btn_backBtn_pointBtn_clearCBtn_plus+Btn_endOffBtn_minus-Btn_equal=Private Sub Btn_point_Click(sender As Object,e As EventArgs)Handles Btn_point.Click 每个操作数可以按一次小数点 If B_digit_point=False Then TextBox1.Text=TextB

47、ox1.Text+.B_digit_point=True End If End Sub Private Sub Btn_0_Click(sender As Object,e As EventArgs)Handles Btn_0.Click If Len(TextBox1.Text)0 Then TextBox1.Text=TextBox1.Text+0 End If End SubPrivate Sub Btn_1_Click(sender As Object,e As EventArgs)Handles Btn_1.Click TextBox1.Text=TextBox1.Text+1 按键

48、1时的代码 End Sub Private Sub Btn_2_Click(sender As Object,e As EventArgs)Handles Btn_2.Click TextBox1.Text=TextBox1.Text+2 End Sub Private Sub Btn_mul_Click(sender As Object,e As EventArgs)Handles Btn_mul.Click If I_op=0 Then 只可作一次四则运算 F_first=Val(TextBox1.Text)B_digit_point=False S_op=*此段代码为按乘法键时的程序段

49、TextBox1.Text=TextBox1.Text+S_op I_op=3 End If End Sub Private Sub Btn_div_Click(sender As Object,e As EventArgs)Handles Btn_div.Click If I_op=0 Then F_first=Val(TextBox1.Text)B_digit_point=False S_op=/TextBox1.Text=TextBox1.Text+S_op I_op=4 End If End SubPrivate Sub Btn_clear_Click(sender As Object

50、,e As EventArgs)Handles Btn_clear.Click TextBox1.Text=按C键将清空文本框 B_digit_point=False I_op=0 End Sub Private Sub Btn_equal_Click(sender As Object,e As EventArgs)Handles Btn_equal.Click I_temp=Strings.InStr(TextBox1.Text,S_op)F_second=Val(Strings.Mid(TextBox1.Text,I_temp+1)Select Case I_op 根据变量值判断运行符 C