[已解决]【求助】如何在鼠标进入文本框后进行提示

蝶·舞

如图所示，我想实现如下要求：当鼠标进入日期这个文本框时，会出现提示：请以”2011-1-1“格式进行输入。就象数据有效性那样的提示。或者能不能象有些网站上一样，鼠标没有进入文本框时，灰色显示提示内容，鼠标一点击，提示内容没有了，也就是说可以正常的输入。
另外，请教一下，在银行那栏，我用下拉的方式进行的，银行名称我事先输入到”银行表“的A列中，但有可能会有所增减，那么这个下拉内容如何做到同步增减

最佳答案

月排行榜 / 总排行榜

吕?布

2012-4-28 09:48

Option Explicit

Private Sub TextBox1_Enter()
    tbSelected TextBox1
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    tbUnSelected TextBox1
End Sub

Private Sub tbSelected(tb As MSForms.TextBox)
    With tb
        .Text = ""
        .ForeColor = vbBlack
    End With
End Sub

Private Sub tbUnSelected(tb As MSForms.TextBox)
    With tb
        .Text = "请以”2011-1-1“格式进行输入"
        .ForeColor = RGB(192, 192, 192)
    End With
End Sub

Private Sub UserForm_Activate()
    tbUnSelected TextBox1
End Sub

跳转到最佳答案楼层

Iweb

收获源自积累，坚持终能成长！

吕?布

Option Explicit

Private Sub TextBox1_Enter()
    tbSelected TextBox1
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    tbUnSelected TextBox1
End Sub

Private Sub tbSelected(tb As MSForms.TextBox)
    With tb
        .Text = ""
        .ForeColor = vbBlack
    End With
End Sub

Private Sub tbUnSelected(tb As MSForms.TextBox)
    With tb
        .Text = "请以”2011-1-1“格式进行输入"
        .ForeColor = RGB(192, 192, 192)
    End With
End Sub

Private Sub UserForm_Activate()
    tbUnSelected TextBox1
End Sub

burumianqu

不错哦~~~~答案不错哈~~~

xuxinliang

这个代码还是没有办法直接用。。需要改造。感觉在和很多文本框时还是很麻烦。。

qinhuan66

好好学习天天向上