VB中如果我要让我的鼠标经过某个按钮时,他会亮一下
3个回答
展开全部
其实楼上的方法很全页,够用了!
详细点:
<a class="" onMouseOver="this.className='name';" onmouseout="this.className='';></a>
name 就是你鼠标指向时显示的已定义的一个CSS样式
详细点:
<a class="" onMouseOver="this.className='name';" onmouseout="this.className='';></a>
name 就是你鼠标指向时显示的已定义的一个CSS样式
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
让按扭亮一下(首先要把按钮的Style设为1,这个不用我细说了吧),就意味着这个按钮的填充颜色中的红色、绿色、蓝色同时增加相同的大小(这样做的好处是可以不限制按钮原来是什么颜色,在原有颜色的基础上增亮)。增加黄色边框,我推荐你可以事先画一个和你的按钮等大小同位置形状为矩形的Shape控件,并置于按钮的下方,将其BorderColor设为黄色,BorderWidth设为6或更大,最后让它Visible为False。
在通用(声明)中打
Dim OrigColor
在Form的Load中打
OrigColor=Command1.BackColor
在Form的MouseMove中打
Command1.BackColor=OrigColor
Shape1.Visible=False
在Command1的MouseMove中打
On Error Goto Error1
Command1.BackColor=OrigColor+RGB(10, 10, 10) '如果觉得亮度变化不够明显可适当将这三个10一齐改为更大的数,但一定要保证这三个数相等
Shape1.Visible=True
Exit Sub
Error1:
Command1.BackColor=vbWhite
Shape1.Visible=True
在通用(声明)中打
Dim OrigColor
在Form的Load中打
OrigColor=Command1.BackColor
在Form的MouseMove中打
Command1.BackColor=OrigColor
Shape1.Visible=False
在Command1的MouseMove中打
On Error Goto Error1
Command1.BackColor=OrigColor+RGB(10, 10, 10) '如果觉得亮度变化不够明显可适当将这三个10一齐改为更大的数,但一定要保证这三个数相等
Shape1.Visible=True
Exit Sub
Error1:
Command1.BackColor=vbWhite
Shape1.Visible=True
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询