当初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 教程 目录