Question

在VB中我想做个平常像个label一样当我把鼠标移到此时感觉象有个command就像网页中的工具栏

排除toobar控件使用，这个我知道，

Answer 1

添加1个command，1个label。

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Visible = False
End Sub

Private Sub Form_Load()
Label1.AutoSize = True
Label1.AutoSize = False
Label1.Alignment = 2
Label1.Left = Command1.Left
Label1.Top = Command1.Top + (Command1.Height - Label1.Height) / 2 - 10
Label1.Width = Command1.Width
Label1.Caption = Command1.Caption
Command1.Visible = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Visible = False
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Visible = True
End Sub

Answer 2

VB 有这个功能 Toolbar 控件就可以 还可以加载图片 平时不用时 就像 label 一样 是平的 鼠标 放在上面时 就 凸出 来了 他要配合着 ImageList 一起用 如果是你想要的 联系我 呵呵 那我就无能为力了