vb 动态生成tooltiptext的问题

dickins 2008-03-28 10:58:56
在vb中如何实现类似QQ发信息时,当输入的内容为空时,就在按钮上显示一个“发送内容不能为空,请重新输入 ”的tooltiptext
的文本?
...全文
73 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
东方之珠 2008-03-28
private sub command1_click()
if len(text1.text)=0 then
command1.tooltiptext="发送内容不能为空,请重新输入”
text1.setfocus
else
command1.tooltiptext="输入内容正确,正在发送...”
end if
end sub
回复
Sandrer 2008-03-28
楼主要的是气泡提示?
网上一大把,自己搜索搜索!
回复
舉杯邀明月 2008-03-28
[Quote=引用 3 楼 dickins 的回复:]
1.2楼的方法是设置了command1的tooltiptext,但没有显示出来啊。
[/Quote]

楼主,你自己说了是“tooltiptext”,这个的显示条件就是:鼠标在对象上悬停!
回复
dickins 2008-03-28
1.2楼的方法是设置了command1的tooltiptext,但没有显示出来啊。
回复
舉杯邀明月 2008-03-28
Private Sub TextBox1_Change()
If (Len(TextBox1.Text)=0) Then
CommandButton1.TooltipText = "发送内容不能为空,请重新输入"
Else
CommandButton1.TooltipText = "按Ctrl+Enter发送信息"
End If
End Sub
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-28 10:58
社区公告
暂无公告