《第4章VB.NET中的常用控件课件.pptx》由会员分享，可在线阅读，更多相关《第4章VB.NET中的常用控件课件.pptx（45页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、4.1 控件的焦点4.2 常用控件常用控件4.3 键盘与鼠标事件键盘与鼠标事件4.4 实训练习实训练习4焦点（focus）焦点是接收用户鼠标或键盘输入的能力。当窗体中含有多个控件时，只有获得焦点的控件才可以接收用户输入。4.1.1 焦点事件（焦点事件（GotFocus和和LostFocus）当对象得到焦点时，会产生GotFocus事件；而当对象失去焦点时，将产生LostFocus事件。4.1.2 设置焦点设置焦点(1)在设置时将该控件的TabIndex属性设置为0。(2)在运行时单击该对象。(3)运行时用快捷键或Tab键选择该对象。(4)在程序代码中使用Focus方法。(5)在程序代码中使用A
2、ctiveControl属性。4.1.3 Tab键次序键次序所谓Tab键次序就是指按Tab键时，焦点在各个控件之间移动的次序。通常，Tab键次序就是在窗体上添加控件的次序。控件的TabIndex属性决定一个控件的Tab键次序。改变控件的TabIndex属性值可以改变它在Tab键次序中的位置。不能获得焦点的控件以及无效的和不可见的控件，不具有TabIndex属性，不能包含在Tab键次序中。按Tab键时，这些控件将被跳过。如果将控件的TabStop属性设为False，就可以将该控件从Tab键次序中删除，即该控件在Tab键次序中的位置不变，但按Tab键时该控件被跳过。4.2.1 链接标签（链接标签（
3、LinkLabel）LinkLabel控件除了具有Label控件的基本属性之外，它还可以在窗体上创建超链接。LinkArea属性设置激活链接的文本区域，LinkColor、VisitedLinkColor和ActiveLinkColor属性用于设置链接的颜色，LinkCliked事件确定链接文本后将打开哪个网页。1链接标签的常用属性链接标签的常用属性(1)Text属性：显示标签上的文本内容。(2)LinkArea属性：标签中要呈现为超链接的文本部分。LinkLabel1.Text = 打开沈阳大学信息学院主页LinkLabel1.LinkArea = New LinkArea(2, 4)从第二
4、个字符开始的连续4个字符作为超链接文本。2链接标签的主要事件链接标签的主要事件LinkClicked：给出要链接的网址。【例4-1】在窗体上添加一个链接标签，当点击该标签时显示沈阳大学主页。Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load LinkLabel1.Text = 打开沈阳大学主页 LinkLabel1.LinkArea = New LinkArea(2, 4)End SubPrivate Sub LinkLabel1_LinkClicked(sender As Object, e
5、 As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked System.Diagnostics.Process.Start(http:/ Sub4.2.2 富文本框（富文本框（RichTextBox）RichTextBox控件提供了比普通的TextBox控件更高级的格式特征。例如可以对其中选中的部分文本进行字体的设置。【例4-2】在窗体上添加一个富文本框及一个按钮，当点击按钮时，文本框中的部分内容字体将被改变。Private Sub Button1_Click(sender As Object, e As EventAr
6、gs) 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 EventArgs) Handles MyBase.Load RichTextBox1.Text = VB.NET程序设计基础End Sub
7、4.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 = 硕士研究生 Else xl = 博士研究生 End If End If Label1.Text =
9、性别： & xb & 学历： & xlEnd Sub4.2.4 复选框（复选框（CheckBox）用户可以根据需要选择一个或多个。1复选框的常用属性复选框的常用属性(1)Text属性：用来设置复选框的文本注释内容。(2)Checked属性：用来设置或返回复选框是否被选中。当值为True时表示被选中，当值为False时表示未选中。(3)CheckState属性：用来表示复选框的三种状态：选中( Checked)，未选中（ Unchecked ），部分选中（ Interminate ）。(4)ThreeState属性：是否允许复选框出现三种状态。当值为True时表示可以出现三种状态，即包含半选中状
10、态；当值为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 - FontStyle.Bold TextBox1.Font =
11、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.Italic Then fsty
12、le = 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
13、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 TextBox1.Font = New Font(TextBox1.Font.Name, TextBox1.Font.Size, fstyle) End IfEnd Sub4.2.5 分组框（分组
14、框（GroupBox）分组框控件可以用来对其他控件进行分组，即可以作为其他控件的容器的形式存在的，以便于用户识别。1分组框控件的创建方法分组框控件的创建方法首先需要添加GroupBox控件，然后再添加GroupBox里面的控件。2分组框控件的常用属性分组框控件的常用属性(1)Text属性：用来显示分组框标题，以便把不同种类的选项按钮区分开。(2)Enabled属性：当值为False时，对框架内的所有对象均不允许进行操作。(3)Visible属性：当值为False时，框架及其内部的控件均不可见。3分组框控件的主要事件分组框控件的主要事件分组框可以响应的事件有Click、DoubleClick等。
15、4.2.6 列表框（列表框（ListBox）列表框控件用来显示项目列表，用户从其中可以选择一项或多项。如果有较多的选项而不能一次全部显示，则会自动加上滚动条。1列表框控件的常用属性列表框控件的常用属性(1)Items属性：存放在列表框中的列表项。(2)SelectionMode属性：设置列表框是单项选择(One)、多项选择(MultiSimple及MultiExtended ）或不可选择(None)。(3)SelectedIndex属性：用来存放控件中当前选择项目的索引位置，在设计时不可用。表项位置由索引值指定，第1项的索引值为0，第2项为1，依次类推。如果没有选中任何项，SelectedIn
16、dex的值将设置为-1。在程序中设置SelectedIndex后，被选中的条目反相显示。2列表框控件的常用事件列表框控件的常用事件Click事件和DoubleClick事件。3列表框控件的常用方法列表框控件的常用方法(1)在设计时添加或删除项目：(2) Add方法：运行时向列表框的最后追加一个新项目。 格式：列表框名.items.add（项目）(3)Insert方法：运行时在某个项目的前面插入一个新项目。 格式：列表框名.items.insert（索引位置，项目）(4)Remove方法：按内容删除列表框的某个项目。 格式：列表框名.items.remove（项目）(5)RemoveAt方法：按
17、索引位置删除列表框的某个位置的项目。 格式：列表框名.items.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_
18、Click(sender As Object, e As EventArgs) 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_C
19、lick(sender As Object, e As EventArgs) Handles 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）组合框控件将文本框和列表框的功能结合在一起，用户可以在列表中选择某项（只能选取一项），或在编辑区
20、域中直接输入文本内容来选定项目。组合框共有3种风格：下拉式组合框、简单组合框和下拉式列表框。用户可以通过单击列表框或组合框中的某一项来选择所需选项，也可以在组合框中输入自己的选项；但是在列表框中只能进行选择，不能输入。1组合框控件的常用属性组合框控件的常用属性(1)Items属性、SelectionMode属性、SelectedIndex属性：与列表框相同。(2)DropDownStyle属性：组合框的显示类型。在运行时是只读的。Simple-组合框称为简单组合框，包括一个文本框（文本框的右边无下拉按钮）和一个不能下拉的列表框。当项目数超过可显示的限度时，自动产生一个垂直滚动条。可以从列表选择
21、或在文本框中输入那些不在列表中的项目。DropDown（默认值）-组合框称为下拉式组合框，包括一个下拉式列表和一个文本框。DropDownList-组合框称为下拉式列表框。这种样式仅允许从下拉式列表中选择，不可以自行输入组合框中没有的项目。2组合框的常用事件和方法组合框的常用事件和方法组合框的常用事件有Click事件、Dropdown事件等。4.2.8 定时器（定时器（Timer）VB提供了一种“定时器”控件。定时器的一个重要的事件是Timer事件。定时器每隔一定的时间间隔就产生一次Timer事件。定时器控件在运行时不显示。1定时器控件的常用属性定时器控件的常用属性(1)Interval属性：
22、计时器的时间间隔，是一个整数，单位为毫秒。若将Interval属性设置为0或负数，则定时器停止工作。如果将Interval属性设置为1000，则相当于每秒钟产生一个Timer事件。(2)Enabled属性：定时器控件是否可用。无论何时，只要定时器控件的Enabled属性被设置为True而且Interval属性值大于0，则定时器开始工作（以Interval属性值为间隔，触发Timer事件）。通过把Enabled属性设置为False可使定时器控件无效，即停止工作。2定时器控件的主要事件定时器控件的主要事件定时器控件响应Tick事件，当Enabled属性值为True且Interval属性值大于0时，
23、该事件以Interval属性指定的时间间隔发生，需要定时执行的操作即放在该事件过程中完成。【例4-6】设计一个简单的定时器来显示当前的系统时钟。添加一个定时器控件，并设置其Interval属性为1000。Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Label1.Text = TimeOfDay()End Sub4.2.9 日期时间控件（日期时间控件（DateTimePicker）DateTimePicker控件用于让用户可以从日期列表中选择单个值。运行时，该控件以下拉式组合框的形式弹
24、出日期供选择。【例4-7】在窗体上添加一个DateTimePicker控件和一个label控件，运行时将DateTimePicker控件的初始日期设置为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 Intege
25、r k = DateTimePicker1.Value yy = k.Year : mm = k.Month : dd = k.DayLabel1.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控件可以获得驱动器下的所有目录和子目
26、录。1Treeview控件的常用属性控件的常用属性(1)Nodes属性：树型层次结构中顶级结点的列表；(2)SelectedNode属性：设置当前选定结点；(3)ImageIndex属性：为结点设置图像。2Treeview控件增减结点的方法控件增减结点的方法(1)在属性窗口中利用Nodes属性添加或删除结点；(2)Add方法：为选定结点添加一个结点；(3)Remove方法：移除一个结点。【例4-8】利用属性窗口向Treeview控件中添加结点举例。(1)在窗体上添加一个TreeView控件和一个ImageList控件。(2)在ImageList控件的属性窗中点击Images属性，在其中添加若干
27、图片。(3)在Treeview控件的属性窗口中点击Nodes属性，添加结点和子结点，设置ImageIndex、Name和Text属性。【例4-9】编程向Treeview控件中添加结点举例。在上面例子的窗体上再添加一个按钮。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.
28、Add(newnode1) newnode1.ImageIndex = 1 设置新结点图片 TreeView1.Nodes(2).Nodes.Add(newnode2) newnode2.ImageIndex = 2 设置新子结点图片End Sub4.2.11 滚动条控件（滚动条控件（ScrollBar）滚动条控件分为水平滚动条和垂直滚动条。1滚动条控件的常用属性滚动条控件的常用属性(1)Value属性：滑块所处位置所代表的值。(2)Maximum属性：滚动条的最大值。(3)Minimum属性：滚动条的最小值。(4)SmallChange属性：最小变动值，即单击箭头时滑块移动的增量值。(5)L
29、argeChange属性：最大变动值，即单击空白处时滑块移动的增量值。2滚动条的主要事件滚动条的主要事件 (1)ValueChanged事件：在移动滑块或通过代码改变滚动条的Value属性值时发生。单击滚动条两端的箭头或空白处将引发ValueChanged事件。(2)Scroll事件：当滑块被重新定位，或按水平方向或垂直方向滚动时，Scroll事件发生。拖动滑块时会触发Scroll事件。【例4-10】通过调整滚动条位置改变文本中字体大小。Private Sub HScrollBar1_ValueChanged(sender As Object, e As EventArgs) Handles
30、HScrollBar1.ValueChanged TextBox1.Font = New Font(TextBox1.Font.Name, HScrollBar1.Value)End SubPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load TextBox1.Text = 调整字体大小 HScrollBar1.Minimum = 8 HScrollBar1.Maximum = 72 设置滚动条最大最小值End Sub4.3.1 常用键盘事件常用键盘事件 KeyPress事件：按下对应某ASCII 字符
31、的键。KeyDown事件：按下键盘的任意键。KeyUp事件：释放键盘的任意键。1键盘按键事件（键盘按键事件（KeyPress）当按下与ASCII字符对应的键时将触发KeyPress 事件。KeyPress 事件过程中的参数Sender代表消息的来源，参数e的KeyChar属性代表所按下的字符。【例4-11】在窗体上添加一个文本框TextBox1和一个标签，当在文本框中键入任意字符时，在标签中显示该字符的ASCII码。Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.K
32、eyPress Dim Iasc As Integer If sender Is TextBox1 Then MsgBox(消息来源是TextBox1) End If TextBox1.Text = Iasc = Asc(e.KeyChar) Label1.Text = e.KeyChar & 的ASC码是 & IascEnd Sub【例4-12】编写程序，使得文本框TextBox1中限定只能输入数字、小数点，只能响应BackSpace 键及回车键。Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) H
33、andles TextBox1.KeyPress Dim Iasc As Integer Iasc = Asc(e.KeyChar) Select Case Iasc Case 48 To 57, 46, 8, 13 Case Else e.KeyChar = End SelectEnd Sub程序说明：数字0到9的ASCII码分别为48到57，小数点的ASCII码为46，退格键的ASCII码为8，回车键的ASCII码是13。当输入的是其他字符时，拒绝接收。2键盘按下（键盘按下（KeyDown）和放开（）和放开（KeyUp）事件）事件当一个对象具有焦点时按下或松开一个键时分别发生这两个事件。他
34、们报告键盘本身准确的物理状态：按下键 （KeyDown） 及松开键 （KeyUp）。KeyDown和KeyUp事件能够检测功能键、编辑键和定位键。最常用的是KeyCode属性：表示按下的物理键。上档键字符和下档键字符也是使用同一键，他们的KeyCode值相同。例如，无论按下大写字母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.
35、Shift = True Then If e.KeyCode = Keys.A Then MsgBox(按下了shift+a键) End If Else MsgBox(按的是其他键) End IfEnd Sub4.3.2 常用鼠标事件常用鼠标事件MouseDown：按下任意鼠标键按钮时发生。MouseUp：释放任意鼠标键按钮时发生。MouseMove：每当鼠标指针移动到屏幕新位置时发生。常用鼠标事件中常用的属性有：(1)属性X 和Y：鼠标指针在窗体上的位置。(2)Button参数：表示哪一个鼠标键被按下或释放。【例4-14】编写一个利用鼠标在窗体上徒手画图的程序。按下鼠标左键时用红色笔画，按下
36、鼠标右键时用蓝色笔画图。Public Class Form1 Dim xold As Integer, yold As Integer Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) 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.Fo
37、rms.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.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 Class【例4-
38、15】设置文字字体、字型、字号。在窗体上添加一个文本框、三个复选框及六个单选钮。根据单选钮及复选框的设置来修改文本框中文字的字体、字型和字号。编写程序如下，运行结果如图4-15所示。Public Class form2Dim fstyle As FontStylePrivate Sub CheckBox1_Click(sender As Object, e As EventArgs) Handles CheckBox1.Click If TextBox1.Font.Bold Then fstyle = fstyle - FontStyle.Bold TextBox1.Font = New Fo
39、nt(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.Italic Then fstyle = f
40、style - 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
41、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 SubPrivate Sub RadioB
42、utton1_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 EventArgs) Handles RadioButton2.ClickTextBox1.Font = New Font(TextBox1.Font.Name, CSng(Ra
43、dioButton2.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_Load(sender As Object, e As EventArgs) Handles Me.LoadEnd SubPrivate Sub Ra
44、dioButton4_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 RadioButton5.Click TextBox1.Font = New Font(RadioButton5.Text, TextBox1
45、.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】设计一个简易的计算器程序，可以做四则运算。在窗体上添加一个文本框及若干命令按钮，并给命令按钮改名。Public Class Form1 Dim B_digit_point As
46、 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.Load B_digit_point = False I_op = 0 End Sub控件名Text属性控
47、件名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 = TextBox1.Text + . B_digit_point = True End If E
48、nd 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 按键1时的代码 End Sub Private Su
49、b 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 = * 此段代码为按乘法键时的程序段 TextBo
50、x1.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_Clic