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

时间:2022-02-06 08:52:56

当初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属性设置  “&+字母”组成,例如:

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

当设置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”,则类似于鼠标按下了该按钮:

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

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

运行图示:

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


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 教程 3-4 窗体编程 公共控件1 Button、Label、TextBox & CheckBox


学习更多vb.net知识,请参看 vb.net 教程 目录