请问如何隐藏鼠标？

[newjgh]

请问：
1、如何隐藏鼠标？
2、如何让一个长度不能变的lable在内容超出的情况下自动换行显示？

请介绍一下大家认为不错的VB网站。我是菜鸟，请指教，谢谢！

[3661512]

1.
添加到窗体申明部分
Private Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long
具体实现部分
ShowCursor(True)显示 ,ShowCursor(Flase)隐藏

2.试试在要换行的地方加 vbCrLf

[newjgh]

1、OK
2、似乎不行。而且我想要lable内容自动换行，否则还要计算是否到了一个lable长度了。

请指教，谢谢！

[newjgh]

2、我的意思是label在设计时只有一行宽，在内容动态变化时自动换行，并改变高度（否则看不到第二行内容）

谢谢

[Fnems]

2. 在下面放一个text控件，修改背景颜色，修改其属性使它能显示多行文本，修改属性使其不能被TAB键选中。然后从他上面放置一个lab控件，设为透明。

[Fnems]

我是说，两控件重合（lab覆盖着text）。让text自动改变高度，text改变时，lab跟着改变。始终保持两控件一样大。

[Fnems]

喔，还有，将text的BorderStyle属性改为0。

[newjgh]

请教Fnems(Fnems)：
“让text自动改变高度”，这个怎么实现？

[Fnems]

改变Text的内容后运行判断函数（自己写），函数的主要内容：text的宽度是一定的。在这个宽度下，能容纳的英语字母和汉字字符的个数是固定的。不管是“l”还是“m”，不管是“。”还是“幂”，每英语字母和汉字字符的宽度都固定。你计算出总长度，除以宽度，就是行数。然后乘以每行的高度，得到应该显示的高度。最后在函数中改变text的高度和lab的高度。

[pasl]

你试一试如下：Label1.Autosize=true Label1.wordWrap=true这样就可以了。不过如果连续的英文字母太长了就不灵了！

[newjgh]

Fnems(Fnems) ：如果都是自己计算，那text框似乎可以不要了......
pasl(阿龙1) ：我主要是想不存在回车换行的字符串也知道自动换行，你的主意似乎也不太合适：（

谢谢各位参与，请继续给以指点！

[diyee]

q1:如何隐藏鼠标指针？
一般来说有两种方法可以隐藏鼠标的指针。
一种是用一个透明图标代替鼠标指针，并将MousePointer属性设为99。
另一种是用API函数来隐藏指针。代码如下：

Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As _
Long) As Long ‘ 将该代码放在模块的声明段中
RetFunct = ShowCursor(False) ‘ 隐藏指针
RetFunct = ShowCursor(True) ‘ 显示指针

Q2:简单看了一下，不是很明白你的意思，label本来就会自动换行的，你要求的是否是它高度跟着你的文本变化？

[diyee]

你说的还是一个很长的英文字串？

[lxk1308]

隐藏鼠标--------------------------------------------
-----------------------------------------------------
[e-mail]

[chenpeiyu]

1 调用api函数中的鼠标控制ShowCursor
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
当参数值为0时，隐藏鼠标，为1时，显示鼠标。
2 将label的属性autosize设为true即可
3 www.vb60.com 不错

[pasl]

用我的方法在没有很长的英文字符串时是非常管用的，中间不必有回车符，Label会自动换行，也会自动改变高度来适应。唯一一个不好是无法解决长英文字符的问题！

[capnet]

自己写个label

[apple_boy]

up