怎么样使textbox里的文本一行一行依次反显？

Question

先把每行数据读到一个数组中去，然后用：StrReverse函数
      描述返回一个字符串，其中一个指定子字符串的字符顺序是反向的。语法StrReverse(string1)参数string1是一个字符串，它的字符顺序要被反向。如果string1是一个长度为零的字符串("")，则返回一个长度为零的字符串。如果string1为Null，则产生一个错误。for i=1 to n
    text1.text =text1.text & strreverse(data(i))
next i

Answer 1

textbox 没有编号，
用LISTBOX好

Answer 2

一个思路:
根据vbcrlf截断一行一行的,然后每一行逐字符顺序颠倒,再写回去!

Answer 3

对不起，大虾，我说的反显是指文本象被选中一样
我知道textbox里有个seltext,可是不会用

Answer 4

Text1.SelStart = 1
Text1.SelLength = 5'自己一试就明白了

Answer 5

晚了，同上！！
Text1.SelStart = 1
Text1.SelLength = 5

Answer 6

别忘了加上
Text1.SetFocus-------------------------------------------------------------
===================================================
Set 人=conn.Execute("Select 友好，善良，道德，爱情 From 社会 Where 时代=现在")
Response.Write 人("友好") & 人("善良") & 人("道德") & 人("爱情")
ADODB.Field 错误 '80020009' BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除。 我的愿望.asp，行0===================================================
CSDN 论坛助手 Ver 1.0 B0402
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]
===================================================
-------------------------------------------------------------

Answer 7

同上，
： aocool(知秋一叶) 有意思！

Answer 8

扩展VB的TextBox控件的功能：　　 Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _　　 ByVal wMsg As Long, _　　 ByVal wParam As Long, _　　 lParam As Any) As Long
　想知道文本框里到底有多少行？简单：用EM_GETLINECOUNT消息就可以轻松搞定。同样的，因为这个消息不带任何的参数，我们还是把参数wParam和lParam都置为0：　　 Public Const EM_GETLINECOUNT = &HBA　　 Public Function LineCount(txtBox As TextBox) As Long　　 LineCount = SendMessage( _　　 TxtBox.hWnd, EM_GETLINECOUNT, 0&, 0&)　　 End Function 
OK，确实很简单吧，我们再来看看另外一个消息：EM_LINELENGTH。通过制定在参数wParam的一个字符序数，返回该字符所在行的长度：　　 Public Const EM_LINELENGTH = &HC1　　 Public Function LineLen(txtBox As TextBox, CharPos As Long) As Long　　 LineLen = SendMessage( _　　 TxtBox.hWnd, EM_LINELEENGTH, CharPos, 0&)　　 End Function