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

前端之家收集整理的这篇文章主要介绍了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 教程 目录

猜你在找的VB相关文章