可用分押宝游戏火热进行中...	专题改版：Java Web 专题

关于tooltip的问题？

楼主wubala（）2005-06-01 21:59:11 在 .NET技术 / VB.NET 提问

1--我想问关于tooltip的问题，我想实现的功能是当textbox1的text的长度大于20时显示textbox1.text（鼠标进入时），因为textbox1的内容会变。
2--当鼠标进入textbox1时，屏幕有很强的横纹，（应该是在刷新），我不想让他出现横纹问题点数：20、回复次数：19Top

1 楼herodraw（herodraw）回复于 2005-06-01 23:52:03 得分 5

1、
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Len(Me.TextBox1.Text) > 20 Then
ToolTip1.SetToolTip(Me.TextBox1, Me.TextBox1.Text)
End If
2、你显示器的问题吧我的怎么没有横纹一点都没有呀
End SubTop

2 楼wubala（）回复于 2005-06-02 00:36:22 得分 0

我写的跟你写的类似，但是出现这样的问题比如说
Private Sub TextBox6_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox6.MouseEnter
If RTrim(TextBox6.Text).Length > 20 Then
tooltip1.SetToolTip(TextBox6, RTrim(TextBox6.Text))
End If
End Sub
鼠标进入textbox6.例子textbox6.text="123....2"超过20位,这时改变textbox6.text="asdfadf..."超过20位,再把鼠标进入黄条显示"123...2"随后又显示"asdfadf....",鼠标离开后再进入还是那样显示,屏幕不停的刷新(出现横纹)Top

3 楼herodraw（herodraw）回复于 2005-06-02 00:55:17 得分 0

你不要用mouseenter事件不就行了？
就用textchanged事件试试Top

4 楼wubala（）回复于 2005-06-02 13:29:24 得分 0

要求的是这样的Top

5 楼redmoonmoon（阿卓）回复于 2005-06-02 14:06:44 得分 0

UP,学习Top

6 楼wubala（）回复于 2005-06-03 12:51:31 得分 0

帮忙!呀?Top

7 楼csdnzm（明飞）回复于 2005-06-03 13:40:47 得分 0

用TextBox1_TextChanged事件,mouse事件触发的太频繁了Top

8 楼tgl110（小军滕）回复于 2005-06-03 14:39:45 得分 0

最简单的方法：Application.doevents就搞定了Top

9 楼wubala（）回复于 2005-06-03 17:35:19 得分 0

to tgl110(小军滕)
能说得详细一些吗？
Application.doevents是什么呀？我是一个初学者Top

10 楼sagezk（SageZK）回复于 2005-06-03 17:53:29 得分 0

你是想实现与VS.NET开发环境外部帮助文档左侧树型目录相似的功能吗？即当TextBox窗口显示不下其内容且当鼠标移入时，以气球提示的形式显示TextBox的能容吗！Top

11 楼sagezk（SageZK）回复于 2005-06-03 19:11:25 得分 0

汗！最后四个字是“的内容吗”Top

12 楼wubala（）回复于 2005-06-03 20:37:39 得分 0

是的,请help me!!!!!!!!!!Top

13 楼Nic_ky（）回复于 2005-06-04 00:05:25 得分 0

要在鼠标进入时显示,用TextBox1_MouseEnter事件是可以的.Top

14 楼wubala（）回复于 2005-06-04 09:27:23 得分 0

我知道，大哥，谁能帮我把刷新的功能，说一下呀？Top

15 楼wubala（）回复于 2005-06-05 12:19:50 得分 0

来人呀？："（Top

16 楼sagezk（SageZK）回复于 2005-06-05 14:51:39 得分 5

刷新的功能
Private Sub TextBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.MouseEnter
Me.ToolTip1.SetToolTip(Me.TextBox1, Me.TextBox1.Text)
End SubTop

17 楼wubala（）回复于 2005-06-05 15:04:28 得分 0

楼上的，sagezk(SageZK)，你写的不是刷新把？请看清楚好吗？呜呜呜呜呜~~~Top

18 楼wubala（）回复于 2005-06-06 12:30:42 得分 0

upTop

19 楼maxxxz（ma）回复于 2005-06-07 10:56:23 得分 10

在你的窗体的初始化代码里面写:
setstyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True)Top