再问关于文本框的小问题。

Question

使用Timer控件和Mid$函数！        

Answer 1

dim strWordsub form_load()
dim strArticle
strArticle=getArticle()'getArticle是取得文章内容的自定义函数
strWord=split(strArticle," ")
end subsub timer1_timer()
static lngWordNo
text1.text=strWord(lngWordNo)
lngWordNO=lngWordNO+1
end sub

Answer 2

感谢各位关心。尤其是袁飞朋友还不辞辛苦举了例子，但我初学vb还得拷回去好好消化消化。关于ccl的问题，文章源就是一则文本文件，每次出现的都是一个单词，后一个一呈现，前一个便消失了，每两次呈现的时间间隔是5秒。要求挺特殊，还望大家帮忙。