在VB中可否实现这个效果

来源：百度知道 编辑：UC知道 时间：2024/06/01 17:49:05
我想做个用鼠标一点那个按钮就会产生选中效果 就象在我的电脑中用鼠标单击C盘一样变成蓝色的那样 这个有办法实现吗?
那要怎么实现能指点下吗?用API吗

可以在鼠标单击事件上加上，如果单击被景就变成蓝色就可以了。
老大这还看不明白吗？给你一段程序，在窗体上加四个label 分别为label1、label2、label3、label4然后加入下边的这段代码：

Private Sub Label1_Click()
Label1.BackColor = &H80000001
Label2.BackColor = &H8000000F
Label3.BackColor = &H8000000F
Label4.BackColor = &H8000000F
End Sub

Private Sub Label2_Click()
Label2.BackColor = &H80000001
Label1.BackColor = &H8000000F
Label3.BackColor = &H8000000F
Label4.BackColor = &H8000000F
End Sub

Private Sub Label3_Click()
Label3.BackColor = &H80000001
Label2.BackColor = &H8000000F
Label1.BackColor = &H8000000F
Label4.BackColor = &H8000000F
End Sub

Private Sub Label4_Click()
Label4.BackColor = &H80000001
Label2.BackColor = &H8000000F
Label3.BackColor = &H8000000F
Label1.BackColor = &H8000000F
End Sub

按钮的单击事件，你想实现什么，基本都可以实现。

Private Sub Command1_Click()
Command1.属性=属性值
FORM1.实行=属性值
..........