vb.net 教程 3-4 窗体编程 公共控件1 Button、Label、TextBox & CheckBox

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
当初vb出来的时候，大家眼睛一亮，编程也可以可视化，当然，少不了控件的帮忙，虽然更多强大的功能还是需要api（当然.net下也一样），但是我们还是从基础开始。

说实在的vs2015提供的控件比较多，有些我也不熟悉，大家一起学习。

从公共控件开始，一个一个地学习。

1、Button

按钮。

主要使用的是它的click事件，这也是button控件的默认事件，双击设计窗口上的button即可进入click事件的代码编辑。

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MessageBox.Show("按下了按钮")
    End Sub
 

按钮快捷键：

按钮的快捷键是在按钮的Text属性设置  “&+字母”组成，例如：

当设置Text属性为：&About  时候 ，实际在按钮上显示的  About ，

A 表示当窗体处于Active活动状态时候，可以使用ALT+A，等同于鼠标按下这个按钮。

这个按钮的代码如下：

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        MessageBox.Show("这是一个快捷键测试")
    End Sub

运行时按下 “ALT+A”，则类似于鼠标按下了该按钮：

2、Label

标签，实际就是显示一段静态的文字。与TextBox控件不同的是，用户不可输入内容到Label。

主要使用的是它的Text属性。

Label1.text=“这是一段静态文字内容”
 

3、TextBox

文本框，与Label不同的是，这个支持用户输入文字内容。

主要使用的属性：

Text：文本框显示的内容

ReadOnly:只读，不可修改内容

MaxLenth:可输入的最大字符数，如果为0，则可最多输入2147483646个字符

Multiline:是否多行显示

ScrollBars:不显示、显示垂直、显示水平、同时显示垂直或水平滚动条。如果Multiline=False，那么这个属性无效（不显示滚动条）

主要事件：

TextChanged：文本内容发生改变时

GotFocus：获得焦点

如下代码，当输入文本改变时候，自动获取文本字数：

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        lblCount.Text = TextBox1.Text.Length
    End Sub
运行图示：

TextBox默认情况下不能调整高度，只能通过调整字体大小来调整高度。

如果要调整高度，可以在代码中编写：

        TextBox.AutoSize = False
        TextBox.Height = 40
注意：AutoSize在属性编辑器中是没有的，代码中的智能提示里面也没有，直接写就可以了。

4、CheckBox

多选框。与单选框RadioButton不同的是，可以同时选择多个

常用属性：

Checked:是否选中

常用事件：

CheckedChanged:选中状态发生改变时

示例代码：

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim fav As String = ""
 
        If CheckBox1.Checked = True Then fav &= CheckBox1.Text & Chr(13)
        If CheckBox2.Checked = True Then fav &= CheckBox2.Text & Chr(13)
        If CheckBox3.Checked = True Then fav &= CheckBox3.Text & Chr(13)
        If CheckBox4.Checked = True Then fav &= CheckBox4.Text & Chr(13)
 
        Dim messageinfo As String = ""
        If fav = "" Then
            messageinfo = "非常遗憾，没有你喜欢的运动"
        Else
            messageinfo = "你喜欢的运动有" & ControlChars.CrLf & fav.TrimEnd(Chr(13))
        End If
        MessageBox.Show(messageinfo)
    End Sub
不错，我喜欢的运动是散步，您呢？

学习更多vb.net知识，请参看 vb.net教程 目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。