编程学习biancheng.45soft.com 本站提供了各种在线教程和资料,供大家学习与参考.
编程学习
当前位置: 主页 > VB6 > 对象和程序设计 > VB6 对象和程序设计 标签Label属性事件方法

VB6 对象和程序设计 标签Label属性事件方法

用于显示文本(输出)信息,不能作为输入信息的界面。



1.主要属性:

Caption、 Font、 Left、 Top、 BorderStyle、 BackStyle等。



2.事件:

单击(Click),双击(DblClick)和改变(Change)。


标签一般只是用来显示文字,通常情况下,不需编写事件过程。


[例2.5] 显示浮雕效果的文字,实现方法:字颜色、标签位置


标签Label属性事件方法_对象和程序设计_VB6

程序代码

Private Sub Form_Load()
    Caption = "将鼠标在窗体和标签之间移动"
    Label1.ZOrder(0) '标签1显示在标签2的前面
    '显示黑色文字标签
    Label1.BorderStyle = 1 '有边框
    Label1.BackStyle = 0 '透明 transparent
    Label1.ForeColor = vbBlack  'QBColor(0) '黑色
    Label1.Top = 15
    Label1.Left = 208
    Label1.AutoSize = True
    Label1.WordWrap = True
    Label1.Caption = Space(7) + "黄山四绝:" & vbCrLf & "怪石、云海、奇松、温泉"

    '显示白色文字标签
    label2.BorderStyle = 0 '无边框
    label2.BackStyle = 1 '不透明opaque
    label2.ForeColor = vbWhite 'QBColor(15) ' 白色
    label2.Top = 13
    label2.Left = 198
    Label1.AutoSize = True
    Label1.WordWrap = True
    label2.Caption = Space(7) + "黄山四绝:" & vbCrLf & "怪石、云海、奇松、温泉"
End Sub

Private Sub Form_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Cls()
End Sub

Private Sub Label1_MouseMOVE(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Cls()
    ForeColor = RGB(255 * 100, 0, 0)
Print Tab(4); String(2, "★"); Spc(4); String(2, "★")
End Sub



编程学习 VB6 对象和程序设计 标签Label属性事件方法 转载请保留此行.谢谢.

VB6