注册 登录
编程论坛 VB6论坛

VB 文本框获得焦点时弹出气泡提示框

sml 发布于 2013-08-09 06:01, 775 次点击
VB 文本框获得焦点时弹出气泡提示框,不是Move事件


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

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

[ 本帖最后由 sml 于 2013-8-9 09:36 编辑 ]
2 回复
#2
bczgvip2013-08-09 17:40
private sub Text1_GotFocus()
debug.print "1"
end sub

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

自己用tab 键试试吧。还有【弹出气泡提示框】就自己做吧。
#3
hankerasd2013-08-10 17:21
文本框获得焦点时要求以气泡形式弹出提示框
文本框获得焦点时要求以气泡形式弹出一个提示框
 
  首先下载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.
1