vb 动态生成tooltiptext的问题

[dickins]

在vb中如何实现类似QQ发信息时，当输入的内容为空时，就在按钮上显示一个“发送内容不能为空，请重新输入 ”的tooltiptext
的文本？

[舉杯邀明月]

Private Sub TextBox1_Change()
If (Len(TextBox1.Text)=0) Then
CommandButton1.TooltipText = "发送内容不能为空，请重新输入"
Else
CommandButton1.TooltipText = "按Ctrl+Enter发送信息"
End If
End Sub

[dickins]

1.2楼的方法是设置了command1的tooltiptext，但没有显示出来啊。

[舉杯邀明月]

[Quote=引用 3 楼 dickins 的回复:]
1.2楼的方法是设置了command1的tooltiptext，但没有显示出来啊。
[/Quote]

楼主，你自己说了是“tooltiptext”，这个的显示条件就是：鼠标在对象上悬停！

[Sandrer]

楼主要的是气泡提示？
网上一大把，自己搜索搜索！

[东方之珠]

private sub command1_click()
if len(text1.text)=0 then
command1.tooltiptext="发送内容不能为空，请重新输入”
text1.setfocus
else
command1.tooltiptext="输入内容正确，正在发送...”
end if
end sub