vb tooltiptext怎么用啊

VB中，每个TreeView节点显示相对应的Tooltiptext信息~

　　Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If TreeView1.SelectedItem.Children = 0 Then '检查是否有子节点,0为无
For i = 1 To TreeView1.Nodes.Count

If TreeView1.Nodes(i).Selected Then
Text1.Text = TreeView1.SelectedItem.Text
End If
Next i
End If
End Sub

可以换行。不过要在代码中实现 即用 vbcrlf 来组合字符串即可。

ToolTipText可以直接在属性面板中输入内容，或在代码中给其赋值。

ToolTipText就是鼠标移动到控件上时显示的内容，通常用作控件的解释说明。

比如要给Label1控件添加ToolTipText，内容为“郁闷”。可以在IDE模式，点击选中Label1控件，然后在属性面板找到ToolTipText，输入“郁闷”运行程序，鼠标移到Label1上，就会弹出“郁闷”。

还可以在程序运行的时候通过代码给其赋值，上面的例子可以这样写：

Private Sub Form_Load() 
    Label1.ToolTipText = "郁闷" 
End Sub

运行程序后效果相同。

因为ToolTipText可以在程序中赋值，并且正常请款下不会直接显示，因此可以用来存储一些临时数据，以辅助程序运行。

没有必要编写MouseMove事件
只要设置ToolTipText属性即可
如果没有显示

请检查 该对象的Enabled属性是否为True
如果为True还不显示，请检查所在容器对象的Enabled属性是否为True

显示的必须条件： 对象及对象所在的容器，必须处于有效状态（Enabled属性为True)

为什么我试过又行??
是不是你哪里搞错了??
Private Sub Form_Load()
Label1.ToolTipText = "郁闷"
End Sub
这样就行啦

当然不显示啦
得在事件中 写啊

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ToolTipText = "郁闷"
End Sub

Private Sub Form_Load()
Label1.ToolTipText = "郁闷"
End Sub
可以

---

麦盖提县13750755985： VB ToolTipText怎么换行? - ？
象详贝格： 在需要换到下行的字符前面加 VBCRLF 或者 CHR(13) & CHR(10) 例如: 一 a$ & vbcrlf & b$ vbcr代表回车 vblf代表换行 加起来=vbcrlf 二 a$ & chr(13) & chr(10) &b$ 使用CHR 函数 回车的ASCII码是13 换行符的ASCII码是 10

麦盖提县13750755985： VB中的,气泡提示控件是什么?怎么用?请举个小例子 难.........急!!!!!!!!!! - ？
象详贝格： vb中每个控件都有ToolTipText这个属性不知道楼主是不是再找它textbox.ToolTipText=textbox.Text

麦盖提县13750755985： VB中ToolTipText属性怎样实现多行显示 - ？
象详贝格： 用这个 vbcrlf 一个代表换行的玩意 把它放在适当的位置即可!!

麦盖提县13750755985： 请问VB中如何实现tooltiptext中文本的换行? - ？
象详贝格： 这个属性是当你把鼠标放在某个控件上一段时间后..显示这个属性的内容..也就是提示用的...对象.tooltiptext=＂输入内容＂

麦盖提县13750755985： vb如何获得tooltip内容 - ？
象详贝格： Text1.ToolTipText = ＂你好＂ '设置 Debug.Print Text1.ToolTipText'输出

麦盖提县13750755985： 我用vb做浏览器遇到的问题 求教! - ？
象详贝格： 设置按钮的tooltiptext 属性为你的提示信息, 就行了!!

麦盖提县13750755985： VB6.0 SerialPort控件跟ToolTip控件在哪加载? - ？
象详贝格： VB6的串口控件叫MsComm控件,通过部件菜单添加.ToolTip通过编程环境的ToolTipText属性窗口添加.

麦盖提县13750755985： 关于VB中的属性翻译? - ？
象详贝格： 1) 按钮—— 属性:ToolTipText ; 方法:setFocus ToolTipText:当鼠标移动到按钮上的时候显示的说明性文字,起到注释和帮助作用.setFocus: command1.focus 使用此方法可以让Command1获得焦点2) 标签——属性:Caption: 标签上显...

麦盖提县13750755985： 怎样用VB实现:用鼠标拖动绘制实圆与多种虚线圆？
象详贝格： Dim s As Boolean, ci As Integer, xianxing As Integer, xiankuan As IntegerDim x0 As Single, y0 As SinglePrivate Sub Command1_Click()s = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Form_Load()Dim bb = Array(＂透明＂, ＂实线＂...

麦盖提县13750755985： VB里怎样让鼠标指针移动到按钮上时弹出提示对话框 - ？
象详贝格： 设置这个按钮的 ToolTiptext 的值为提示内容即可.如:command1.tooltiptext=＂提示信息＂