7,732
社区成员
发帖
与我相关
我的任务
分享非常急！！！在线等！！！
我想取一个label中的文本的个数，就是说比如：label.caption="我们"，可以返回文字的个数为2，有什么办法吗？然后再设定text1.text文本的个数，使得在text1.text的数据再label.caption中显示
...全文
请发表友善的回复…
发表回复
xiaoyu4446 2003-11-21
- 打赏
- 举报
救命啊
xiaoyu4446 2003-11-21
- 打赏
- 举报
可是我的数据是这样的，原来的label中什么都没有，我现在要通过写text中的东西传到label中，label.width可随意定，但是我想输入不超过label.width长度的字，这要怎么办？？
dysqw 2003-11-21
- 打赏
- 举报
自动会调整的呀?
xiaoyu4446 2003-11-21
- 打赏
- 举报
如果字体变了怎么办？
dysqw 2003-11-21
- 打赏
- 举报
l=len( label1.caption)
text1.maxlength=l
我不知道这样作有什么意义?
要label1能完整显示内容 可以设置 autosize =true 就可以了
text1.maxlength=l
我不知道这样作有什么意义?
要label1能完整显示内容 可以设置 autosize =true 就可以了
xiaoyu4446 2003-11-21
- 打赏
- 举报
可是我用得怎么不行，我写的是len(label12.caption),都是红字啊
ipman 2003-11-21
- 打赏
- 举报
vb内部都是用unicode，所以1楼的不会错的拉
kimurakenshin 2003-11-21
- 打赏
- 举报
一楼的写的很对.
你如果想只知道中文字符,那就判断不是已知ASCII码的就是中文.
你如果想只知道中文字符,那就判断不是已知ASCII码的就是中文.
xiaoyu4446 2003-11-21
- 打赏
- 举报
而且字体还是可变的
xiaoyu4446 2003-11-21
- 打赏
- 举报
一楼的不行，二楼的不大明白
kimurakenshin 2003-11-21
- 打赏
- 举报
楼上的不太对呀,如果是随机输入的怎么办?不知道有几个中文字符几个英文字符的情况怎么办?
xiaoyu4446 2003-11-21
- 打赏
- 举报
我只要求汉字的个数
Freaky 2003-11-21
- 打赏
- 举报
同意一楼的
sunxiaohui 2003-11-21
- 打赏
- 举报
Dim a As String, b As String, c As String
a = "123我们"
b = StrConv(a, vbFromUnicode)
Debug.Print LenB(b)
c = StrConv(MidB(b, 4, 2), vbUnicode)
MsgBox c
打印出的长度为7
c="我"
祝好运
a = "123我们"
b = StrConv(a, vbFromUnicode)
Debug.Print LenB(b)
c = StrConv(MidB(b, 4, 2), vbUnicode)
MsgBox c
打印出的长度为7
c="我"
祝好运
饮水需思源 2003-11-21
- 打赏
- 举报
len(label.caption)
这样不知行不行？
这样不知行不行？
