Label能当按钮使用吗？

Question

在Excel-VBA中，OnAction可以将Shape等控件当作按钮。
请问：VB6的Label能当按钮使用吗？
如果能，请问如何操作。谢谢

Answer 1

你想用就可以用Private Sub Label1_Click()
   MsgBox "lable1 click"
   
End Sub

Answer 2

这么简单的问题没想到。
此帖的问题提出：
原来想用Button方法，但是加多行后，文字全部居中，不能左对齐排版，效果不好。
用Label，文字排版可以左对齐，但没有按钮效果，别人看不出来是按钮。
再相办法：
目标需求，即能当按钮，又能体现多行文字左对齐(用vbcr换行的多行文字)。

Answer 3

Label是可以做按键的，不过如果还要有点效果出来，例如鼠标移过会有提示什么的就要多加几句代码了

Answer 4

所谓立体（3D）只是一种视觉效果，以下程序可以让label具有立体效果，你可以举一反三就OK了。
在窗体上放入四个line控件，一个label1控件，复制以下程序运行后去测试。
Private Sub Form_Load()
    Line1.BorderColor = vbWhite
    Line1.X1 = Label1.Left
    Line1.Y1 = Label1.Top
    Line1.X2 = Label1.Left
    Line1.Y2 = Label1.Height + Label1.Top
    
    Line2.BorderColor = vbWhite
    Line2.X1 = Label1.Left
    Line2.Y1 = Label1.Top
    Line2.X2 = Label1.Left + Label1.Width
    Line2.Y2 = Label1.Top
    
    
    Line3.X1 = Label1.Left
    Line3.Y1 = Label1.Top + Label1.Height
    Line3.X2 = Label1.Left + Label1.Width
    Line3.Y2 = Label1.Height + Label1.Top
    
    Line4.X1 = Label1.Left + Label1.Width
    Line4.Y1 = Label1.Top
    Line4.X2 = Label1.Left + Label1.Width
    Line4.Y2 = Label1.Height + Label1.Top
    
End SubPrivate Sub Label1_Click()
   MsgBox "lable1 click"
   
End SubPrivate Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Line1.BorderColor = vbBlack
    Line1.X1 = Label1.Left
    Line1.Y1 = Label1.Top
    Line1.X2 = Label1.Left
    Line1.Y2 = Label1.Height + Label1.Top
    
    Line2.BorderColor = vbBlack
    Line2.X1 = Label1.Left
    Line2.Y1 = Label1.Top
    Line2.X2 = Label1.Left + Label1.Width
    Line2.Y2 = Label1.Top
    
    Line3.BorderColor = vbWhite
    Line3.X1 = Label1.Left
    Line3.Y1 = Label1.Top + Label1.Height
    Line3.X2 = Label1.Left + Label1.Width
    Line3.Y2 = Label1.Height + Label1.Top
    
    Line4.BorderColor = vbWhite
    Line4.X1 = Label1.Left + Label1.Width
    Line4.Y1 = Label1.Top
    Line4.X2 = Label1.Left + Label1.Width
    Line4.Y2 = Label1.Height + Label1.TopEnd SubPrivate Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Line1.BorderColor = vbWhite
    Line1.X1 = Label1.Left
    Line1.Y1 = Label1.Top
    Line1.X2 = Label1.Left
    Line1.Y2 = Label1.Height + Label1.Top
    
    Line2.BorderColor = vbWhite
    Line2.X1 = Label1.Left
    Line2.Y1 = Label1.Top
    Line2.X2 = Label1.Left + Label1.Width
    Line2.Y2 = Label1.Top
    
    Line3.BorderColor = vbBlack
    Line3.X1 = Label1.Left
    Line3.Y1 = Label1.Top + Label1.Height
    Line3.X2 = Label1.Left + Label1.Width
    Line3.Y2 = Label1.Height + Label1.Top
    
    Line4.BorderColor = vbBlack
    Line4.X1 = Label1.Left + Label1.Width
    Line4.Y1 = Label1.Top
    Line4.X2 = Label1.Left + Label1.Width
    Line4.Y2 = Label1.Height + Label1.TopEnd Sub