以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  突发奇想,做了一个标签会动例子!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15680)

--  作者:blackzhu
--  发布时间:2012/1/6 7:44:00
--  突发奇想,做了一个标签会动例子!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:会动的字符.table


--  作者:老有所乐
--  发布时间:2012/1/6 8:11:00
--  

创新


--  作者:sgs
--  发布时间:2012/1/6 8:13:00
--  
有创意
--  作者:狐狸爸爸
--  发布时间:2012/1/6 8:24:00
--  

呵呵,顶你一下,不过代码的效率实不太好,我给你一个合理的:

 

Dim pm As WinForm.Label = e.Form.Controls("Label1")
Dim s As String  = "请输入关键字→"
Dim l As Integer = pm.Text.length
pm.text = s.SubString(0,iif(s.length = l,1,l+1))

[此贴子已经被作者于2012-1-6 8:26:43编辑过]

--  作者:blackzhu
--  发布时间:2012/1/6 8:41:00
--  
我正在想能不能将一段字符拆解出来,正在想代码的问题,你就发来了,研究一下.
--  作者:blackzhu
--  发布时间:2012/1/6 8:50:00
--  
代码非常简介,我本来的拆解想法同你不一样,还可以这样,没有想到.