Label 类
https://docs.microsoft.com/zh-cn/dotnet/api/system.windows.forms.label?view=netframework-4.8
标签 Label类由 Control类继承而来,它的主要属性包括:
- Text:显示的文本内容;
- Left:标签的水平位置;
- Top:标签的垂直位置;
- Widh,标签的宽度;
- Height,标签的高度;
- Forecolor前景色等
load事件是对话框类加载时触发的一个系统事件,利用该事件的处理过程可以设置变量或控件属性的初始值。
VB. NET中, Color类用于表示颜色,它定义于Sysm. Drawing名称空间下。 Color类中已定义了多种颜色,如 Yellow,黄色;Blue,蓝色等。
控件 | 属性 | 值 | 控件 | 属性 | 值 |
Label | Name | lblInformation | Button | Name | btnResetLabel |
Button | Name | btnMoveup | Text | 恢复 | |
Text | 上移 | Button | name | btnSetColorRed | |
Button | Name | btnMovedown | Text | 字体红色 | |
text | 下移 | Button | name | btnSetColorYellow | |
Button | Name | btnMoveLeft | Text | 字体黄色 | |
Text | 左移 | Button | name | btnExit | |
Button | Name | btnMoveright | 退出 | ||
Text | 右移 |
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lblInformation.Width = 200
lblInformation.Height = 50
btnResetLabel.PerformClick()
End Sub
Private Sub btnMoveLeft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMoveLeft.Click
lblInformation.Left -= 5
End Sub
Private Sub btnResetLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnResetLabel.Click
lblInformation.Left = _
(Me.Width - Me.DefaultMargin.Left - lblInformation.Width) / 2
lblInformation.Top = 20
lblInformation.ForeColor = Color.Blue
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
Private Sub btnMoveUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMoveUp.Click
lblInformation.Top -= 5
End Sub
Private Sub btnMoveRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMoveRight.Click
lblInformation.Left += 5
End Sub
Private Sub btnMoveDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMoveDown.Click
lblInformation.Top += 5
End Sub
Private Sub SetColorRed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetColorRed.Click
lblInformation.ForeColor = Color.Red
End Sub
Private Sub SetColorYellow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetColorYellow.Click
lblInformation.ForeColor = Color.Yellow
End Sub
End Class