VB 文本框获得焦点时弹出气泡提示框,不是Move事件


Private Sub Form_Load()
 Me.Show
 Text1.SetFocus
End Sub

此时，光标在Text1中,显示气泡提示框；不是Move 光标移动到Text才显示气泡提示框。

[ 本帖最后由 sml 于 2013-8-9 09:36 编辑 ]

private sub Text1_GotFocus()
debug.print "1"
end sub

private sub Text2_GotFocus()
debug.print "2"
end sub

自己用tab 键试试吧。还有【弹出气泡提示框】就自己做吧。

文本框获得焦点时要求以气泡形式弹出一个提示框
 
　　首先下载form-field-tooltip插件（google一下，遍地都是，此处不提供下载地址了就）

　　引入插件：

　　<link rel="stylesheet" href="/form-field-tooltip/css/form-field-tooltip.css" media="screen" type="text/css">

　　<script type="text/javascript" src="/form-field-tooltip/js/rounded-corners.js"></script>

　　<script type="text/javascript" src="/form-field-tooltip/js/form-field-tooltip.js"></script>

　　应用：

　　<INPUT> 或 <TEXTAREA>的文本框，文本域都可以使用。

　　<input type="text" id="firstname" name="firstname" tooltipText="Type in your firstname in this box">

　　初始化和配置SCRIPT：

　　<script type="text/javascript">

　　var tooltipObj = new DHTMLgoodies_formTooltip();

　　tooltipObj.setTooltipPosition('right');

　　tooltipObj.setPageBgColor('#EEE');

　　tooltipObj.setCloseMessage('Exit');

　　tooltipObj.initFormFieldTooltip();

　　</script>

　　按照上述配置之后，当鼠标点击文本框之后即可弹出一个气泡提示框。本文转自：http://www.